上传了本地修改过口令码的Yidacms.db文件后网站无法访问

请问是什么原因呢。

现在又出现“数据库连接出错！请检查 /inc/Yidacms.db.asp”的错误提示，我网站是用虚拟主机的子站功能建设的，目录格式为：www/目录名，请问这种要修改Yidacms.db.asp文件里的目录吗？

谢谢管理员耐心解答，我已经照你说的改了，还是不行。以下是我的代码，请帮忙看看是哪里有问题。

<%
'※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
'※  易达所有系列的建站系统(易达JS、易达X、易达WAP)            ※
'※  由哈尔滨伟成科技有限公司开发完成，软件享有著作权及版权    ※
'※  著作权号：2012SR001955     网址：http://www.yidacms.com   ※
'※  未经公司授权禁止去除版权信息或出售源码，发现后果自负      ※
'※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

On Error Resume Next

Dim rs

Dim webpath : webpath = "/dgzj/"

'网站存放目录 / 表示根目录,如果放在二级目录  需修改 /二级目录名/


Dim validation : validation = "159753"           

'后台关键地方的口令验证码，修改自已能记住的号码(数字类型)


Dim actoms : actoms = 1                           

'数据库启动器,1表示ACCESS数据库 2表示MSSQL数据库


'#####################SQL数据库配置############################

Dim YidaCms_Sqlurl : YidaCms_Sqlurl = "127.0.0.1"      '数据库地址,如果在本地测试请保持默认。
Dim YidaCms_Sqltable : YidaCms_Sqltable = "YidaCms"      '数据库名称,没有请手动创建一个。
Dim idaCms_Sqlname : YidaCms_Sqlname = "sa"            '数据库用户名
Dim YidaCms_Sqlpass : YidaCms_Sqlpass = "tangwei"       '数据库密码

'#####################ACCESS数据库配置#########################

Dim key : key = "t^ang*x^iao*w^ei"
Dim dburl : dburl = webpath & "/dgzj/yidacmsDB/#vipdb.asp"

'#####################生成静态目录配置#########################

Dim YidaCms_htmlurl : YidaCms_htmlurl = Array("news","products","photo","video","about","html","down","book")
                                              '0    ,1         ,2      ,3      ,4      ,5     ,6     ,7

'######################数据库处理事件##########################

Dim dbok

if actoms = 1 then

Set rs = Server.CreateObject("Adodb.Connection")
dbok = "rovider=Microsoft.Jet.OLEDB.4.0;Jet Oledbatabase Password=" & key & ";Data Source=" & Server.MapPath(dburl)
rs.open dbok

elseif actoms = 2 then

Set rs = Server.CreateObject("Adodb.Connection")
dbok = "rovider=Sqloledb;User ID="&YidaCms_Sqlname&"assword="&YidaCms_Sqlpass&";Initial CataLog="&YidaCms_Sqltable&";Data Source="&YidaCms_Sqlurl&";"
rs.open dbok

end if

If Err Then
        err.Clear
        Set rs = Nothing
        Response.Write "数据库连接出错！请检查 " & webpath & "inc/Yidacms.db.asp"
        Response.End
End If

'######################各类控制域变量##########################

Dim TXW_install : TXW_install = "close"        '安装开关
Dim TXW_book : TXW_book = "open"                '是否过滤留言板
Dim TXW_newv : TXW_newv = "open"                '新版本提醒
Dim TXW_alipay : TXW_alipay = "one"                '支付宝
Dim TXW_weixin : TXW_weixin = "close"        '微信
Dim TXW_appshop : TXW_appshop = "open"        '后台应用商店
%>

我两种都试过了，带目录名和不带目录名都不行，都出现这个错误，不知道是哪里损坏了，看来只能重新安装了。

谢谢管理员。但我还是无论怎么改都不行。

是不是其他地方不对啊？

还是不行，真的是很奇怪了。