ASP创建并打开ACCESS数据库连接并读取内容语句段

Set conn = Server.CreateObject("ADODB.Connection")


connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("Database.mdb")


conn.Open connstr


set rs = server.createobject("adodb.recordset")


Sqlstr = "select * from UserData order by id desc"


rs.open Sqlstr,conn,1,1


if rs.eof then


response.write("NO records by find!")


else


do while not rs.eof


for i=0 to rs.fields.count-1


response.write(rs(i).name&"="&rs(i)&"|")


next


response.write"<br>"


rs.movenext


loop


end if


rs.close


Set rs = nothing