<%
const issqldate=false	'博客網站數據庫類型選擇，access請使用默認值false；SQL請將其改為True。
if not issqldate then
	Dim Db
	'access數據庫連接參數：請將oblog2.mdb修改為你自己的博客網站數據庫名稱。
	Db = "data/oblog2.mdb"
	ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
else
	'sql數據庫連接參數：數據庫名、用戶密碼、用戶名、連接名（本地用local，外地用IP）
	Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
	SqlDatabaseName = "oblog"
	SqlPassword = "oblog"
	SqlUsername = "oblog"
	SqlLocalName = "(local)"
	ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr

const ot_user=false '是否使用其他數據庫用戶表,true為使用，false為不使用
if ot_user then '若使用外部數據庫表請自行修改下面的變量值
	dim ot_connstr,ot_conn,ot_usertable,ot_username,ot_password,ot_regurl,ot_lostpasswordurl
	ot_connstr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/bbs/data/dvbbs7.mdb") '外部數據庫連接字符串
	Set ot_conn = Server.CreateObject("ADODB.Connection")
	ot_conn.open ot_connStr '外部數據庫連接
	ot_usertable="dv_user" '用戶表名
	ot_username="username" '用戶名字段
	ot_password="userpassword" '密碼字段
	ot_regurl="../bbs/reg.asp" '注冊用戶鏈接
	ot_lostpasswordurl="../bbs/lostpass.asp" '找回密碼鏈接	
end if
%>