<%
dim Conn_BBS,db_BBS
Dim SqlDatabaseName_bbs,SqlPassword_bbs,SqlUsername_BBS,SqlHostIP_BBS

const UserDatabaseType="ACCESS"		'用户数据库类型，"SQL"为MS SQL2000数据库，"ACCESS"为MS ACCESS 2000数据库

'如果是ACCESS数据库，请认真修改好下面的数据库的文件名。如果整合论坛，则此处应该为论坛的数据库文件名。
db_BBS="\bbs\data\Dvbbs7.mdb"          'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
				     '如果是安装在网站根目录，直接修改文件名即可。如果是安装在网站某一目录下，则在前面加上此目录，
				     '例如，系统安装在“http://www.asp163.net/PE4/”目录下（PE4为安装目录），则这里应该修改为：db="\PE4\database\PowerEasy4.mdb"

'如果是SQL数据库，请认真修改好以下数据库选项。此处应该为论坛的数据库选项。
SqlUsername_BBS = "sa"           'SQL数据库用户名
SqlPassword_BBS = "123456"       'SQL数据库用户密码
SqlDatabaseName_BBS = "dvbbs"    'SQL数据库名
SqlHostIP_BBS = "(local)"           'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）



'*************************************************
'以下部分不用修改了。
'*************************************************

call OpenConn_BBS()

sub OpenConn_BBS()
	On Error Resume Next
	dim ConnStr
	if UserDatabaseType="SQL" then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername_BBS & "; Password = " & SqlPassword_BBS & "; Initial Catalog = " & SqlDatabaseName_BBS & "; Data Source = " & SqlHostIP_BBS & ";"
	else
		ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db_BBS)
	end if
	Set conn_BBS = Server.CreateObject("ADODB.Connection")
	conn_BBS.Open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "论坛用户数据库连接出错，请检查Conn_bbs.asp文件中的数据库参数设置。"
		Response.End
	End If
	
end sub

sub CloseConn_BBS()
	On Error Resume Next
	If IsObject(Conn_BBS) Then
		Conn_BBS.close
		set Conn_BBS=nothing
	end if
end sub

%>

