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

<%@ LANGUAGE = "VBScript" CodePage = 936%>

<%

option explicit

Dim Startime,Endtime,Conn,Connstr,DB

Startime = Timer()

DB = "data/CuoXin.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

%>

（编辑：银川站长网）

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