Question

asp+access在服务器连接不上access问题

在本地用IIS调试.Exe可以访问，但是发布到服务器就不能访问了。
下面是代码：
config.asp

<%
'--------------------------------------
'数据库文件名
const db = "#@Sqldb@#"
'--------------------------------------
'您的网站名称
const WebName = "我的网站"
%>

conn.asp
<% option explicit

dim startime
dim conn
dim connstr
startime=timer()
%>
<!--#INCLUDE file="config.asp" -->
<%
ConnectionDatabase
Sub ConnectionDatabase
Dim ConnStr
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
CloseDatabase
Response.Write "由于在线用户突破万人，造成数据拥挤，请尝试刷新。对此感到非常抱歉！如果刷新仍无反映。请稍后访问！"
Response.End
End If
End Sub

Sub CloseDatabase
Conn.close
Set conn = Nothing
End Sub

dim hx,CacheTime,IsSqlDataBase
set hx=new cls_qzonev_com
dim hxcache
set hxcache=new cls_cache
hxcache.CacheName="qzonev_com"
hxcache.Name="js"
hxcache.Reloadtime=CacheTime

Dim SqlNowString
If IsSqlDataBase = 1 Then
SqlNowString = "GetDate()"
Else
SqlNowString = "Now()"
End If%>
<!--#INCLUDE file="class.asp" -->
数据库在网站根目录

Answer 1

把 const db = #@Sqldb@# 中的特殊字符暂改为 abc等 即去除特殊字符
看是否空间不支持特殊字符识别

另 const db = 这里应该是个完整的相对路径,并含文件名

追问

谢谢，数据库文件在源码根目录，应该怎么写相对路径

追答

const db ='/db/db.asa" '根目录下的db文件夹的db.asa文件

追问

我的数据库文件放在根目录，直接写数据库文件名就行了吧。我的数据库文件没有后缀名可以吗

追答

数据库文件放在根目录，直接写数据库文件名就行了
数据库文件没有后缀名是不可以的

追问

访问错误提示“3704”是什么意思

追答

是指页面前面已经关闭了某个对象，但是页面下面你又继续使用了这个对象

追问

你看我贴出来的源码哪里有问题吗？我是小菜丝，不懂……

追答

贴出来的源码看不出问题
错误提示应该会有 什么文件 多少行上 出错

Answer 2

response.write err

'Response.Write "由于在线用户突破万人，造成数据拥挤，请尝试刷新。对此感到非常抱歉！如果刷新仍无反映。请稍后访问！"

'输出ERR错误代码看看。。。是什么提示。。。

追问

3704

追答

对象关闭时，不允许操作..

检查一下那里，是不是已经关闭了ADODB.Recordset

追问

谢谢。怎样让所有的错误信息显示出来

追答

If Err Then
err.Clear
CloseDatabase
Response.Write "由于在线用户突破万人，造成数据拥挤，请尝试刷新。对此感到非常抱歉！如果刷新仍无反映。请稍后访问！"
Response.End
End If
这段先屏掉，在IIS里设置，错误代码显示到浏览器，，

追问

谢谢你，已经解决了。

Answer 3

不能访问的出错代码是什么

追问

网页显示代码中的这个
Response.Write "由于在线用户突破万人，造成数据拥挤，请尝试刷新。对此感到非常抱歉！如果刷新仍无反映。请稍后访问！"