使用記錄在傳統的ASP

Question

我試圖獲取使用記錄與在傳統的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 
%> 

錯誤是：

Microsoft VBScript runtime error '800a01a8' 

Object required: '' 

/New folder/recordset.asp, line 7 

Answer 1

單詞「rs」不保留在VBScript中，您必須自己創建一個記錄集。

更改行：

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