<%
'数据库连接文件
On Error Resume Next
response.buffer=true 
Const DbType = "ACCESS" 
dim datatype,conn,DB5,ConnStr5

     db5="data/#c@o&m%.mdb"
     ConnStr5 = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db5) 
Set conn = Server.CreateObject("ADODB.Connection") 
conn.Open connstr5
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "<script Language=javascript>location.href = '对不起，访问量过高，您暂时无法登陆网站,请稍后访问！';</script>"
Response.End
End If %>