asp+access数据库连接出错！

下面是模板中自带的
我自己测试可以！上传到网站就不行了！
<%
StrSQL="DBQ="+server.mappath("Db/**.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
%>
免费空间上有说明.还是改不了
How do I connect to my MS Access database?

Make sure your database is in the "db" directory in your file space.
Here is a sample ASP code to connect to a MS Access database.
Dim Conn
Set Conn = Server.CreateObject("ADODB.Connection")
strConnection = "DRIVER=Microsoft Access Driver(*.mdb);DBQ=" & Server.MapPath("/USERNAME/db/yourdatabase.mdb")
oConn.Open(strConnection)
....
...
oConn.Close
谁给我修改下!

----------conn.asp 文件内容------------
<%
dim conn
dim connstr
dim db
db="data/dsss.mdb"
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
conn.Open connstr
sub closedatabase()
conn.close
set conn=Nothing
End sub
%>

这个是我一直用的ACCESS连接格式,都没有出过问题.
而我看了你的连接,也看不出什么问题.

我猜想三个原因:
其一,你的免费空间的地址不能用"Db/**.mdb" ,就是地址程序找不到,你试一下地址换一种格式.
其二,数据连接驱动格式不对,或是前后倒置了.
StrSQL="DRIVER=Microsoft Access Driver(*.mdb);DBQ=" & Server.MapPath("/USERNAME/db/yourdatabase.mdb")
其三,是字符运算符 应用 "&" ,而不用 "+".

希望你能解决此问题.

回答者： 116.253.133.* 2009-6-14 11:44 我忘记登录了.

我给你补充了一下代码. 认识看一下啊. if rs.recordcount=0 then else for i=0 to rs.fields.count-1 response.write " " & rs.fields(i).name &" " next while not rs.eof response.write " " for i=0 to rs.fields.count-1 response.write " " & rs.fields(i).value & " " next rs.movenext strifc = strifc response.write strifc wend end if set rs=nothing %>