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


%
>