asp读4

< %
' 示例：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 * FROM TBL_LYB "          ' 查询的SQL语句
rs.Open strSQL,conn, 1 , 1          ' 执行查询

dim  showNext,showNum
showNext = Request( " showNext " )
showNum = Request( " showNum " )
if  showNext = " True "   then  rs.move(showNum)

Response.Write  " &id= " & rs( " ID " )  &   " &user= " & rs( " User " )  &   " &ip= " & rs( " IPAddress " )  &   " &time= " & rs( " wTime " )  &   " &info= " & rs( " Info " )  &   " &other= " & rs( " Other " )
 
Response.Write ( " &readResult1=OK " )

rs.close
set  rs = nothing
conn.close
set  conn = nothing

% >