Question

IIS登陆，出现 系统错误：数据库连接出错请，检查'系统管理>>站点常量设置',或者/Include/Cons.asp文件

请问 如何更改数据库文件路径啊？？？
文件放在C：／TDDownload里，虚拟目录设置的也是这个！
<%
dim SysFileUrl
dim SysRootDir,SiteDataPath,SiteDataBakPath,StatDataPath,StatDataBakPath
dim UrlFileName
Dim Conn,ConnStr

SysFileUrl=split(replace(Request.ServerVariables("URL"),"\","/"),"/")
SysRootDir = "c:/TDDownload/" '系统运行的目录,后面需加/
if ubound(SysFileUrl)-2>=1 then
dim iii
for iii=1 to (ubound(SysFileUrl)-2)
SysRootDir = SysRootDir&SysFileUrl(iii)&"/"
next
end if
SiteDataPath = SysRootDir&"/Database/Wrzcnet#.mdb" '网站常规库路径
SiteDataBakPath = SysRootDir&"/Database/Bak_Wrzcnet#.mdb" '网站备份库路径

StatDataPath = SysRootDir&"/Count/Wrzcnet_Data/Wrzcnet_count#.mdb" '统计常规库路径
StatDataBakPath = SysRootDir&"/Count/Wrzcnet_Data/Bak_Wrzcnet_count#.mdb" '统计备份库路径

UrlFileName = mid(request.ServerVariables("SCRIPT_NAME"),InStrRev(request.ServerVariables("SCRIPT_NAME"),"/")+1)
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(SiteDataPath)
Conn.open ConnStr
if err then
err.clear
Set Conn = Nothing
Response.Write "系统错误：数据库连接出错，请检查'系统管理>>站点常量设置',或者/Include/Const.asp文件!"
Response.End
end if
%>
<!--#include file="Function.asp" -->

Answer 1

你的好复杂啊，看我的

db="zydj.asp" ’数据库文件就放在网站目录下
set rs=server.CreateObject("ADODB.Recordset")
set conn=server.createobject("adodb.connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
conn.open connstr

Answer 2

temp 给iuser写入权限即可。

Answer 3

Cons.asp该文件的路径对吗?