showerr.asp

多用户管理分权限发布、管理软件信息； 自由选择系统默认为静态HTML或动态ASP； 无限制添加下载服务器

<!--#include file="conn.asp"-->
<%
'*****************************************************************
'*  NewCloud movie System Version 1.0.0 
'*  File: admin_showmsg.asp
'*  Date: 2004-4-20
'*****************************************************************
'*  Copyright 2002-2004 newasp.net - All Rights Reserved.
'*  newasp is a trademark of newasp.net
'*  HomePage: http://www.newasp.net
'*****************************************************************
Dim action,Message
action = Trim(request("action"))
Message = Trim(Request.Querystring("message"))

Select Case action
        Case "error"
                Call Error_Msg()
        Case "succeed"
                Call Succeed_Msg()
        Case "stop"
                Call StopRemind()
        Case "iplock"
                Call iplock()
        Case Else
                Call Error_Msg()
End Select

sub Error_Msg()
        response.write "<TITLE>错误报告！　Error Information</TITLE>"& vbCrLf
        response.write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">"& vbCrLf
        response.write "<LINK href=""style.css"" type=text/css rel=stylesheet>"& vbCrLf
        response.write "<BR><BR>"& vbCrLf
        response.write "             <TABLE align=center bgColor=#DEDFDE cellpadding=""2"" cellspacing=""0"" border=0 style=""border: outset 2px;width:65%;"">"& vbCrLf
        response.write "              <TR>               "& vbCrLf
        response.write "      <TD height=18 style=""FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#294184', endColorStr='#A5CBF7', gradientType='1')""><b><font color=#FFFFFF>错误报告！　Error Information</FONT></b></td>"& vbCrLf
        response.write "      <TD align=right bgColor=#A5CBF7><a href=javascript:window.close()><img src=""./images/close.gif"" width=""18"" height=""15"" border=0 align=""absmiddle""></a></td>"& vbCrLf
        response.write "    </tr>"& vbCrLf
        response.write "              <TR>"& vbCrLf
        response.write "                <TD colSpan=2>"& vbCrLf
        response.write "                  <FIELDSET><LEGEND accessKey=F align=left>产生错误的可能原因：</LEGEND>"& vbCrLf
        response.write "                  <TABLE align=center cellSpacing=2 cellPadding=2 width=""90%"" border=0>"& vbCrLf
        response.write "                    <TR>"& vbCrLf
        response.write "                      <TD>"&message&"</TD>"& vbCrLf
        response.write "                      </TD></TR>"& vbCrLf
        response.write "                    <TR>"& vbCrLf
        response.write "                      <TD height=25 align=middle colSpan=2><BR><INPUT onclick=javascript:history.go(-1) type=submit value="" 确 定 "" name=submit></TD></TR></TABLE></FIELDSET> "& vbCrLf
        response.write "                  </TD></TR></TABLE></TD></TR></TABLE>"& vbCrLf
End Sub
'********成功提示信息****************
Sub Succeed_Msg()
        response.write "<TITLE>成功信息！　Success Information</TITLE>"& vbCrLf
        response.write "<META http-equiv=Content-Type content=""text/html; charset=gb2312"">"& vbCrLf
        response.write "<LINK href=""style.css"" type=text/css rel=stylesheet>"& vbCrLf
        response.write "<BR><BR>"& vbCrLf
        response.write "             <TABLE align=center bgColor=#DEDFDE cellpadding=""2"" cellspacing=""0"" border=0 style=""border: outset 2px;width:65%;"">"& vbCrLf
        response.write "              <TR>"& vbCrLf
        response.write "                "& vbCrLf
        response.write "      <TD height=18 style=""FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#102873', endColorStr='#A5CBF7', gradientType='1')""><b><font color=#FFFFFF>成功信息！　Success Information</FONT></b></td>"& vbCrLf
        response.write "      <TD align=right bgColor=#A5CBF7><a href=javascript:window.close()><img src=""./images/close.gif"" width=""18"" height=""15"" border=0 align=""absmiddle""></a></td>"& vbCrLf
        response.write "    </tr>"& vbCrLf
        response.write "              <TR>"& vbCrLf
        response.write "                <TD colSpan=2>"& vbCrLf
        response.write "                  <FIELDSET><LEGEND accessKey=F align=left>操作成功！</LEGEND>"& vbCrLf
        response.write "                  <TABLE align=center cellSpacing=2 cellPadding=2 width=""90%"" border=0>"& vbCrLf
        response.write "                    <TR>"& vbCrLf
        response.write "                      <TD>"&message&"</TD>"& vbCrLf
        response.write "                      </TD></TR>"& vbCrLf
        response.write "                    <TR>"& vbCrLf
        response.write "                      <TD height=25 align=middle colSpan=2><BR><INPUT onclick=javascript:location.href='"&Request.ServerVariables("HTTP_REFERER")&"' type=submit value="" 确 定 "" name=submit></TD></TR></TABLE></FIELDSET> "& vbCrLf
        response.write "                  </TD></TR></TABLE></TD></TR></TABLE><BR><BR>"& vbCrLf
End Sub
'********提示信息****************
Sub iplock()
        Response.Write "<html><head><title>IP锁定!</title><meta http-equiv=Content-Type content=text/html; charset=gb2312>" & vbCrLf
        Response.Write "<link href=admin/style.css rel=stylesheet type=text/css></head><body><br><br>" & vbCrLf
        Response.Write "<BR><table cellpadding=5 cellspacing=1 border=0 width=65% align=center class=tableBorder>" & vbCrLf
        Response.Write "  <tr><th>IP被限制!</th></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow>您的IP(" & Newasp.GetUserip &")被系统限制，您可以和<a href='mailto:"&Newasp.Setting(2)&"'>管理员联系。</a></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=""javascript:window.close()"">关闭本窗口</a>]</td></tr>" & vbCrLf
        Response.Write "</table><BR>" & vbCrLf
        Response.Write "</body></html>" & vbCrLf
End Sub
Sub StopRemind()
        Response.Write "<html><head><title>系统维护中</title><meta http-equiv=Content-Type content=text/html; charset=gb2312>" & vbCrLf
        Response.Write "<link href=admin/style.css rel=stylesheet type=text/css></head><body><br><br>" & vbCrLf
        Response.Write "<BR><table cellpadding=5 cellspacing=1 border=0 width=65% align=center class=tableBorder>" & vbCrLf
        Response.Write "  <tr><th>系统维护中!</th></tr>" & vbCrLf
        Response.Write "  <tr><td width=100% class=forumRow>" & Newasp.StopReadme &"</a></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=""javascript:window.close()"">关闭本窗口</a>]</td></tr>" & vbCrLf
        Response.Write "</table><BR>" & vbCrLf
        Response.Write "</body></html>" & vbCrLf
End Sub
	Response.Write"<BR><table align=center >"& vbCrLf
	Response.Write "<tr align=center><td width=""100%"" style=""LINE-HEIGHT: 150%"">"& vbCrLf
	Response.Write" Copyright (c) 2002-2004 <a href=""http://yzzmtz.126.com"" target=""_blank""><font face=Verdana, Arial, Helvetica, sans-serif><b>绿色<font color=#CC0000>源码</font></b></font></a>下载<BR>"& vbCrLf
	if IsSqlDataBase = 1 Then
		Response.Write" Powered by：<a href=http://yzzmtz.126.com target=_blank>绿色下载</a>（SQL 版）"& vbCrLf
	else
		Response.Write" Powered by：<a href=http://yzzmtz.126.com target=_blank>绿色下载</a>（ACCESS 版）"& vbCrLf
	end if
	Dim Endtime
	Endtime = Timer()
	Response.Write"<BR>执行时间：" & FormatNumber((Endtime-Startime)*1000,3) & "毫秒。查询数据库" & Newasp.SqlQueryNum & "次。"& vbCrLf
	Response.Write"</td>"& vbCrLf
	Response.Write"</tr>"& vbCrLf
	Response.Write"</table>"& vbCrLf
	Response.Write "</div></body>"& vbCrLf
	Response.Write "</html>"
%>