<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
Dim action,Message
action = Trim(Replace(request("action"),"'", "''"))
Message = Trim(Replace(Request.Querystring("message"),"'", "''"))

Select Case action
        Case "error"
                Call Error_Msg()
        Case "succeed"
                Call Succeed_Msg()
        Case "stop"
                Call StopRemind()
        Case "iplock"
                Call iplock()
        Case Else
                Call Error_Msg()
End Select
CloseConn
sub Error_Msg()
        response.write "<TITLE>错误报告！　Error Information</TITLE>"& vbCrLf
        response.write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">"& vbCrLf
        response.write "<LINK href=""style.css"" type=text/css rel=stylesheet>"& vbCrLf
        response.write "<BR><BR>"& vbCrLf
        response.write "             <TABLE align=center bgColor=#DEDFDE cellpadding=""2"" cellspacing=""0"" border=0 style=""border: outset 2px;width:65%;"">"& vbCrLf
        response.write "              <TR>               "& vbCrLf
        response.write "      <TD height=18 style=""FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#294184', endColorStr='#A5CBF7', gradientType='1')""><b><font color=#FFFFFF>错误报告！　Error Information</FONT></b></td>"& vbCrLf
        response.write "      <TD align=right bgColor=#A5CBF7><a href=javascript:window.close()><img src=""./images/close.gif"" width=""18"" height=""15"" border=0 align=""absmiddle""></a></td>"& vbCrLf
        response.write "    </tr>"& vbCrLf
        response.write "              <TR>"& vbCrLf
        response.write "                <TD colSpan=2>"& vbCrLf
        response.write "                  <FIELDSET><LEGEND accessKey=F align=left>产生错误的可能原因：</LEGEND>"& vbCrLf
        response.write "                  <TABLE align=center cellSpacing=2 cellPadding=2 width=""90%"" border=0>"& vbCrLf
        response.write "                    <TR>"& vbCrLf
        response.write "                      <TD>"&message&"</TD>"& vbCrLf
        response.write "                      </TD></TR>"& vbCrLf
        response.write "                    <TR>"& vbCrLf
        response.write "                      <TD height=25 align=middle colSpan=2><BR><INPUT onclick=javascript:history.go(-1) type=submit value="" 确 定 "" name=submit></TD></TR></TABLE></FIELDSET> "& vbCrLf
        response.write "                  </TD></TR></TABLE></TD></TR></TABLE>"& vbCrLf
End Sub
'********成功提示信息****************
Sub Succeed_Msg()
        response.write "<TITLE>成功信息！　Success Information</TITLE>"& vbCrLf
        response.write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">"& vbCrLf
        response.write "<LINK href=""style.css"" type=text/css rel=stylesheet>"& vbCrLf
        response.write "<BR><BR>"& vbCrLf
        response.write "             <TABLE align=center bgColor=#DEDFDE cellpadding=""2"" cellspacing=""0"" border=0 style=""border: outset 2px;width:65%;"">"& vbCrLf
        response.write "              <TR>"& vbCrLf
        response.write "                "& vbCrLf
        response.write "      <TD height=18 style=""FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#102873', endColorStr='#A5CBF7', gradientType='1')""><b><font color=#FFFFFF>成功信息！　Success Information</FONT></b></td>"& vbCrLf
        response.write "      <TD align=right bgColor=#A5CBF7><a href=javascript:window.close()><img src=""./images/close.gif"" width=""18"" height=""15"" border=0 align=""absmiddle""></a></td>"& vbCrLf
        response.write "    </tr>"& vbCrLf
        response.write "              <TR>"& vbCrLf
        response.write "                <TD colSpan=2>"& vbCrLf
        response.write "                  <FIELDSET><LEGEND accessKey=F align=left>操作成功！</LEGEND>"& vbCrLf
        response.write "                  <TABLE align=center cellSpacing=2 cellPadding=2 width=""90%"" border=0>"& vbCrLf
        response.write "                    <TR>"& vbCrLf
        response.write "                      <TD>"&message&"</TD>"& vbCrLf
        response.write "                      </TD></TR>"& vbCrLf
        response.write "                    <TR>"& vbCrLf
        response.write "                      <TD height=25 align=middle colSpan=2><BR><INPUT onclick=javascript:location.href='"&Request.ServerVariables("HTTP_REFERER")&"' type=submit value="" 确 定 "" name=submit></TD></TR></TABLE></FIELDSET> "& vbCrLf
        response.write "                  </TD></TR></TABLE></TD></TR></TABLE><BR><BR>"& vbCrLf
End Sub
'********提示信息****************
Sub iplock()
        Response.Write "<html><head><title>IP锁定!</title><meta http-equiv=Content-Type content=text/html; charset=gb2312>" & vbCrLf
        Response.Write "<link href=admin/style.css rel=stylesheet type=text/css></head><body><br><br>" & vbCrLf
        Response.Write "<BR><table cellpadding=5 cellspacing=1 border=0 width=65% align=center class=tableBorder>" & vbCrLf
        Response.Write "  <tr><th>IP被限制!</th></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow>您的IP(" & DownsysClass.GetUserip &")被系统限制，您可以和<a href='mailto:"&DownsysClass.Setting(2)&"'>管理员联系。</a></td></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow align=""right"" style='COLOR: Red;'>时间：" & DownsysClass.NowTime & "</td></tr>" & vbCrLf
        Response.Write "  <tr><td align=center class=forumRowHighlight>[<a href=""javascript:window.close()"">关闭本窗口</a>]</td></tr>" & vbCrLf
        Response.Write "</table><BR>" & vbCrLf
        Response.Write "</body></html>" & vbCrLf
End Sub
Sub StopRemind()
        Response.Write "<html><head><title>系统维护中</title><meta http-equiv=Content-Type content=text/html; charset=gb2312>" & vbCrLf
        Response.Write "</head><body><br><br>" & vbCrLf
        Response.Write "<BR><table cellpadding=5 cellspacing=1 border=0 width=65% align=center >" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow>" & DownsysClass.StopReadme &"</a></td></tr>" & vbCrLf
        Response.Write "  <tr><td align=center class=forumRowHighlight>[<a href=""javascript:window.close()"">关闭本窗口</a>]</td></tr>" & vbCrLf
        Response.Write "</table><BR>" & vbCrLf
        Response.Write "</body></html>" & vbCrLf
End Sub
	Response.Write"<BR><table align=center >"& vbCrLf
	Response.Write "<tr align=center><td width=""100%"" style=""LINE-HEIGHT: 150%"">"& vbCrLf
	Dim Endtime
	Endtime = Timer()
	Response.Write"<BR>执行时间：" & FormatNumber((Endtime-Startime)*1000,3) & "毫秒。查询数据库" & DownsysClass.SqlQueryNum & "次。"& vbCrLf
	Response.Write"</td>"& vbCrLf
	Response.Write"</tr>"& vbCrLf
	Response.Write"</table>"& vbCrLf
	Response.Write "</div></body>"& vbCrLf
	Response.Write "</html>"
%>