asp中在JScript中使用RecordSet对象的GetRows

' code by xujiwei
' http://.xujiwei./
' 定义变量
Dim conn,rs,data,recN,i
' 连接数据库
Set conn=Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &_
    Server.MapPath("data.mdb")
' 获取记录集
Set rs=conn.Execute("SELECT id,first,second FROM mytable")
' 获取数据数组
data=rs.GetRows()
' 关闭记录集，释放对象
rs.Close()
Set rs=Nothing
' 获取记录数
recN=UBound(data,2)
' 循环输出数据
For i=0 To recN
    ' 注意，数组下标从0开始
    ' 显示数据库中数据
    Response.Write("ID: "&data(0,i)&", First: "&data(1,i)&_
        ", Second: "&data(2,i)&"<br />")
Next
' 关闭数据库连接，释放对象
conn.Close()
Set conn=Nothing
%>

<script language="JScript" runat="server">
// code by xujiwei
// http://.xujiwei./
// 定义变量
var conn,rs,vdata,data,recN,i;
// 连接数据库
conn=Server.CreateObject("ADODB.Connection");
conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="+
    Server.MapPath("data.mdb"));
// 获取记录集
rs=conn.Execute("SELECT id,first,second FROM test");
// 获取数据数组，并转换成为JScript中可用的数组类型
vdata=rs.GetRows().toArray();
// 获取数据表的字段数
i=rs.Fields.Count;
// 关闭记录集，释放对象
rs.Close();
rs=null;
// 转换数组
data=transArray(vdata,i);
// 获取记录数
recN=data.length;
// 循环输出数据
for(i=0;i<recN;i++) {
    // 注意，数组下标从0开始
    // 显示数据库中数据
    Response.Write("ID: "+data[i][0]+", First: "+data[i][1]+
        ", Second: "+data[i][2]+"<br />");
}
// 关闭数据库连接，释放对象
conn.Close();
conn=null;

// 数组转换函数
// by xujiwei
// 参数arr - GetRows方法得到的对象用toArray方法得到的数组
//       fieldslen - 数据表字段数
function transArray(arr,fieldslen) {
    var len=arr.length/fieldslen,data=[],sp;
    for(var i=0;i<len;i++) {
        data[i]=new Array();
        sp=ifieldslen;
        for(var j=0;j<fieldslen;j++)
            data[i][j]=arr[sp+j];
    }
    return data;
}
</script>