|
大虾们,小弟我是刚入门开始做论坛,我用的系统是windows2003,数据库是MSSQL2000企业版,论坛软件是bbsgood speed5.0sql版,本地安装调试,安装步骤按照“BBSGOOD论坛SQL版安装示例(图解)”进行安装,安装完,本地进行调试,系统提示我:“数据库连接出错,请检查连接字串。”我的conn.asp配置如下:
<% Option Explicit '注意以下二项可以在确认被CC攻击等严重情况下开启 Const isref = false 'true为开启防刷新 Const isforwarded = false 'true为禁止代理访问 If isref=true then If DateDiff("s",session("ref"),Now())<2 Then '防刷新开始 Response.Write "防刷新和快速连续操作,请 <a href="&Request.ServerVariables("URL")&"?"&Request.ServerVariables("QUERY_STRING")&">点击进入</a>" Response.End End IF session("ref")=Now() end if If isforwarded=true then If Request.ServerVariables("HTTP_X_FORWARDED_FOR")<>"" then Response.Write "对不起,本站禁止了代理上网用户的访问!" Response.End end if end if '=================================================================================================================== Response.Buffer = True '缓冲设置 Dim StarTime,EndTime,DataNum,Conn,OutConn '其它相关初始化配置================================================================================================= Const BBSInfo="BBSGood.Speed" '这里请输入你的系统的名称,注意如果你要在同一系统中运行多个程序,那么这个名称必须与其它系统不同,要不会有冲突,如果你只运行一个程序,此处可不修改 StarTime = Timer() '初始化开始运行时间 DataNum=0 '初始化数据库操作次数计算 Const WriteType=0 '生在html文件的组件类型,0为fso方式,1为ado方式 ,对于不支持fso的用户来用,可以尝试使用ado。 '===================================================================================================================
Const DataType=1 '论坛数据库类型,0为access,1为sql数据库
If DataType = 1 Then '必修改设置二:========================SQL数据库设置============================================================ 'sql数据库连接参数:数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、 '连接名(SqlLocalName)(本地用local,外地用IP) Const SqlDatabaseName = "bbsgood" Const SqlPassword = "*******" Const SqlUsername = "bbs_user" Const SqlLocalName = "(local)" Else '必修改设置三:========================access数据库设置========================================================= '用户第一次使用请修改数据库名称,如:将bbsgood_speed.mdb修改为bbsgood_speed.asp,提醒:扩展名修改为asp较为安全 dim Db Db="data/bbsgood_speed.mdb" '数据库路径 End IF '===================================================================================================================
Sub LinkData() Dim ConnStr If DataType=1 Then ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";" Else ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db) End If On Error Resume Next Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接出错,请检查连接字串。" Response.End End If End Sub
'=========================================外部表整合参数设置开始======================================================= Const isoutuser=0 '如果此项为0那么用户名,密码不使用外部数据库或表,如果为1,表示整合到其它系统,用户名和密码采用其它系统的表
if isoutuser=1 then '如果使用外部连接表 Const OutDataType=0 '如果此项为0.那么表示使用access数据库,如果此项为1,那么表示采用mssql数据库 Const User_out="user" '外部数据库表名 Const UserName_out="username" '外部数据库用户表,用户字段 Const PassWord_out="password" '外部数据库用户表,密码字段 Const reg_out="http://www.xxx.com/reg.asp" '外部用户名注册地址 Const userinfo_out="http://www.xxx.com/edit.asp" '外部密码修改地址 Const userlogin_out="http://www.xxx.com/login.asp" '外部帐号登陆地址
If OutDataType = 1 Then '必修改设置二:========================SQL数据库设置============================================================ 'sql数据库连接参数:数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、 '连接名(SqlLocalName)(本地用local,外地用IP) Const OutSqlLocalName = "(local)" '数据库地址 Const OutSqlDatabaseName = "bbsgood" '数据库名称 Const OutSqlUsername = "sa" '数据库帐号 Const OutSqlPassword = "sa" '数据库密码 Else '必修改设置三:========================access数据库设置========================================================= '免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称,如:将bbsgood_speed.mdb修改为bbsgood_speed.asp Const OutDb="bbs/data/bbsgood_speed.mdb" '数据库路径 End IF end if
'==========================================外部表整合参数设置结束=======================================================
Sub OutLinkData() '连接外部表函数 Dim ConnStr If OutDataType=1 Then ConnStr = "Provider = Sqloledb; User ID = " & OutSqlUsername & "; Password = " & OutSqlPassword & "; Initial Catalog = " & OutSqlDatabaseName & "; Data Source = " & OutSqlLocalName & ";" Else ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(OutDb) End If On Error Resume Next Set OutConn = Server.CreateObject("ADODB.Connection") OutConn.open ConnStr If Err Then err.Clear Set OutConn = Nothing Response.Write "数据库连接出错,请检查连接字串。" Response.End End If
End Sub
Sub CloseData() if IsObject(conn) then conn.Close set conn=nothing end if End Sub %> 麻烦大虾们,帮帮我看,问题出在哪里啊,数据库用户名和密码不会出错,小弟我急,谢谢啊
我的qq是499345018
|