Слияние кода завершено, страница обновится автоматически
<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<!--#include file="inc/classmenu.asp"-->
<%
'=====================================================================
' 软件名称:新云网站管理系统
' 当前版本:NewCloud Site Manager System Version 2.0.0
' 文件名称:showerr.asp
' 更新日期:2006-11-20
' 官方网站:新云网络(www.newasp.net) QQ:94022511
'=====================================================================
' Copyright 2003-2007 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 LCase(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
%>
Вы можете оставить комментарий после Вход в систему
Неприемлемый контент может быть отображен здесь и не будет показан на странице. Вы можете проверить и изменить его с помощью соответствующей функции редактирования.
Если вы подтверждаете, что содержание не содержит непристойной лексики/перенаправления на рекламу/насилия/вульгарной порнографии/нарушений/пиратства/ложного/незначительного или незаконного контента, связанного с национальными законами и предписаниями, вы можете нажать «Отправить» для подачи апелляции, и мы обработаем ее как можно скорее.
Опубликовать ( 0 )