wapconn.asp
上传用户:dragonczj
上传日期:2013-07-05
资源大小:56k
文件大小:1k
源码类别:

手机WAP编程

开发平台:

Java

  1. <%
  2. const issqldate=false '博客网站数据库类型选择,access请使用默认值false;SQL请将其改为True。
  3. if not issqldate then
  4. Dim Db
  5. 'access数据库连接参数:请将oblog2.mdb修改为你自己的博客网站数据库名称。
  6. Db = "data/oblog2.mdb"
  7. ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
  8. else
  9. 'sql数据库连接参数:数据库名、用户密码、用户名、连接名(本地用local,外地用IP)
  10. Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
  11. SqlDatabaseName = "oblog"
  12. SqlPassword = "oblog"
  13. SqlUsername = "oblog"
  14. SqlLocalName = "(local)"
  15. ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
  16. end if
  17. Set conn = Server.CreateObject("ADODB.Connection")
  18. conn.open ConnStr
  19. const ot_user=false '是否使用其他数据库用户表,true为使用,false为不使用
  20. if ot_user then '若使用外部数据库表请自行修改下面的变量值
  21. dim ot_connstr,ot_conn,ot_usertable,ot_username,ot_password,ot_regurl,ot_lostpasswordurl
  22. ot_connstr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/bbs/data/dvbbs7.mdb") '外部数据库连接字符串
  23. Set ot_conn = Server.CreateObject("ADODB.Connection")
  24. ot_conn.open ot_connStr '外部数据库连接
  25. ot_usertable="dv_user" '用户表名
  26. ot_username="username" '用户名字段
  27. ot_password="userpassword" '密码字段
  28. ot_regurl="../bbs/reg.asp" '注册用户链接
  29. ot_lostpasswordurl="../bbs/lostpass.asp" '找回密码链接
  30. end if
  31. %>