www.gusucode.com > 深度学习(asp)通讯录 0.0.10 (utf-8)码程序 > connDB.asp

    <%
Dim DBpath,ConnStr,Conn
	DBpath =projectRootPath & "dataBase/DB#addressList.mdb"	 '数据库文件的位置
	ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(DBPath)
On Error Resume Next				'启用错误处理程序
	set Conn = Server.CreateObject("ADODB.Connection")
	Conn.Open ConnStr
	'=====================
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "<p>&nbsp;</p><p align='center'>数据库连接出错，请检查链接路径和数据库名称！</p>"
		Response.End
	End If
	'======================
On Error GoTo 0						'禁用错误处理程序



'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：closeConnDB
'│作  用：关闭数据库                     
'│参  数：无
'│日  期：2006/1/16
'└──────────────────── www.DeepTeach.com ──┘
sub closeConnDB()
	Conn.Close
	set conn=nothing
end sub
%>