asp读3

<%
'示例：ASP连接Access数据库，无密码连接

DBPath=Server.MapPath("myData.mdb")    '数据库存放路径
Strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & DBPath     '连接字符串
Set conn = Server.CreateObject("ADODB.Connection")    '新建一个连接 
conn.open Strconn

Set rs=Server.CreateObject("ADODB.RecordSet")    '新建一个查询
strSQL="SELECT top 10 * FROM TBL_LYB"        '查询的SQL语句
rs.Open strSQL,conn,1,1        '执行查询
'Response.Write rs("UserName")    '获取UserName字段的值
'**********
Dim numRow
numRow = 0
do while not rs.eof 
Response.Write "&id"&numRow&"="&rs("ID") & "&user"&numRow&"="&rs("User") & "&ip"&numRow&"="&rs("IPAddress") & "&time"&numRow&"="&rs("wTime") & "&info"&numRow&"="&rs("Info") & "&other"&numRow&"="&rs("Other")
rs.movenext 
numRow=numRow+1
loop 

Response.Write ("&readResult=OK")
'**********
rs.close
set rs=nothing
conn.close
set conn=nothing

%>