Question

总是提示：数据库连接出错，请检查

<%
' FSO 系统自定义
'--------------------------------------------------------------------------------
dim Const_ScriptFileSystem
Const_ScriptFileSystem="Scripting.FileSystemObject"
if not IsObjInstalled("Scripting.FileSystemObject") Then
Response.Write "<b><font color=red>你的服务器不支持 FSO，不能使用本系统！</font></b>"
Response.End
end if
'定义变量
dim conn,connstr,datapath,datafile,connftp,connstrftp,dbftp
datapath ="/data/" '数据库目录的相对路径，必须以"/"结束
datafile ="#data.mdb" '数据库的文件名
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(datapath&datafile)
ver="V7.0 Access Server"
set rs=server.createobject("ADODB.Recordset")
Set fso=Server.CreateOBject(Const_ScriptFileSystem)
On Error Resume Next
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
'ftp数据库链接
dbftp="ftp.mdb" 'ftp数据库的文件名
connstrftp="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(datapath&dbftp)
set connftp=server.createobject("ADODB.CONNECTION")
connftp.open connstrftp
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查！"
Response.End
End If
On Error GoTo 0
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If 0 = Err Then IsObjInstalled = True
Set xTestObj = Nothing
Err = 0
这个连接数据库是那点错了 啊 ！！！怎么老是提示数据连接出错啊！如果使用下面这种连接就不会了
Response.End
end if
dim conn,connstr,db
db="data/#data.mdb" '数据库文件位置
on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
set rs=server.createobject("ADODB.Recordset")
set conn=server.createobject("ADODB.CONNECTION")
if err.number<>0 then
err.clear
set conn=nothing
response.write "<br><br><center><font style='font-size:12px;color:ff0000'>系统数据库连接出错，请检查！</font></center>"
Response.End
else
conn.open connstr
if err then
err.clear
set conn=nothing
response.write "<br><br><center><font style='font-size:12px;color:ff0000'>系统数据库连接出错，请检查！</font></center>"
Response.End
end if
但关键是第一种是那点错了，该怎么修改，

Answer 1

这个问题有点深奥啊，数据库当初没学，连VB也学得比较烂，知识到用的时候才知道少，真是惭愧啊。。。建议到一些学习论坛问问，也许会有收获。

Answer 2

看到编程类语言的就头大。