UC知道ASP登陆 数据库连接出错
来源：百度知道 编辑：UC知道 时间：2024/09/19 16:08:08
<%
response.buffer = True '启用缓冲处理
Dim conn, db
Dim connstr
db = "../data/!@#$%pcfinal.mdb"'数据库链接路径
connstr = "DBQ=" + server.mappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn = server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
Response.End
End If
Sub Chkhttp()
server_vv = Len(Request.ServerVariables("SERVER_NAME"))
server_v1 = Left(CStr(Request.ServerVariables("HTTP_REFERER")), server_vv)
server_v2 = Left(CStr("http://"&Request.ServerVariables("SERVER_NAME")), server_vv)
If server_v1<>server_v2 Or server_v1 = "" Or server_v1 = "" Then
response.Charset = "utf-8"
response.buffer = True '启用缓冲处理
Dim conn, db
Dim connstr
db = "../data/!@#$%pcfinal.mdb"'数据库链接路径
connstr = "DBQ=" + server.mappath(""&db&"") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
Set conn = server.CreateObject("ADODB.CONNECTION")
conn.Open connstr
If Err Then
Err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查数据库连接文件中的数据库参数设置。"
Response.End
End If
Sub Chkhttp()
server_vv = Len(Request.ServerVariables("SERVER_NAME"))
server_v1 = Left(CStr(Request.ServerVariables("HTTP_REFERER")), server_vv)
server_v2 = Left(CStr("http://"&Request.ServerVariables("SERVER_NAME")), server_vv)
If server_v1<>server_v2 Or server_v1 = "" Or server_v1 = "" Then
response.Charset = "utf-8"
server.mappath(""&db&"") 说明你的数据库是使用了服务器的相对路径
db = "../data/!@#$%pcfinal.mdb"在data前面加了../表示要访问上一级目录
这样相当于你要在服务器给你的相对路径的上一级目录找数据库文件，那当然是找不到的
正常情况应该是不加../，并且把放数据库的data文件夹放在网站的根目录下就可以了，只有在data目录和网站根目录并级的时候才加../
数据库连接位置正确不