www.gusucode.com > 艺术签名文章资讯网源代码 > 艺术签名文章资讯网源代码/624/adminhtry/showerr.asp
<!--#include file="setup.asp"--> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>后台管理错误提示!</title> <link rel="stylesheet" href="images/css/admin_style_<%=AdminSkin%>.css" type="text/css" media="all" /> </head> <body leftmargin="0" bottommargin="0" rightmargin="0" topmargin="0"> <p> </p> <% '===================================================================== ' 软件名称:新云网站管理系统 ' 当前版本:NewCloud Site Manager System Version 3.0.0 ' 文件名称:showerr.asp ' 更新日期:2006-11-20 ' 官方网站:(www.newasp.net www.newasp.cn) QQ:94022511 '===================================================================== ' Copyright 2003-2007 newasp.net - All Rights Reserved. ' newasp is a trademark of newasp.net '===================================================================== Dim action,Message action = Newasp.CheckStr(Request("action")) If Request.Querystring("message") <> "" Then Message = CheckErrCodes(Request.Querystring("message")) End If Select Case action Case "error" Call Error_Msg() Case "err" Call AdminError() Case "succeed" Call Succeed_Msg() Case "remind" Call Remind_Msg() Case "keyerr" Call KeyError() Case "genup" Call GenupMsg() Case Else Call AdminError() End Select Admin_Footer CloseConn Sub Error_Msg() Response.Write "<br><br><table width=""523"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf Response.Write " <tr>"& vbCrLf Response.Write " <td><img src=""images/img_r2_c1.gif"" width=""523"" height=""55""></td>"& vbCrLf Response.Write " </tr>"& vbCrLf Response.Write " <tr>"& vbCrLf Response.Write " <td height=""100"" background=""images/img_r2_c2.gif""><table width=""92%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf Response.Write " <tr>"& vbCrLf Response.Write " <td width=""22%"" align=""center""><img src=""images/err.gif"" width=""95"" height=""97""></td>"& vbCrLf Response.Write " <td width=""78%""><b> 产生错误的可能原因:</b><br>" & Message &"</td>"& vbCrLf Response.Write " </tr>"& vbCrLf Response.Write " </table></td>"& vbCrLf Response.Write " </tr>"& vbCrLf Response.Write " <tr>"& vbCrLf Response.Write " <td align=""right"" background=""images/img_r2_c3.gif""><a href=""" & Request.ServerVariables("HTTP_REFERER") & """><img src=""images/confirm_r2.gif"" alt=""确定返回"" width=""123"" height=""42"" border=""0""></a></td>"& vbCrLf Response.Write " </tr>"& vbCrLf Response.Write "</table><p> </p>"& vbCrLf End Sub Sub AdminError() Response.Write "<br><br><table width=""523"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf Response.Write " <tr>"& vbCrLf Response.Write " <td><img src=""images/img_r2_c1.gif"" width=""523"" height=""55""></td>"& vbCrLf Response.Write " </tr>"& vbCrLf Response.Write " <tr>"& vbCrLf Response.Write " <td height=""100"" background=""images/img_r2_c2.gif""><table width=""92%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf Response.Write " <tr>"& vbCrLf Response.Write " <td width=""22%"" align=""center""><img src=""images/err.gif"" width=""95"" height=""97""></td>"& vbCrLf Response.Write " <td width=""78%""><b>产生错误的可能原因:</b><br><li>确认身份失败!您没有使用当前功能的权限。</li><li>当前操作已记录,如果有什么问题,请联系管理员。</li></td>"& vbCrLf Response.Write " </tr>"& vbCrLf Response.Write " </table></td>"& vbCrLf Response.Write " </tr>"& vbCrLf Response.Write " <tr>"& vbCrLf Response.Write " <td align=""right"" background=""images/img_r2_c3.gif""><a href=""" & Request.ServerVariables("HTTP_REFERER") & """><img src=""images/confirm_r2.gif"" alt=""确定返回"" width=""123"" height=""42"" border=""0""></a></td>"& vbCrLf Response.Write " </tr>"& vbCrLf Response.Write "</table><p> </p>"& 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 class=TableRow2 style=""padding-right: 8px; padding-left: 8px; padding-bottom: 5px; padding-top: 5px"">" & Message &"</td></tr>" & vbCrLf Response.Write " <tr><td class=TableRow2 align=""right"" style='COLOR: Red;'>时间:" & Now() & "</td></tr>" & vbCrLf Response.Write " <tr><td align=center class=TableRow1><a href='" & Request.ServerVariables("HTTP_REFERER") & "'>返回上一页...</a></td></tr>" & vbCrLf Response.Write " </table><p> </p>"& 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 class=TableRow2 style=""padding-right: 8px; padding-left: 8px; padding-bottom: 5px; padding-top: 5px"">" & Message &"</td></tr>" & vbCrLf Response.Write " <tr><td align=""right"" class=TableRow2 style='COLOR: Red;'>时间:" & Newasp.NowTime & "</td></tr>" & vbCrLf Response.Write " <tr><td align=center class=TableRow1><a href='"&Request.ServerVariables("HTTP_REFERER")&"'>返回上一页...</a></td></tr>" & vbCrLf Response.Write "</table><p> </p>" & vbCrLf End Sub %>