我把我的全部ASP网站文件都放在一个V3的文件里面，下面的这些数据库连接不上了



<%
'文件位置：/Include/Const.asp
'
'注意：单引号"'"不能去掉，请不要使用回车
'建议：只改字符，不要增加、删除
'''========网站系统参数==========================================================
'
Const SysRootDir = "/"                                    
'
Const SiteDataPath = "/v3/SiteMB/$#tys-freeder_cn#$@.asp"      
Const SiteDataBakPath = "/v3/SiteMB/Bak_TeeYes_freeder.asp"  
Const StatDataPath = "/v3/SiteMB/TeeYes_Stat.asp"         
Const StatDataBakPath = "/v3/SiteMB/Bak_TeeYes_Stat.asp"   
'
'========配置信息结束==========================================================
%>

之前放在虚拟目录下面就可以，但是我现在在虚拟目录下面多建了一个V3的文件夹，把他们全部放进去，然后修改像上面的路径就连接不上

很明显后台和前台用的不是同一个连接串 ...?

前台访问的是 .MDB 文件 ...

后台试图访问的是一个 .ASP 文件 ...

自然就找不到了 ...

用了server.mappath(路径)这个没？

没改动之前的代码贴一下。

比如：我的网站文件放在A文件夹里面
后来我在A文件夹里面再建一个B，把网站文件放到B里面


没改动之前的代码
<%
'文件位置：/Include/Const.asp
'
'注意：单引号"'"不能去掉，请不要使用回车
'建议：只改字符，不要增加、删除
'''========网站系统参数==========================================================
'
Const SysRootDir = "/"                                    
'
Const SiteDataPath = "/SiteMB/$#tys-freeder_cn#$@.asp"      
Const SiteDataBakPath = "/SiteMB/Bak_TeeYes_freeder.asp"  
Const StatDataPath = "/SiteMB/TeeYes_Stat.asp"         
Const StatDataBakPath = "/SiteMB/Bak_TeeYes_Stat.asp"   
'
'========配置信息结束==========================================================
%>






连接打开数据库文件代码
<%
Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=" & GetDbPass() & ";Data Source=" & Server.MapPath(SiteDataPath) & ""
Conn.open ConnStr
if err then
   err.clear
   Set Conn = Nothing
   Response.Write "系统错误：数据库连接出错，请联系QQ-37732!"
   Response.End
end If

[ 本帖最后由 DCQZ 于 2010-7-28 09:34 编辑 ]

比如：我的网站文件放在A文件夹里面
后来我在A文件夹里面再建一个B，把网站文件放到B里面


没改动之前的代码
<%
'文件位置：/Include/Const.asp
'
'注意：单引号"'"不能去掉，请不要使用回车
'建议：只改字符，不要增加、删除
'''========网站系统参数==========================================================
'
Const SysRootDir = "/"                                    
'
Const SiteDataPath = "/SiteMB/$#tys-freeder_cn#$@.asp"      
Const SiteDataBakPath = "/SiteMB/Bak_TeeYes_freeder.asp"  
Const StatDataPath = "/SiteMB/TeeYes_Stat.asp"         
Const StatDataBakPath = "/SiteMB/Bak_TeeYes_Stat.asp"   
'
'========配置信息结束==========================================================
%>






连接打开数据库文件代码
<%
Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=" & GetDbPass() & ";Data Source=" & Server.MapPath(SiteDataPath) & ""
Conn.open ConnStr
if err then
   err.clear
   Set Conn = Nothing
   Response.Write "系统错误：数据库连接出错，请联系QQ-37732!"
   Response.End
end If

用了