VBScript MS Access数据库连接

Posted 2021-02-26

'****************************************
' VBScript MS Access database connection
'****************************************
 
dim strConn, objConn, sql, rst
 
if lcase(Request.ServerVariables("SERVER_NAME")) = "localhost" then
	strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:inetpubwwwrootmysitedb.mdb;"
else
	strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("/") & "db.mdb;"
end if
 
set objConn = server.createobject("adodb.connection")
objConn.open strConn