<!--#include file="../conn.asp"-->
<!--#include file="setup.asp"-->
<!--#include file="inc/const.asp"-->
<%
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewAsp Content Management System Version 4.0
' 文件名称：showerr.asp
' 更新日期：2008-05-16
' 官方网站：新云网络(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2008 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
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="""& AdminPath &"images/skin_" & AdminSkin & "/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 "error","err"
		Call Error_Msg()
	Case "suc"
		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=""" & AdminPath & "images/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 "<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=""" & AdminPath & "images/suc.gif"" width=""95"" height=""97"" border=""0""></td><td width=""80%"" class=""tableline1"">"
	Response.Write " <b style=""color:blue"">您在成功提示页面的停留时间 <span id=""jump"">0</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(0);</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=""" & AdminPath & "images/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
%>