Asp classic 在经典asp中使用记录集

我正在尝试使用经典ASP中包含以下代码的记录集从数据库获取数据。我正在使用windows 7 32位操作系统：

<%
dim con,rs
set con=Server.Createobject("ADODB.Connection")
con.Provider="Microsoft.Jet.OLEDB.4.0"
con.Open "c:\inetpub\wwwroot\New folder\123.mdb"
rs.Open "select * from student",con
for each x in rs.fields
response.write(x.name)
response.write("=")
response.write(x.value)
next
rs.Close
con.Close
%>

---

VBScript中没有保留单词rs，您必须自己创建记录集

更改行：

rs.Open "select * from student",con

对此，请改为：

Set rs = con.Execute("select * from student")

还可以只迭代第一条记录，若要迭代所有记录，请将代码更改为：

Do Until rs.EOF
    for each x in rs.fields
        response.write(x.name)
        response.write("=")
        response.write(x.value)
        response.write(", ")
    next
    response.write("<br />")
    rs.MoveNext
Loop

---

VBScript中没有保留单词rs，您必须自己创建记录集

更改行：

rs.Open "select * from student",con

对此，请改为：

Set rs = con.Execute("select * from student")

还可以只迭代第一条记录，若要迭代所有记录，请将代码更改为：

Do Until rs.EOF
    for each x in rs.fields
        response.write(x.name)
        response.write("=")
        response.write(x.value)
        response.write(", ")
    next
    response.write("<br />")
    rs.MoveNext
Loop

---

首先让ta生成一个记录集对象首先让ta生成一个记录集对象