代码如下:
<%
'==================数据库路,变量名多处使用,请不要改动
Dim DatabasePath,DatabasePathBak,ab
ab="mdb/guanli.mdb"
DatabasePath=ab
DatabasePathBak=ab
'==================数据库连接
Dim Conn,ConnStr
On error resume next
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(DatabasePath)
Conn.open ConnStr
if err then
err.clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查数据库连接文件中的数据库参数设置。"
Response.End
end if
%>
局域网的一个小网站,昨天电脑重新装了一下系统就访问不了了。直接”数据库连接出错,请检查数据库连接文件中的数据库参数设置“。百度上搜了一下说是系统把部分功能去掉了所以不能访问。还有的说系统什么文件破坏了,但是把那个文件替换了还是不行。请教一下高手是什么原因。本人用是xp 盗版的。