📄 showerr.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
字号:
<!--#include file = "admin_conn.asp" -->
<!--#include file = titleb.asp -->
<%
Response.Write "<html>" & vbCrLf
Response.Write "<head>" & vbCrLf
Response.Write "<meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312""/>" & vbCrLf
Response.Write "<title>错误信息</title>" & vbCrLf
Response.Write "<link href="""& config("path") &"images/admin/style.css"" type=""text/css"" rel=""stylesheet""/>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body class=""htmlbody"">" & vbCrLf
Response.Write "<p>&nbsp;</p>" & vbCrLf
Dim action,Message
action = Trim(Replace(Request("action"),"'", "''"))
If Request.Querystring("message") <> "" Then
        Message = CheckErrCodes(Request.Querystring("message"))
End If
Select Case action
	Case "1"
		Call Error_Msg()
	Case "2"
		Call Succeed_Msg()
	Case Else
		Call AdminError()
End Select
Response.Write "</body></html>"

Function CheckErrCodes(ByVal strCode)
	Dim Re
	Set re=new RegExp
	re.IgnoreCase =True
	re.Global=True
	re.Pattern="<.[^>]*(style).>"
	strCode = re.Replace(strCode, "")
	re.Pattern="<(a.[^>]*|\/a|li|br|B|\/li|\/B|font.[^>]*|\/font)>"
	strCode=re.Replace(strCode,"[$1]")
	'strCode=Server.HTMLEncode(strCode)
	strCode=Replace(Replace(strCode, "<", "&lt;"), ">", "&gt;")
	re.Pattern="\[(a.[^\]]*|\/a|li|br|B|\/li|\/B|font.[^\]]*|\/font)\]"
	strCode=re.Replace(strCode,"<$1>")
	re.Pattern="<.[^>]*(on(load|click|dbclick|mouseover|mouseout|mousedown|mouseup|mousewheel|keydown|submit|change|focus)).>"
	strCode = re.Replace(strCode, "")
	Set Re=Nothing
	CheckErrCodes=strCode
End Function

Sub AdminError()
	Response.Write "<p>&nbsp;</p>" & vbCrLf
	Response.Write "<table align=""center"" border=""0"" cellpadding=""3"" cellspacing=""1"" class=""table2"">" & vbCrLf
	Response.Write "    <tr> " & vbCrLf
	Response.Write "      <th colspan=""2"" align=""left""> 错误提示信息!</th>" & vbCrLf
	Response.Write "    </tr>" & vbCrLf
	Response.Write "  <tr><td align=""center"" width=""20%"" class=""tableline1""><img src=""" & config("path") & "images/admin/err.gif"" width=""95"" height=""97"" border=""0""></td><td width=""80%"" class=""tableline1"">"
	Response.Write " <b style=""color:blue"">产生错误的可能原因：</b>"
	Response.Write "<ul style=""padding:0 10px;margin:0 10px;""><li>确认身份失败！您没有使用当前功能的权限。</li><li>当前操作已记录，如果有什么问题，请联系管理员。</li></ul></td></tr>" & vbCrLf
	Response.Write "  <tr><td colspan=""2"" align=""center"" height=""25"" class=""tableline2""><a href=""javascript:history.go(-1)"">返回上一页...</a></td></tr>" & vbCrLf
	Response.Write " </table><p>&nbsp;</p>" & vbCrLf
End Sub

Sub Succeed_Msg()
	Response.Write "<meta http-equiv=""refresh"" content=""5;url=" & Request.ServerVariables("HTTP_REFERER") & """>"
	Response.Write "<p>&nbsp;</p>" & vbCrLf
	Response.Write "<table align=""center"" border=""0"" cellpadding=""3"" cellspacing=""1"" class=""table2"">" & vbCrLf
	Response.Write "    <tr> " & vbCrLf
	Response.Write "      <th colspan=""2"" align=""left"" class=""th_table""> 成功提示信息!</th>" & vbCrLf
	Response.Write "    </tr>" & vbCrLf
	Response.Write "  <tr><td align=""center"" width=""20%"" class=""tableline1""><img src=""" & config("path") & "images/admin/suc.gif"" width=""95"" height=""97"" border=""0""></td><td width=""80%"" class=""tableline1"">"
	Response.Write " <b style=""color:blue""><span id=""jump"">5</span> 秒钟后系统将自动返回</b><br>"
	Response.Write Message & "</td></tr>" & vbCrLf
	Response.Write "  <tr><td colspan=""2"" align=""center"" height=""25"" class=""tableline2""><a href=""" & Request.ServerVariables("HTTP_REFERER") & """>返回上一页...</a></td></tr>" & vbCrLf
	Response.Write " </table><p>&nbsp;</p>" & vbCrLf
	Response.Write "<script>function countDown(secs){jump.innerText=secs;if(--secs>0)setTimeout(""countDown(""+secs+"")"",1000);}countDown(5);</script>"
End Sub

Sub Error_Msg()
	Response.Write "<p>&nbsp;</p>" & vbCrLf
	Response.Write "<table align=""center"" border=""0"" cellpadding=""3"" cellspacing=""1"" class=""table2"">" & vbCrLf
	Response.Write "    <tr> " & vbCrLf
	Response.Write "      <th colspan=""2"" align=""left""> 错误提示信息!</th>" & vbCrLf
	Response.Write "    </tr>" & vbCrLf
	Response.Write "  <tr><td align=""center"" width=""20%"" class=""tableline1""><img src=""" & config("path") & "images/admin/err.gif"" width=""95"" height=""97"" border=""0""></td><td width=""80%"" class=""tableline1"">"
	Response.Write " <b style=""color:blue"">产生错误的可能原因：</b><br>"
	Response.Write Message & "</td></tr>" & vbCrLf
	Response.Write "  <tr><td colspan=""2"" align=""center"" height=""25"" class=""tableline2""><a href=""javascript:history.go(-1)"">返回上一页...</a></td></tr>" & vbCrLf
	Response.Write " </table><p>&nbsp;</p>" & vbCrLf
End Sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -