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

Dim dburl : dburl = webpath & "/dgzj/yidacmsDB/#vipdb.asp"
改成
Dim dburl : dburl = webpath & "yidacmsDB/#vipdb.asp"

Dim webpath : webpath = "/"
改成
Dim webpath : webpath = "/dgzj/"

程序放在 /dgzj/目录中

数据库链接出错，第一是权限问题，虚拟主机已排除。 剩下就是路径问题
没别的问题

是不是其他地方不对啊？

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

我刚看到  你这里 Dim dburl : dburl = webpath & "/dgzj/yidacmsDB/#vipdb.asp"

怎么多了一个 /dgzj/ ???? 这里是默认的。不需要你添加认何东西

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

如果你设置的Dim webpath : webpath = "/dgzj/"  是这样
那么你的程序就应该放在 dgzj 目录内 dgzj 是你的二级目录

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

<%
'※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
'※  易达所有系列的建站系统(易达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"        '后台应用商店
%>

你这种情况是开启了安装  
你把 yidacms.db.asp Dim TXW_install : TXW_install = "open"        '安装开关
改成Dim TXW_install : TXW_install = "close"        '安装开关

另外，你说提示数据库出
那么就是
Dim webpath : webpath = "/"
设置出错
如果程序是在根目录  默认为 Dim webpath : webpath = "/" 即可
如果放在二级目录 如  demo
Dim webpath : webpath = "/demo/" 即可

不同的虚拟主机根目录不一样，有些www是根目录，你直接把程序上传到www内 Dim webpath : webpath = "/" 即可。
还有些主机是 wwwroot 是根目录 还有些主机是 htdocs 是根目录

不管是什么，只要是根目录 Dim webpath : webpath = "/" 就可以
如果是 www/demo/ 那就是二级目录了

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