bbsconfig.asp

BBS论坛的开发和设计

<%
Const DBname = "joinboard.mdb"'数据库名称,请设置为论坛DB目录中的数据库文件名.
Const JBBMasterCookies = "jbb2.3_ac_bate"'如果您要在同一空间运行多个本程序，请设置此参数各异.
Const BBSHomeUrl="index.asp"'如果您的论坛首页文件index.asp已改名，请修改此参数.
startime=timer()*1000
If isObject(Application(JBBMasterCookies & "conn")) = False Then
	scriptPath = server.mapPath("db")
	if right(lcase(scriptPath),8)="admin\db" then
		dbpath=server.mapPath("../db/"&DBname)
	else
		dbpath=server.mapPath("db/"&DBname)
	End if
	set conn = Server.CreateObject("ADODB.Connection")
	ConnStr = "driver={Microsoft Access Driver (*.mdb)};dbq="&dbpath
	conn.open Connstr
	if Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "数据连接错误!"
		Response.End
	End If
	Application.Lock
		Set Application(JBBMasterCookies & "conn") = conn
	Application.UnLock	
	Set conn = Application(JBBMasterCookies & "conn")
Else
	Set conn = Application(JBBMasterCookies & "conn")
End If
%>