ASP！帮我下！谢谢！高悬赏！又追加

<%
on error resume next
dim conn
dim connstr
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("data/zxsoudata.asp")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
If Err Then
Response.Write("系统升级中")
'也可以用提示框来跳转，两者二选一!
Response.Write("")
Response.End
End If
%>

<%
on error resume next
dim conn
dim connstr
set conn=server.CreateObject("adodb.connection")
DBPath = Server.MapPath("data/zxsoudata.asp")
conn.open "provider=microsoft.jet.oledb.4.0; data source="&DBpath
If Err Then
Response.redirect "index.asp"
Response.End
End If
%>

response.write("")
重定向到index.asp,我这个绝对管用

Response.Redirect "index.asp"

response.write("")