showerr.asp

来自「多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态A」· ASP 代码 · 共 78 行

<!--#include file="setup.asp"-->
<%
Newasp.Admin_Header
Dim action,Message
action = Trim(request("action"))
If Request.Querystring("message") <> "" Then
        Message = Trim(Request.Querystring("message"))
Else
        Message = "您执行了非法操作!请从有效的连接进入本系统......"
End If
Select Case action
        Case "error"
                Call Error_Msg()
        Case "succeed"
                Call Succeed_Msg()
        Case "remind"
                Call Remind_Msg()
        Case "keyerr"
                Call KeyError()
        Case "genup"
                Call GenupMsg()
        Case Else
                Call Error_Msg()
End Select
Newasp.Admin_Footer
sub Error_Msg()
        Response.Write "<BR><BR><table cellpadding=5 cellspacing=1 border=0 align=center class=tableBorder1>" & vbCrLf
        Response.Write "  <tr><th>错误提示信息!</th></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow><b>　　产生错误的可能原因：</b><BR>" & Message &"</td></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow align=""right"" style='COLOR: Red;'>时间：" & Newasp.NowTime & "</td></tr>" & vbCrLf
        Response.Write "  <tr><td align=center class=forumRowHighlight><a href='" & Request.ServerVariables("HTTP_REFERER") & "'>返回上一页...</a></td></tr>" & vbCrLf
        Response.Write "</table><BR>" & vbCrLf
End Sub
'********成功提示信息****************
Sub Succeed_Msg()
        response.Write "<BR><BR><table align=""center"" border=""0"" cellpadding=""5"" cellspacing=""1"" class=""tableBorder1"">"& vbCrLf
        response.Write "    <tr> "& vbCrLf
        response.Write "      <th>成功提示信息!</th>"& vbCrLf
        response.Write "    </tr>"& vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow>" & Message &"</td></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow align=""right"" style='COLOR: Red;'>时间：" & Newasp.NowTime & "</td></tr>" & vbCrLf
        Response.Write "  <tr><td align=center class=forumRowHighlight><a href='" & Request.ServerVariables("HTTP_REFERER") & "'>返回上一页...</a></td></tr>" & vbCrLf
        response.Write " </table><BR>"& vbCrLf
End Sub
'********提示信息****************
Sub Remind_Msg()
        Response.Write "<BR><BR><table cellpadding=5 cellspacing=1 border=0 align=center class=tableBorder1>" & vbCrLf
        Response.Write "  <tr><th>提示!</th></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow>" & Message &"</td></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow align=""right"" style='COLOR: Red;'>时间：" & Newasp.NowTime & "</td></tr>" & vbCrLf
        Response.Write "  <tr><td align=center class=forumRowHighlight><a href='"&Request.ServerVariables("HTTP_REFERER")&"'>返回上一页...</a></td></tr>" & vbCrLf
        Response.Write "</table><BR>" & vbCrLf
End Sub
'********提示信息****************
Sub KeyError()
        Response.Write "<BR><BR><table cellpadding=5 cellspacing=1 border=0 align=center class=tableBorder1>" & vbCrLf
        Response.Write "  <tr><th>系统出错!</th></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow style=""COLOR: RED;FONT-SIZE: 16PX;"">" & vbCrLf
        Response.Write "<B>警告：</B>系统检测到您现在使用的是免费版本，如要获得更多的功能<a href='http://www.newasp.net/' style=""COLOR: RED;FONT-SIZE: 16PX;"">请注册本系统！</A><BR>" & vbCrLf
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;我们的主页：<a href='http://www.newasp.net/' target=_blank style=""COLOR: #FF3300;FONT-SIZE: 14PX;"">新云网络 www.newasp.net</a>" & vbCrLf
        Response.Write "</td></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow align=""right"" style='COLOR: Red;'>时间：" & Newasp.NowTime & "</td></tr>" & vbCrLf
        Response.Write "  <tr><td align=center class=forumRowHighlight><a href='"&Request.ServerVariables("HTTP_REFERER")&"'>返回上一页...</a></td></tr>" & vbCrLf
        Response.Write "</table><BR>" & vbCrLf
End Sub
Sub GenupMsg()
        Response.Write "<BR><BR><table cellpadding=5 cellspacing=1 border=0 width=80% align=center class=tableBorder>" & vbCrLf
        Response.Write "  <tr><th>敬　告</th></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow>" & vbCrLf
        Response.Write "<B>提示：</B><BR>&nbsp;&nbsp;&nbsp;&nbsp;新云下载系统（免费版）暂无此功能，如有需要请注册新云下载专业版<br>&nbsp;&nbsp;&nbsp;&nbsp;NewCloud Download System Professional Edition Ver 6.0.1 <br>" & vbCrLf
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;新云下载系统专业版 Ver 6.0.1<br>&nbsp;&nbsp;&nbsp;&nbsp;系统特性：批量生成HTML页面，功能强大，用户访问速度极度优化，大大减轻服务器负担。<br>" & vbCrLf
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;<a href='http://www.newasp.net/' target=_blank>新云下载站 www.newasp.net</a>" & vbCrLf
        Response.Write "</td></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow align=""right"" style='COLOR: Red;'>时间：" & Newasp.NowTime & "</td></tr>" & vbCrLf
        Response.Write "  <tr><td align=center class=forumRowHighlight><a href='"&Request.ServerVariables("HTTP_REFERER")&"'>返回上一页...</a></td></tr>" & vbCrLf
        Response.Write "</table><BR>" & vbCrLf
End Sub
%>