我把网站传到空间后打开的时提示
Microsoft JET Database Engine 错误 '80004005'
找不到文件 'D:\hosting\users\s123460\database\#6.5.mdb'。
/conn.asp,行22
<%
response.Buffer=True
Db ="database/#6.5.mdb" '数据库路径
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db)
SqlNowString="Now()"
SqlChar="'"
'On error Resume Next
Set conn=Server.CreateObject("ADODB.connection")
conn.open connStr
If Err Then
err.Clear
Set conn = Nothing
response.redirect "close.asp?error=1"
End If
On error GoTo 0
Function ReplaceText(fString,patrn,replStr)
Set regEx = New RegExp ' 建立正则表达式。
regEx.Pattern = patrn ' 设置模式。
regEx.IgnoreCase = True ' 设置是否区分大小写。
regEx.Global = True ' 设置全局可用性。
ReplaceText = regEx.Replace(""&fString&"",""&replStr&"") ' 作替换。
Set reg=nothing
End Function
sub CloseDatabase
conn.Close
set Rs=nothing
set Rs1=nothing
set conn=nothing
set SiteSettings=nothing
response.End
end sub
%>