wapconn.asp
资源名称:WAPblaog.zip [点击查看]
上传用户:dragonczj
上传日期:2013-07-05
资源大小:56k
文件大小:1k
源码类别:
手机WAP编程
开发平台:
Java
- <%
- 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
- %>