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