Á¬½Ó´øÃÜÂëµÄACCESSÊý¾Ý¿âд·¨

dim conn
dim connstr
dim db
dim dbpaswd  (Õâ¸öÃÜÂë¼ÓÔÚÄÄ)
db=dbpath&"/"&dbname
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"


set conn=server.createobject("ADODB.CONNECTION")
on error resume next
conn.open connstr
if err then
Err.Clear
Call CloseConn()
Response.Write "Êý¾Ý¿âÁ¬½Ó³ö´í£¬Çë¼ì²éÊý¾Ý¿âĿ¼ºÍÊý¾Ý¿âÎļþÃûÊÇ·ñÕýÈ·¡£"
Response.End
end if

---

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\mydatabase.mdb;User Id=admin;Password=xxx;"

---

Õâ¸öд·¨ÎÒ»¹ÓÃÄã½²Â𠣿

---

ÒýÓÃ

Õâ¸öд·¨ÎÒ»¹ÓÃÄã½²Â𠣿

ÕâôţX£¬ÄÇÄ㻹ÊÇ×Ô¼ºÂýÂý¸ã°É£¡

---

VBScript code:

Access 97/2000/XP/2003 Database Connection String using Microsoft Access Driver (DSN less)

<%@LANGUAGE=VBSCRIPT%>
<%
Option Explicit
Dim strConnection, conn, rs, strSQL

strConnection = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=" & Server.MapPath(".\db\db.mdb") & ";Uid=admin;Pwd=password;"

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

Set