数据库连接出错,请检查连接字串
ConstDvCodeFile="DV_getcode.asp"'验证码文件,Inc/Main82.js还有一处需要修改,直接修改文件名,同时在空间上修改相应的文件名。C...
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 = "Dvbbs82"
Const SqlPassword = "admin"
Const SqlUsername = "admin"
Const SqlLocalName = "192.168.1.101"
'================================================================================================================
SqlNowString = "GetDate()"
Else
'必修改设置三:========================Access数据库设置==========================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称,如:将dvbbs8.mdb修改为dvbbs8.asp
Db = "../data/dvbbs8.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
'-----------------------------------------------------------------------------------------------------
可以在具体一点么我是 菜鸟 展开
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 = "Dvbbs82"
Const SqlPassword = "admin"
Const SqlUsername = "admin"
Const SqlLocalName = "192.168.1.101"
'================================================================================================================
SqlNowString = "GetDate()"
Else
'必修改设置三:========================Access数据库设置==========================================================
'免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称,如:将dvbbs8.mdb修改为dvbbs8.asp
Db = "../data/dvbbs8.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
'-----------------------------------------------------------------------------------------------------
可以在具体一点么我是 菜鸟 展开
展开全部
你检查一下连接字符串,别人做的网站数据库位置和你的不一样,你自己用需要重新连接一下。
希望对你能有所帮助。
希望对你能有所帮助。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你检查一下连接字符串,别人做的网站数据库位置和你的不一样,你自己用需要重新连接一下。
希望对你能有所帮助。
希望对你能有所帮助。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你设置的数据库路径是:db
=
"/data/jyrcw.asp"
也就是说这个数据库在【网站根目录】的【data】文件夹下面,你应该检查一下路径是否正确
=
"/data/jyrcw.asp"
也就是说这个数据库在【网站根目录】的【data】文件夹下面,你应该检查一下路径是否正确
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个问题比较厉害有挑战性,我需要你的服务器配置,是大型的服务器呢还是公司或网吧的服务器?因为这关系到我能不能精准的分析到底是哪个地方出错,以求更精准的回答你的问题
。
。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询