测试时没有任何显示,也没有任何报错,请问这是错在哪
测试时没有任何显示,也没有任何报错
response.buffer = True '启用缓冲处理
Dim conn, db
Dim connstr
db = "../data/data.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"数据库连接出错!"
else
Response.Write "OK"
End If