www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > ConnDB.asp

    <%
Const SystemDatabaseType = "ACCESS"     '系统数据库类型，"SQL"为MS SQL2000数据库，"ACCESS"为MS ACCESS 2000数据库
'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
Const ACCESSDBFileName = "App_Data/db#deepStudy#cms.mdb" 

'如果是SQL数据库，请认真修改好以下数据库选项
Const SqlUsername = "Deep"           'SQL数据库用户名
Const SqlPassword = "Deep"          'SQL数据库用户密码
Const SqlDatabaseName = "Deep"       'SQL数据库名
Const SqlHostIP = "(local)"                 'SQL主机IP地址。本地（指网站与数据库在同一台服务器上）可用“(local)”或“127.0.0.1”，非本机（指网站与数据库分别在不同的服务器上）请填写数据库服务器的真实IP）
'--------------------------------------------------------------

'projectRootPath  针对此程序根的相对路径(即包含文件相对此文件的相对路径)
Dim DBFileName,connStr,conn
	'DBpath =projectRootPath & "dataBase/db#deepStudy#cms.mdb"	 '数据库文件的位置
	'connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath(DBFileName)

On Error Resume Next				'启用错误处理程序
	If SystemDatabaseType = "ACCESS" Then
		DBFileName=projectRootPath & ACCESSDBFileName
		ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBFileName)
	Else
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & ";"
	End If
	
	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'>数据库连接出错，请检查Conn.asp文件中的数据库参数设置。</p>"
		'Response.Write "数据库连接出错，请检查链接路径和数据库名称！"
		Response.End
	End If
On Error GoTo 0						'禁用错误处理程序
'======================

'┌──────────────────── 深度空间 深度学习 ──┐
'│过程名：closeConnDB
'│作  用：关闭数据库                     
'│参  数：无
'│日  期：2006/1/16
'└──────────────────── www.deepstudy.cn ──┘
sub CloseConnDB()
    If IsObject(Conn) Then
        Conn.Close
        Set Conn = Nothing
    End If
end sub
%>