免费PHP万能建站系统_社区团购SaaS_商城系统_软件开发_虚拟币交易所系统_矿机系统_微信钻石投票系统_成品源码

标题: 上传了本地修改过口令码的Yidacms.db文件后网站无法访问 [打印本页]

作者: radishasj 时间: 2018-1-6 11:04
标题: 上传了本地修改过口令码的Yidacms.db文件后网站无法访问

请问是什么原因呢。

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

作者: admin 时间: 2018-1-7 21:19
你这种情况是开启了安装
你把 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/ 那就是二级目录了

作者: radishasj 时间: 2018-1-8 08:36
谢谢管理员耐心解答，我已经照你说的改了，还是不行。以下是我的代码，请帮忙看看是哪里有问题。

<%
'※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※
'※  易达所有系列的建站系统(易达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 Oledb

atabase 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" '后台应用商店
%>

作者: admin 时间: 2018-1-8 13:06
如果你设置的Dim webpath : webpath = "/dgzj/" 是这样
那么你的程序就应该放在 dgzj 目录内 dgzj 是你的二级目录

作者: radishasj 时间: 2018-1-8 13:16
我两种都试过了，带目录名和不带目录名都不行，都出现这个错误，不知道是哪里损坏了，看来只能重新安装了。

作者: admin 时间: 2018-1-8 14:04
我刚看到你这里 Dim dburl : dburl = webpath & "/dgzj/yidacmsDB/#vipdb.asp"

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

作者: radishasj 时间: 2018-1-8 14:11

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

作者: radishasj 时间: 2018-1-8 14:12
是不是其他地方不对啊？

作者: admin 时间: 2018-1-8 14:16
Dim dburl : dburl = webpath & "/dgzj/yidacmsDB/#vipdb.asp"
改成
Dim dburl : dburl = webpath & "yidacmsDB/#vipdb.asp"

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

程序放在 /dgzj/目录中

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

作者: radishasj 时间: 2018-1-8 14:25

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

欢迎光临免费PHP万能建站系统_社区团购SaaS_商城系统_软件开发_虚拟币交易所系统_矿机系统_微信钻石投票系统_成品源码 (https://ourphp.net/club/)