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

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

外挂编程

开发平台：

ASP/ASPX

A.asp：源码内容
  1. <!--#include file="../Inc/Cls_Conn.asp"-->
  2. <!--#include file="../Inc/Cls_Config.asp"-->
  3. <%
  4. '=====================================================================
  5. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  6. '=====================================================================
  7. ' 程序名称：蓝宇网络发布系统
  8. ' 软件版本：Version 3.3.0 Sp1
  9. ' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
  10. '=====================================================================
  11. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  12. ' 程序开发：蓝宇,╲、随心゛
  13. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  14. '=====================================================================
  15. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  16. '=====================================================================
  17. Dim Gq
  18. sql="select About,Contacts,advertise,help from Gq_main"
  19. set rs=conn.execute(sql)
  20. Gq=request("Gq")
  21. if Gq="" then
  22. start="关于我们"
  23. tee5.head()
  24. Response.Write "<TABLE cellSpacing=0 cellPadding=0 width='" & tee5.TabWidth & "' align='center' class=menu_1 border=0>" & vbCrLf
  25. Response.Write "<TBODY>" & vbCrLf
  26. Response.Write "<TR>" & vbCrLf
  27. Response.Write "<TD width=11></TD>" & vbCrLf
  28. Response.Write "<TD align='center'><br>" & vbCrLf
  29. Response.Write "<font style='font-size:14px' class='book'><b>关于我们</b></font><br>" & vbCrLf
  30. Response.Write "<table width='98%' align='center' cellspacing='0' cellpadding='0' style='word-break:break-all;table-layout:fixed;text-align:left'>" & vbCrLf
  31. Response.Write "<tr>" & vbCrLf
  32. Response.Write "<td valign='top'><div style='LINE-HEIGHT: 180%'>"&rs("About")&"</div></td>" & vbCrLf
  33. Response.Write "</tr>" & vbCrLf
  34. Response.Write "</table></TD>" & vbCrLf
  35. Response.Write "<TD width=14 height='5'></TD>" & vbCrLf
  36. Response.Write "</TR>" & vbCrLf
  37. Response.Write "</TBODY>" & vbCrLf
  38. Response.Write "</TABLE>" & vbCrLf
  39. elseif Gq="Contacts" then
  40. start="联系我们"
  41. tee5.head()
  42. Response.Write "<TABLE cellSpacing=0 cellPadding=0 width='" & tee5.TabWidth & "' align='center' class=menu_1 border=0>" & vbCrLf
  43. Response.Write "<TBODY>" & vbCrLf
  44. Response.Write "<TR>" & vbCrLf
  45. Response.Write "<TD align='center'>" & vbCrLf
  46. if rs("Contacts")="" then
  47. Response.Write "<br><font style='font-size:14px' class='book'><b>联系我们</b></font><br>" & vbCrLf
  48. end if
  49. Response.Write "<table width='100%' align='center' cellspacing='0' cellpadding='0'>" & vbCrLf
  50. Response.Write "<tr>" & vbCrLf
  51. Response.Write "<td valign='top'><div style='LINE-HEIGHT: 180%'>"&rs("Contacts")&"</div></td>" & vbCrLf
  52. Response.Write "</tr>" & vbCrLf
  53. Response.Write "</table></TD>" & vbCrLf
  54. Response.Write "</TR>" & vbCrLf
  55. Response.Write "</TBODY>" & vbCrLf
  56. Response.Write "</TABLE>" & vbCrLf
  57. elseif Gq="advertise" then
  58. start="广告合作"
  59. tee5.head()
  60. Response.Write "<TABLE cellSpacing=0 cellPadding=0 width='" & tee5.TabWidth & "' align='center' class=menu_1 border=0>" & vbCrLf
  61. Response.Write "<TBODY>" & vbCrLf
  62. Response.Write "<TR>" & vbCrLf
  63. Response.Write "<TD align='center'>" & vbCrLf
  64. if rs("advertise")="" then
  65. Response.Write "<br><font style='font-size:14px' class='book'><b>广告合作</b></font><br>" & vbCrLf
  66. end if
  67. Response.Write "<table width='100%' align='center' cellspacing='0' cellpadding='0' style='word-break:break-all;table-layout:fixed;text-align:left'>" & vbCrLf
  68. Response.Write "<tr>" & vbCrLf
  69. Response.Write "<td valign='top'><div style='LINE-HEIGHT: 180%'>"&rs("advertise")&"</div></td>" & vbCrLf
  70. Response.Write "</tr>" & vbCrLf
  71. Response.Write "</table></TD>" & vbCrLf
  72. Response.Write "</TR>" & vbCrLf
  73. Response.Write "</TBODY>" & vbCrLf
  74. Response.Write "</TABLE>" & vbCrLf
  75. elseif Gq="help" then
  76. start="网站帮助"
  77. tee5.head()
  78. Response.Write "<TABLE cellSpacing=0 cellPadding=0 width='" & tee5.TabWidth & "' align='center' class=menu_1 border=0>" & vbCrLf
  79. Response.Write "<TBODY>" & vbCrLf
  80. Response.Write "<TR>" & vbCrLf
  81. Response.Write "<TD width=11></TD>" & vbCrLf
  82. Response.Write "<TD align='center'><br>" & vbCrLf
  83. if rs("help")="" then
  84. Response.Write "<font style='font-size:14px' class='book'><b>网站帮助</b></font><br>" & vbCrLf
  85. end if
  86. Response.Write "<table width='98%' align='center' cellspacing='0' cellpadding='0' style='word-break:break-all;table-layout:fixed;text-align:left'>" & vbCrLf
  87. Response.Write "<tr>" & vbCrLf
  88. Response.Write "<td valign='top'><div style='LINE-HEIGHT: 180%'>"&rs("help")&"</div></td>" & vbCrLf
  89. Response.Write "</tr>" & vbCrLf
  90. Response.Write "</table></TD>" & vbCrLf
  91. Response.Write "<TD width=14 height='5'></TD>" & vbCrLf
  92. Response.Write "</TR>" & vbCrLf
  93. Response.Write "</TBODY>" & vbCrLf
  94. Response.Write "</TABLE>" & vbCrLf
  95. rs.close
  96. set rs=nothing
  97. end if
  98. tee5.footer()
  99. call CloseConn()%>