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

发布时间：2023-04-26 13:27:41 所属栏目：Asp教程来源：

导读：<%@ LANGUAGE = "VBScript" CodePage = 936%>

<%

option explicit

Dim Startime,Endtime,Conn,Connstr,DB

Startime = Timer()

DB = "data/CuoXin.MDB" '数据库路径

ConnectionDatabas

<%@ 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

%>

（编辑：聊城站长网）

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