showerr.asp

网络上经典的图片程序

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/classmenu.asp"-->
<%
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewCloud Site Manager System Version 2.0.0
' 文件名称：showerr.asp
' 更新日期：2004-11-20
' 官方网站：新云网络(www.newasp.net) QQ：94022511
'=====================================================================
' Copyright 2002-2005 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim action,Message
Dim HtmlContent,strHtml
Newasp.LoadTemplates 9999, 7, 0
HtmlContent = Newasp.HtmlContent
HtmlContent = Replace(HtmlContent,"{$InstallDir}", Newasp.InstallDir)
HtmlContent = Replace(HtmlContent, "{$ChannelID}", 0)
HtmlContent = Replace(HtmlContent,"{$PageTitle}","出错啦~!")
HtmlContent = ReadClassMenu(HtmlContent)
HtmlContent = ReadClassMenubar(HtmlContent)

action = Newasp.CheckStr(Request("action"))
Message = Trim(Replace(Request.Querystring("message"),"'", "''"))
Select Case action
        Case "error"
                Call ErrorMsg()
        Case "stop"
                Call StopRemind()
        Case "estop"
                Call EstopRemind()
        Case "chanstop"
                Call ChannelStop()
        Case Else
                Call ErrorMsg()
End Select
HtmlContent = Replace(HtmlContent,"{$TempContent}", strHtml)
Response.Write HtmlContent
CloseConn
Sub ErrorMsg()
        strHtml = "<BR><table cellpadding=5 cellspacing=1 border=0 width=65% align=center class=tableBorder1>" & vbCrLf
        strHtml = strHtml & "  <tr><th>错误信息</th></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td width=100% class=tablerow>" & Message & "</td></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td width=100% class=tablerow align=""right"" style='COLOR: Red;'>时间：" & Now() & "</td></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td align=center class=tablerow>[<a href=""javascript:history.go(-1)"">返回上一页</a>]　　[<a href=""javascript:window.close()"">关闭本窗口</a>]</td></tr>" & vbCrLf
        strHtml = strHtml & "</table><BR>" & vbCrLf
End Sub

Sub ChannelStop()
        strHtml = "<BR><table cellpadding=5 cellspacing=1 border=0 width=65% align=center class=tableBorder1>" & vbCrLf
        strHtml = strHtml & "  <tr><th>频道已经关闭!</th></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td width=100% class=tablerow>处理 URL 时服务器出错，请与系统管理员联系！</td></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td width=100% class=tablerow align=""right"" style='COLOR: Red;'>时间：" & Now() & "</td></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td align=center class=tablerow>[<a href=""javascript:window.close()"">关闭本窗口</a>]</td></tr>" & vbCrLf
        strHtml = strHtml & "</table><BR>" & vbCrLf
End Sub
Sub StopRemind()
        strHtml = "<BR><table cellpadding=5 cellspacing=1 border=0 width=65% align=center class=tableBorder1>" & vbCrLf
        strHtml = strHtml & "  <tr><th>系统维护中!</th></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td width=100% class=tablerow>" & Newasp.StopReadme &"</td></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td width=100% class=tablerow align=""right"" style='COLOR: Red;'>时间：" & Now() & "</td></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td align=center class=tablerow>[<a href=""javascript:window.close()"">关闭本窗口</a>]</td></tr>" & vbCrLf
        strHtml = strHtml & "</table><BR>" & vbCrLf
End Sub
Sub EstopRemind()
        strHtml = "<BR><table cellpadding=5 cellspacing=1 border=0 width=65% align=center class=tableBorder1>" & vbCrLf
        strHtml = strHtml & "  <tr><th>非法操作!</th></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td width=100% class=tablerow>处理 URL 时服务器出错，请与系统管理员联系！</td></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td width=100% class=tablerow align=""right"" style='COLOR: Red;'>时间：" & Now() & "</td></tr>" & vbCrLf
        strHtml = strHtml & "  <tr><td align=center class=tablerow>[<a href=""javascript:window.close()"">关闭本窗口</a>]</td></tr>" & vbCrLf
        strHtml = strHtml & "</table><BR>" & vbCrLf
End Sub
%>