当前位置：首页 → 问答吧 → asp 变量接收二维数组

asp 变量接收二维数组

时间：2011-11-23

来源：互联网

Assembly code

Public Function ExecuteSQL()
        Response.charSet="UTF-8"
        Dim MyArry()
        Set Rs =Server.CreateObject("adodb.recordset")
        sql="select cpid,yhname from dbo.crmfwbdata2004_test order by cpid"
        Rs.open sql,conn_zlbx,1,1
        If Not rs.eof Then
            Count=rs.recordcount
            redim MyArry(Count,2)
            for i=1 to Count
                '第i行,第一个元素
                MyArry(i,1)=rs("Cpid")
                MyArry(i,2)=rs("yhname")
                rs.movenext
            next
        End If
        ExecuteSQL=MyArry
    End function

我如何在另外一个页面中接收这个 2维数组变量

作者: adrian251 发布时间: 2011-11-23

rs.GetRows()就可以了
VBScript code


Public Function ExecuteSQL()
      Set Rs = CreateObject("adodb.recordset")
      sql="select cpid,yhname from dbo.crmfwbdata2004_test order by cpid"
      Rs.open sql,conn_zlbx,1,1
      If Not rs.eof Then
          ExecuteSQL = rs.GetRows()
      Else
          ExecuteSQL = Null
      End If
      Rs.Close
      Set Rs = Nothing
End function

作者: hookee 发布时间: 2011-11-23

其实这个方法上午我也用了。
到另外一边不知道如何取值就放弃了。

引用 1 楼 hookee 的回复:

rs.GetRows()就可以了
VBScript code

Public Function ExecuteSQL()
Set Rs = CreateObject("adodb.recordset")
sql="select cpid,yhname from dbo.crmfwbdata2004_test order by cpid"
Rs.open s……

作者: adrian251 发布时间: 2011-11-23

这么取
For i=0 To UBound(arr, 2)
arr(0, i) 第i行字段1
arr(1, i) 第i行字段2
arr(2, i) 第i行字段3
....
Next

作者: hookee 发布时间: 2011-11-23

你说的rs.GetRows() 这种方式呢？

引用 3 楼 hookee 的回复:

这么取
For i=0 To UBound(arr, 2)
arr(0, i) 第i行字段1
arr(1, i) 第i行字段2
arr(2, i) 第i行字段3
....
Next

作者: adrian251 发布时间: 2011-11-23

response.write Arr[x,y]
可以用for each循环输出数组内所有元素

作者: hefeng_aspnet 发布时间: 2011-11-23

就是 rs.GetRows() 这种方式呀。就按这个方法取

作者: hookee 发布时间: 2011-11-23