Question

asp高手 帮忙看一段代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
Response.Charset="utf-8"
%>
<%
dim db
const DatabaseType="ACCESS"
db="asp/Database/szssdl3465888~-().mdb"
On Error Resume Next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End
End If
sub CloseConn()
On Error Resume Next
If IsObject(Conn) Then
conn.close
set conn=nothing
end if
end sub
%>
一直报错 说配置不对，数据路路径没问题啊
我传到 空间里运行就正常了 在我本地运行不正常
Microsoft VBScript 编译器错误 '800a0409'
未结束的字符串常量
\conn.asp, line 18

Answer 1

'On Error Resume Next
请先注释掉这句，然后再运行程序，什么错，哪行错，就一目了然了，再不懂的话你就把错误提示信息帖上来，再帮你解决

追问

去掉了 那句 依然是数据库连接出错，请检查Conn.asp文件中的数据库参数设置

追答

不是吧，你把这里面的
db="asp/Database/szssdl3465888~-().mdb"
'On Error Resume Next 这句注释掉了还是提示“数据库连接出错，请检查Conn.asp文件中的数据库参数设置”？？太不可能吧？我很疑惑！
请用以下排除法，分析问题所在。
1、db="asp/Database/szssdl3465888~-().mdb"
在这后面加入下面代码，看看是否是路径错误
Response.Write(Server.MapPath(db)):Response.End()
2、如果不是上面路径问题，那应该是目录权限问题，结数据库目录，请写权限
3、还是没有办法解决，直接Q呼叫我：2303-7208

Answer 2

虚拟空间里 网站运行正常，而你的本机不正常？？？
1、你再数据库看看路径
2、文件权限你再确定一下
3、szssdl3465888~-()重新改个名字试试

追问

数据库改成1.mdb 了 也不会是只读
个人感觉问题出在这里
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End

追答

你的系统会不会是WINXP，QQ56300877我看看

Answer 3

是不是数据库文件名太特殊了:asp/Database/szssdl3465888~-().mdb
改一个简单一点的,比如ASP/DATABASE/TEST.MDB看看行不行啊!

追问

我传到购买的虚拟空间里 网站运行正常，但是在本地 iis下测试 就是提示我 数据库配置不正确 是否我的电脑设置问题

追答

那有可能,不过个人感觉你除了数据库文件名特殊外,别的没啥,你看看你的数据库文件的属性是不是只读之类的啊!

追问

数据库改成1.mdb 了 也不会是只读
个人感觉问题出在这里
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"
Response.End

追答

if err.count>0 then

Answer 4

是不是你自己电脑数据库驱动没装或有问题啊，Access2003数据库驱动重新安装下，网上有下载的，或者office2003安装下，记得勾选Access。

Answer 5

\asp\Database\szssdl3465888~-().mdb