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

你这种情况是开启了安装  
你把 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/ 那就是二级目录了

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

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

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

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

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

程序放在 /dgzj/目录中

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