wapconn.asp

WAP博客第三版 最新发布

<%
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
%>