showerr.asp

大型黄页系统,精美黄页flash演示,10m

<!--#include file="setup.asp"-->
<%
DownsysClass.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
DownsysClass.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;'>时间：" & DownsysClass.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;'>时间：" & DownsysClass.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;'>时间：" & DownsysClass.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.10000.org.cn/' style=""COLOR: RED;FONT-SIZE: 16PX;"">请购买本系统！</A><BR>" & vbCrLf
        Response.Write "</td></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow align=""right"" style='COLOR: Red;'>时间：" & DownsysClass.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;轩溪下载系统3.0版 暂无此功能，如有需要请购买轩溪下载系统3.5版<br>&nbsp;&nbsp;&nbsp;&nbsp;Xuanxi Download System Professional Edition Ver 3.5 <br>" & vbCrLf
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;轩溪下载系统3.5版<br>&nbsp;&nbsp;&nbsp;&nbsp;系统特性：批量生成HTML页面增强，功能强大，用户访问速度极度优化，大大减轻服务器负担。<br>" & vbCrLf
        Response.Write "&nbsp;&nbsp;&nbsp;&nbsp;<a href='http://www.10000.org.cn/' target=_blank>轩溪软件园 www.10000.org.cn</a>" & vbCrLf
        Response.Write "</td></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow align=""right"" style='COLOR: Red;'>时间：" & DownsysClass.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
%>