您所在的位置:小祥子 » 编程 » ASP » 正文

ASP通用的数据库连接文件conn.asp

时间:2015-02-15 编辑:本站 来源:本站原创

将以下代码保存为conn.ASP,然后其他页面就可以调用这个文件了。

Dim conn
Dim db
Dim connstr
db       = "Databases/data.mdb" '数据库文件位置
On Error Resume Next
connstr  = "DBQ=" + Server.mappath("" & db & "") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn = Server.CreateObject("ADODB.CONNECTION")

If Err Then
 Err.Clear
Else
 conn.open connstr
End If

Sub CloseConn() '每个页面底部都得调用这个过程 关闭数据库连接
 conn.Close
 Set conn = Nothing
End Sub
 

关键词:数据库 conn 连接