conn.asp

来自「access数据库转换工具」· ASP 代码 · 共 28 行

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'-----------声明数据库连接变量----------------
dim conn,mdb,connstr
 
'-----------数据库路径------------------------
mdb = InstallDir & "a.mdb"              '主数据库名称和路径
 


'-----------以下不用修改,不熟悉程序请勿修改---------------------
'-----------以下不用修改,不熟悉程序请勿修改---------------------
on error resume next
Sub DataConnect()
    on error resume next
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(mdb)
    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

call DataConnect()
%>