连接access数据库conn.asp的常用写法

<%@ LANGUAGE = "VBScript" CodePage = 936%>
<%
option explicit
Dim Startime,Endtime,Conn,Connstr,DB
Startime = Timer()
DB = "data/itlearner.MDB"?? '数据库路径
ConnectionDatabase

Sub ConnectionDatabase
?Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
?'如果你的服务器采用较老版本Access驱动，请用下面连接方法
?'Connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
?On Error Resume Next
?Set Conn = Server.CreateObject("ADODB.Connection")
?Conn.open ConnStr
?If Err Then
??err.Clear
??Set Conn = Nothing
??Response.Write "对不起，数据库维护中，请您稍后访问。" '数据库访问出错提示信息。
??Response.End
?End If
End Sub

Function CloseDatabase
?Conn.close
?Set Conn = Nothing
End Function
%>

（编辑：海南站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!