注册 登录
编程论坛 ASP技术论坛

ASP数据连接问题

DCQZ 发布于 2010-07-27 16:16, 619 次点击
我把我的全部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"   
'
'========配置信息结束==========================================================
%>
7 回复
#2
DCQZ2010-07-27 16:18
之前放在虚拟目录下面就可以,但是我现在在虚拟目录下面多建了一个V3的文件夹,把他们全部放进去,然后修改像上面的路径就连接不上
#3
___哥特式2010-07-27 20:01
很明显后台和前台用的不是同一个连接串 ...?

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

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

自然就找不到了 ...
#4
gupiao1752010-07-27 20:51
用了server.mappath(路径)这个没?
#5
hams2010-07-28 08:59
没改动之前的代码贴一下。
#6
DCQZ2010-07-28 09:32
比如:我的网站文件放在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 编辑 ]
#7
DCQZ2010-07-28 09:38
回复 5楼 hams
比如:我的网站文件放在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
#8
DCQZ2010-07-28 09:38
回复 4楼 gupiao175
用了
1