ASP连接ACCESS，用OLEDB不用ODBC

基本连接单元

<%
 Dim conn,rs
 sub connect
   set conn = server.createobject("adodb.connection")
   conn.open "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("data/guestbook.mdb")
 end sub

 function sel(str,wr)
   set rs=server.createobject("adodb.recordset")
   rs.open str,conn,1,wr
   set sel=rs
 end function
 
 sub dbclose
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
 end sub 
%>