|
<!--#include file="config.asp"--> <!--#include file="Inc/Inc_Functions.asp"--> <!--#include file="API/Api_Config.asp"--> <% '----------------------------------------- 'conn.asp '数据库参数设置 '----------------------------------------- '数据库类型:0-access,1-sql Server Const Is_sqldata=0 '使用外部数据库:0-不使用,1-使用 Const Is_ot_User=0 Dim G_sql_DelChar,G_sql_Now,G_sql_d_Char Dim G_sql_y,G_sql_m,G_sql_d,G_sql_h,G_sql_mi,G_sql_s Dim connstr,conn,db Dim ot_connstr,ot_conn,ot_usertable,ot_username,ot_password,ot_regurl,ot_lostpasswordurl,ot_modIfypass1,ot_modIfypass2
Call SystemState
Sub link_database() If Is_sqldata=0 Then 'access数据库连接参数 '请务必阅读程序附带的数据库安全设置指南 '此处必须为以根目录开始,最前面必须为/号 db = "/oblog4/data/oblog4.mdb" ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db) G_sql_d_Char="#" G_sql_y="'y'" G_sql_m="'m'" G_sql_d="'d'" G_sql_h="'h'" G_sql_mi="'n'" G_sql_s="'s'" G_sql_Now="Now()" Else 'sql数据库连接参数:连接名(本地用local,外地用IP)$数据库名$用户名$用户密码 Dim sql_DBServer,sql_DBName,sql_User,sql_Password sql_DBServer = "(local)" sql_DBName = "oblog31" sql_User = "oblog" sql_Password = "oblog" ConnStr = "Provider = sqloledb; User ID = " & sql_User & "; Password = " & sql_Password & "; Initial Catalog = " & sql_DBName & "; Data Source = " & sql_DBServer & ";" G_sql_d_Char="'" G_sql_y="y" G_sql_m="m" G_sql_d="d" G_sql_h="h" G_sql_mi="n" G_sql_s="s" G_sql_Now="getdate()" End If On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr
'若使用外部数据库表请自行修改下面的变量值 If Is_ot_User=1 And InStr(LCase(request.ServerVariables("HTTP_REFERER")),"admin_")=0 Then ot_connstr= "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("/bbs/data/dvbbs7.mdb") 'access外部数据库连接字符串 'ot_connstr = "Provider = sqloledb; User ID = ***; Password = ***; Initial Catalog = ***; Data Source = ***;" 'sql外部数据库连接字符串 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_modIfypass1="../bbs/modIfyadd.asp?t=1" '修改密码连接 ot_modIfypass2="../bbs/modIfyadd.asp?t=1" '修改密码提示问题连接 ot_lostpasswordurl="../bbs/lostpass.asp" '找回密码链接 End If
If Err Then Err.clear Set conn = Nothing Response.write "数据库连接出错,请检查连接字串。" Response.End End If End Sub %>
这是我还没整合的时候BLOG下面的CONN.ASP
但是访问的时候是 数据库连接出错,请检查连接字串。
还没整合就这样~~~我晕
|