| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3090 人关注过本帖
标题:求助!网上下载了一个ASP论坛,连接sql2008数据库不成功。
只看楼主 加入收藏
lucifer52
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-5-8
收藏
 问题点数:0 回复次数:3 
求助!网上下载了一个ASP论坛,连接sql2008数据库不成功。
网上下载了ASP论坛,新建了SQL数据库,论坛程序中的conn文件也更改了数据库名称,用户名,密码这些。可就是连接不上,IIS也配置好了。请各位帮忙想想是不是有什么问题。
我是本地搭建的,打开页面提示:数据库连接出错,请检查链接字串。

搜索更多相关主题的帖子: 网上 用户名 SQL数据库 数据库连接 
2017-05-08 14:58
lucifer52
Rank: 1
等 级:新手上路
帖 子:2
专家分:0
注 册:2017-5-8
收藏
得分:0 
这是conn的文件。每次都修改用户名,密码,数据库名,地址这些,每次都不行。
========================================================================================================================================
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True  
Response.Charset = "GB2312"

Dim Startime
Dim SqlNowString,Dvbbs,template,MyBoardOnline
Dim Conn,Plus_Conn,Db,MyDbPath
Startime = Timer()
MyDbPath = ""

Const DvCodeFile = "DV_getcode.asp" '验证码文件,Inc/Main82.js 还有一处需要修改,直接修改文件名,同时在空间上修改相应的文件名。
Const IsUrlreWrite = 0 '论坛伪静态设置 0=关闭,1=开启(需要在IIS添加ISAPI筛选,详细查看安装帮助)。
'系统采用XML版本设置
'最高版本为.4.0 依次为: Const MsxmlVersion=".3.0" Const MsxmlVersion=".2.6" 最低版本Const MsxmlVersion=""
Const MsxmlVersion=".3.0"
'可修改设置一:========================定义数据库类别,1为SQL数据库,0为Access数据库=============================
Const IsSqlDataBase = 1

'================================================================================================================
If IsSqlDataBase = 1 Then
    '必修改设置二:========================SQL数据库设置=============================================================
    'sql数据库连接参数:数据库名(SqlDatabaseName)、用户密码(SqlPassword)、用户名(SqlUsername)、
    '连接名(SqlLocalName)(本地用local,外地用IP)
    Const SqlDatabaseName = "dvbbs"
    Const SqlPassword = "dvbbs"
    Const SqlUsername = "dvbbs"
    Const SqlLocalName = "(local)"
    '================================================================================================================
    SqlNowString = "GetDate()"
Else
    '必修改设置三:========================Access数据库设置==========================================================
    '免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称,如:将dvbbs8.mdb修改为dvbbs8.asp
    Db = "data/dvbbs83.mdb"
    '================================================================================================================
    SqlNowString = "Now()"
End If

Const EnabledSession= true
Const IsDeBug = 1
Set Dvbbs = New Cls_Forum
Set template = New cls_templates
Sub ConnectionDatabase
    Dim ConnStr
    If IsSqlDataBase = 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(MyDbPath & db)
    End If
    On Error Resume Next
    Set conn = Dvbbs.iCreateObject("ADODB.Connection")
    conn.open ConnStr
    If Err Then
        err.Clear
        Set Conn = Nothing
        Response.Write "数据库连接出错,请检查连接字串。"'注释,需要把这几个字翻译成英文。
        Response.End
    End If
End Sub
'-----------------------------------------------------------------------------------------------------
'独立道具库连接设置
Sub Plus_ConnectionDatabase
    Dim ConnStr
    If IsSqlDataBase = 1 Then
        'sql数据库连接参数:数据库名、用户密码、用户名、连接名(本地用local,外地用IP)
        Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
        SqlDatabaseName = "dvbbs8"
        SqlPassword = "dvbbs"
        SqlUsername = "dvbbs"
        SqlLocalName = "(local)"
        ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
    Else
        Dim Db
        '免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称,如将dvbbs8.mdb修改为dvbbs8.asp
        Db = MyDbPath & "data/Dv_Plus_Tools.mdb"
        ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
    End If
    On Error Resume Next
    Set Plus_Conn = Dvbbs.iCreateObject("ADODB.Connection")
    Plus_Conn.open ConnStr
    If Err Then
        err.Clear
        Set Plus_Conn = Nothing
        Response.Write "插件数据库连接出错,请检查连接字串。"'注释,需要把这几个字翻译成英文。
        Response.End
    End If
End Sub
'-----------------------------------------------------------------------------------------------------
%>
2017-05-08 15:37
xixi2006
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2016-11-14
收藏
得分:0 
一般这种情况还是配置不对才会连接不上的。
2017-08-25 09:23
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:125
帖 子:1034
专家分:5519
注 册:2016-5-10
收藏
得分:0 

2008数据库连接数据库的语句应该是这样的,一般是以sa登录名称登录的,你的连接语句好像有问题。
 "provider=SQLOlEDB.1;persist security info=false;data source=local;user id=sa;Password=sa的登录密码;initial catalog =数据库名称"

请不要选我!!!
2017-09-15 18:40
快速回复:求助!网上下载了一个ASP论坛,连接sql2008数据库不成功。
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.022928 second(s), 11 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved