Set rs = Server.CreateObject("ADODB.Connection")
dbok = "Driver={Microsoft Access Driver (*.mdb)};Uid=;Pwd=;DBQ=" & Server.MapPath(dburl)
rs.open dbok
If Err Then
err.Clear
Set rs = Nothing
Response.Write "数据库连接出错!请检查inc/db.asp"
Response.End
End If
上述语中的rs错误。连接数据库正常要用conn,不能跟打开记录集的rs重名。修改后如下:
Set conn = Server.CreateObject("ADODB.Connection")
dbok = "Driver={Microsoft Access Driver (*.mdb)};Uid=;Pwd=;DBQ=" & Server.MapPath(dburl)
conn.open dbok
If Err Then
err.Clear
Set conn = Nothing
Response.Write "数据库连接出错!请检查inc/db.asp"
Response.End
End If
供参考。
不清楚呢 可能是链接地址不对
你换为根,目录试试!
换个链接字符串试试
dbok ="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dburl)