dim db
db="地址"
Set conn = Server.CreateObject("ADODB.Connection")
'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
connstr="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Server.MapPath(""&db&"")
On Error Resume Next
conn.Open connstr
If err.Number<>0 Then
Response.Write("写点提示什么的")
On Error Goto 0
Response.Redirect("http://备份地址")
Else
Response.Write("成功后不用提示,这里不要写")
End IF