Loading...
  所在位置:论坛首页 -> ┈┋BBSGood专区┋┈ -> 『BBSGood论坛交流』 -> [求助]江湖救急啊,大虾们帮帮小弟我了,系统提示“数据库连接出错,请检查连接字串。”
标题:[求助]江湖救急啊,大虾们帮帮小弟我了,系统提示“数据库连接出错,请检查连接字串。”
作者:dreamerqiu 发表于 2008-8-29 8:17:17收藏 编辑 删除 楼主 | 上一篇 下一篇

大虾们,小弟我是刚入门开始做论坛,我用的系统是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                                                                                               

 

顶部
 作者:青蛙王子 发表于 2008-8-29 14:05:44编辑 删除 引用   第2楼 

'必修改设置二:========================SQL数据库设置============================================================
    'sql数据库连接参数:数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
    '连接名(SqlLocalName)(本地用local,外地用IP)
    Const SqlDatabaseName = "bbsgood"
    Const SqlPassword = "*******"
    Const SqlUsername = "bbs_user"
    Const SqlLocalName = "(local)"

你确定你在mssql里有个数据库叫bbsgood,并导入了数据吗?

你确定你有个数据库用户名叫bbs_user,并拥有访问权限吗?

点此打开链接!艺术字库   点此打开链接!南充博客网
点此打开链接!山翁传奇故事
顶部
 快速回复
  • 支持UBB,HTML标签

  • 高级回复

  • 操作选项: 评分 加精 解精 奖惩 设专题 设公告 解公告 固顶 总固顶 解固顶 结帖 解结帖 锁帖 解锁 移帖 删帖
      首页 | 购买指南 | 商业版本 | 虚拟主机 | 特色介绍 | 下载中心 | 支付方式
    Copyright 2004-2008 BBSGood.com Powered By: BBSGood.Speed Version 5.0
      咨询电话:0575-85513832、0575-85513825(传真)、7*24小时咨询服务:13606552007 不良信息举报中心 浙ICP备05029817号
      业务QQ:38958768、客服QQ1:415896239、客服QQ2:343896043、MSN:jccsxx@hotmail.com