开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
Showerr.asp
资源名称：haohj.rar　[点击查看]
上传用户：angela
上传日期：2022-05-11
资源大小：853k
文件大小：4k
源码类别：

外挂编程

开发平台：

ASP/ASPX

Showerr.asp：源码内容
  1. <!--#include file="setup.asp"-->
  2. <%
  3. titlename="后台操作提示！"
  4. Admin_header
  5. Response.Write "<p>&nbsp;</p>"
  6. '=====================================================================
  7. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  8. '=====================================================================
  9. ' 程序名称：蓝宇网络发布系统
  10. ' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
  11. ' 文件名称：Showerr.asp
  12. ' 更新日期：2007-6-5
  13. '=====================================================================
  14. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  15. ' 程序开发：蓝宇,╲、随心゛
  16. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  17. '=====================================================================
  18. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  19. '=====================================================================
  20. Dim Message
  21. action = Trim(Replace(Request("action"),"'", "''"))
  22. If Request.Querystring("message") <> "" Then
  23.         Message = Trim(Replace(Request.Querystring("message"),"'", ""))
  24. End If
  25. Select Case action
  26.         Case "error"
  27.                 Call Error_Msg()
  28.         Case Else
  29.                 Call AdminError()
  30. End Select
  31. Admin_footer
  32. CloseConn
  33. Sub Error_Msg()
  34.         Response.Write "<br><br><table width=""523""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
  35.         Response.Write "  <tr>"& vbCrLf
  36.         Response.Write "    <td><img src=""images/img_r2_c1.gif"" width=""523"" height=""55""></td>"& vbCrLf
  37.         Response.Write "  </tr>"& vbCrLf
  38.         Response.Write "  <tr>"& vbCrLf
  39.         Response.Write "    <td height=""100"" background=""images/img_r2_c2.gif""><table width=""92%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
  40.         Response.Write "      <tr>"& vbCrLf
  41.         Response.Write "        <td width=""22%"" align=""center""><img src=""images/err.gif"" width=""95"" height=""97""></td>"& vbCrLf
  42.         Response.Write "        <td width=""78%""><b>　　产生错误的可能原因：</b><br>" & Message &"</td>"& vbCrLf
  43.         Response.Write "      </tr>"& vbCrLf
  44.         Response.Write "    </table></td>"& vbCrLf
  45.         Response.Write "  </tr>"& vbCrLf
  46.         Response.Write "  <tr>"& vbCrLf
  47.         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
  48.         Response.Write "  </tr>"& vbCrLf
  49.         Response.Write "</table><p>&nbsp;</p>"& vbCrLf
  50. End Sub
  51. Sub AdminError()
  52.         Response.Write "<br><br><table width=""523""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
  53.         Response.Write "  <tr>"& vbCrLf
  54.         Response.Write "    <td><img src=""images/img_r2_c1.gif"" width=""523"" height=""55""></td>"& vbCrLf
  55.         Response.Write "  </tr>"& vbCrLf
  56.         Response.Write "  <tr>"& vbCrLf
  57.         Response.Write "    <td height=""100"" background=""images/img_r2_c2.gif""><table width=""92%""  border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"& vbCrLf
  58.         Response.Write "      <tr>"& vbCrLf
  59.         Response.Write "        <td width=""22%"" align=""center""><img src=""images/err.gif"" width=""95"" height=""97""></td>"& vbCrLf
  60.         Response.Write "        <td width=""78%""><b>产生错误的可能原因：</b><br><li>确认身份失败！您没有使用当前功能的权限 !</li><li>当前操作已记录，如果有什么问题，请联系<font color=red>高级管理员</font> !</li></td>"& vbCrLf
  61.         Response.Write "      </tr>"& vbCrLf
  62.         Response.Write "    </table></td>"& vbCrLf
  63.         Response.Write "  </tr>"& vbCrLf
  64.         Response.Write "  <tr>"& vbCrLf
  65.         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
  66.         Response.Write "  </tr>"& vbCrLf
  67.         Response.Write "</table><p>&nbsp;</p>"& vbCrLf
  68. End Sub
  69. %>