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

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

外挂编程

开发平台：

ASP/ASPX

7.asp：源码内容
  1. <!--#include file="../Inc/Cls_Conn.asp"-->
  2. <!--#include file="../Inc/Cls_Config.asp"-->
  3. <script language="JavaScript">
  4. <!--
  5. self.moveTo(0,0)
  6. self.resizeTo(screen.availWidth,screen.availHeight)
  7. //-->
  8. </script>
  9. <script language="JavaScript">
  10. function findobj(n, d) {
  11. var p,i,x; if(!d) d=document;
  12. if((p=n.indexOf("?"))>0 && parent.frames.length) {
  13. d=parent.frames[n.substring(p+1)].document;
  14. n=n.substring(0,p);
  15. }
  16. if(!(x=d[n])&&d.all) {
  17. x=d.all[n];
  18. }
  19. for(i=0;!x && i<d.forms.length;i++) {
  20. x=d.forms[i][n];
  21. }
  22. for(i=0;!x && d.layers&&i>d.layers.length;i++) {
  23. x=MM_findObj(n,d.layers[i].document);
  24. }
  25. return x;
  26. }
  27. function copycode(obj) {
  28. var rng = document.body.createTextRange();
  29. rng.moveToElementText(obj);
  30. rng.scrollIntoView();
  31. rng.select();
  32. rng.execCommand("Copy");
  33. rng.collapse(false);
  34. }
  35. </script>
  36. <%
  37. '=====================================================================
  38. ' 作者声明：转载请保留版权信息，鄙视不要脸的人
  39. '=====================================================================
  40. ' 程序名称：蓝宇网络发布系统
  41. ' 软件版本：Version 3.3.0 Sp1
  42. ' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
  43. '=====================================================================
  44. ' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
  45. ' 程序开发：蓝宇,╲、随心゛
  46. ' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  47. '=====================================================================
  48. ' Copyright 2004-2007 蓝宇 - All Rights Reserved.
  49. '=====================================================================
  50. dim id,rs3,TopNum
  51. TopNum = 10
  52. id=tee5.CheckStr(request("id"))
  53. if id="" or (not isnumeric(id)) then
  54. tee5.OutClertScript ("非法操作，请正确操作，您的操作已被记录！")
  55. end if
  56. set rs = server.createobject("adodb.recordset")
  57. if tee5.Showhtml > 0 then
  58. sql="update Gq_SFdata set hits=hits+" & tee5.sfhits & " where ulock<>0 and id="&id
  59. conn.execute sql
  60. end if
  61. sql="select Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,Gq_sfdata.hour,Gq_sfdata.minute,Gq_sfdata.addr,Gq_sfdata.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.hits,Gq_sfdata.isBest,Gq_sfdata.hot,Gq_sfdata.fine,Gq_sfdata.gameid,Gq_GameType.game"
  62. sql=sql&" from Gq_SFdata,Gq_GameType where Gq_SFdata.gameid=Gq_GameType.id and Gq_SFdata.ulock=1 and Gq_SFdata.id="&id
  63. rs.open sql,conn,1,3
  64. if rs.bof and rs.eof then 
  65. rs.close
  66. Response.Write "<meta http-equiv=""refresh"" content=""2;url='/"">" & vbCrLf
  67. Response.Write "<p align=""center"" style=""font-size: 16px;color: red;"">对不起，该页面发生了错误，无法访问! 系统两秒后自动转到网站首页......</p>"
  68. response.end
  69. else
  70. start=""&rs("name")&","&rs("xingzhi")&""
  71. tee5.head()
  72. dim callname,callip
  73. if left(rs("ip"),1)="1" or left(rs("ip"),1)="2" or left(rs("ip"),1)="3" or left(rs("ip"),1)="4" or left(rs("ip"),1)="5" or left(rs("ip"),1)="6" or left(rs("ip"),1)="7" or left(rs("ip"),1)="8" or left(rs("ip"),1)="9" then
  74. callname="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='javascript:' onclick='clipboardData.setData(""Text"","""&rs("name")&""");alert(""服务器名:【"&rs("name")&"】复制成功"");' title=""点击复制此服务器名""><b><font color=""FF0000"">点这复制游戏名</font></b></a>"
  75. callip="&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='javascript:' onclick='clipboardData.setData(""Text"","""&rs("ip")&""");alert(""服务器IP:【"&rs("ip")&"】复制成功"");' title=""点击复制此服务器IP""><b><font color=""FF0000"">点这复制游戏ＩＰ</font></b></a>"
  76. end if
  77. Response.Write "<TABLE width=" & tee5.TabWidth & " border=0 align=center cellPadding=0 cellSpacing=0 bgcolor=""#FFFFFF"">"
  78. Response.Write "  <tr>"
  79. Response.Write "   <td width=""72%"" valign=""top"" style=""border-right:1px dashed #d1d1d1;"">"
  80. Response.Write "  <table width=""99%"" border=0 cellspacing=0 cellpadding=0>"
  81. Response.Write " <tr>"
  82. Response.Write "  <th>" & rs("xingzhi") & "</th>"
  83. Response.Write " </tr>"
  84. Response.Write " <tr>"
  85. Response.Write " <td height=""3"" bgcolor=""#CCCCCC""></td>"
  86. Response.Write " </tr>"
  87. Response.Write " <tr>"
  88. Response.Write "   <td height=""37"" align=""center"">"
  89. Response.Write " <table width=""90%"" border=0 cellspacing=0 cellpadding=0>"
  90. Response.Write "  <tr>"
  91. Response.Write "   <td align=""center"">私服名称:" & rs("name") & "</td>"
  92. Response.Write "    <td align=""center"">私服IP:" & rs("ip") & "</td>"
  93. Response.Write "    <td align=""center"">更新时间:" & rs("addtime") & "</td>"
  94. Response.Write " </tr>"
  95. Response.Write " </table></td>"
  96. Response.Write " </tr>"
  97. Response.Write " <tr>"
  98. Response.Write " <td height=""1"" bgcolor=""#CCCCCC""></td>"
  99. Response.Write " </tr>"
  100. Response.Write " <tr>"
  101. Response.Write "   <td align=""center"">"
  102. %>
  103. <TABLE cellSpacing=0 cellPadding=0 width="98%" bgColor=#e4e4de border=0>
  104. <TR bgColor=#f8f8f5>
  105. <TD align="right"></TD>
  106. <TD width="10"></TD>
  107. <TD width="80%" height=30><b>如果想发给您的好友一起耍，点击下方图片即可↓</b></TD>
  108. </TR>
  109. <TR vAlign=center align=middle bgColor=#ffffff>
  110. <TD align="right">游戏复制：</TD>
  111. <TD></TD>
  112. <TD align="left" height=30><input type="image" src="/images/sf_qq.gif" align=middle height=24 title="点击复制此游戏，发给您的好友一起分享！" onclick="copyToClipBoard()"></TD>
  113. </TR>
  114. <TR vAlign=center align=middle bgColor=#E7E7E7>
  115. <TD align="center"></TD>
  116. <TD align="left" height=1></TD>
  117. </TR>
  118. <TR vAlign=center align=middle bgColor=#ffffff>
  119. <TD align="right">游戏名称：</TD>
  120. <TD></TD>
  121. <TD align="left" height=30><%=rs("name")%><%=callname%></TD>
  122. </TR>
  123. <TR vAlign=center align=middle bgColor=#E7E7E7>
  124. <TD align="center"></TD>
  125. <TD align="left" height=1></TD>
  126. </TR>
  127. <TR vAlign=center align=middle bgColor=#ffffff>
  128. <TD align="right">游戏ＩＰ：</TD>
  129. <TD></TD>
  130. <%if instr(lcase(rs("download")),".rar")>0 or instr(lcase(rs("download")),".exe")>0 then%>
  131. <TD align="left" height=30><a href=<%=rs("download")%> target=_blank><%=rs("ip")%></a><%=callip%></TD>
  132. <%else%>
  133. <TD align="left" height=30><%=rs("ip")%><%=callip%></TD>
  134. <%end if%>
  135. </TR>
  136. <TR vAlign=center align=middle bgColor=#E7E7E7>
  137. <TD align="center"></TD>
  138. <TD align="left" height=1></TD>
  139. </TR>
  140. <TR vAlign=center align=middle bgColor=#ffffff>
  141. <TD align="right">开机时间：</TD>
  142. <TD></TD>
  143. <TD align="left" height=30>
  144. <%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%><%if rs("hour")>=0 and rs("hour")<7 then 
  145. Response.Write "凌晨"&rs("hour")&"点" 
  146. else 
  147. if rs("hour")>17 and rs("hour")<24 then 
  148. Response.Write "晚上"&rs("hour")-12&"点" 
  149. else 
  150. if rs("hour")<12 then 
  151. Response.Write "上午"&rs("hour")&"点" 
  152. else 
  153. if rs("hour")>12 and rs("hour")<=17 then 
  154. Response.Write "下午"&rs("hour")-12&"点" 
  155. else 
  156. if rs("hour")=12 then 
  157. Response.Write "中午"&rs("hour")&"点" 
  158. end if 
  159. end if 
  160. end if 
  161. end if 
  162. end if%><% if rs("minute")<30 then 
  163. response.write"开放" 
  164. else 
  165. if rs("minute")>=30 then 
  166. Response.Write "/30分开放" 
  167. end if 
  168. end if%></TD>
  169. </TR>
  170. <TR vAlign=center align=middle bgColor=#E7E7E7>
  171. <TD align="center"></TD>
  172. <TD align="left" height=1></TD>
  173. </TR>
  174. <TR vAlign=center align=middle bgColor=#ffffff>
  175. <TD align="right">游戏类型：</TD>
  176. <TD></TD>
  177. <TD align="left" height=30><b><font color="0000FF"><%=rs("game")%></font></b></TD>
  178. </TR>
  179. <TR vAlign=center align=middle bgColor=#E7E7E7>
  180. <TD align="center"></TD>
  181. <TD align="left" height=1></TD>
  182. </TR>
  183. <TR vAlign=center align=middle bgColor=#ffffff>
  184. <TD align="right">地区线路：</TD>
  185. <TD></TD>
  186. <TD align="left" height=30><%=rs("addr")%><%=split(tee5.ssign,",")(rs("Service"))%></TD>
  187. </TR>
  188. <TR vAlign=center align=middle bgColor=#E7E7E7>
  189. <TD align="center"></TD>
  190. <TD align="left" height=1></TD>
  191. </TR>
  192. <TR vAlign=center align=middle bgColor=#ffffff>
  193. <TD align="right">客服ＱＱ：</TD>
  194. <TD></TD>
  195. <TD align="left" height=30><%=rs("qq")%></TD>
  196. </TR>
  197. <TR vAlign=center align=middle bgColor=#E7E7E7>
  198. <TD align="center"></TD>
  199. <TD align="left" height=1></TD>
  200. </TR>
  201. <TR vAlign=center align=middle bgColor=#ffffff>
  202. <TD align="right">推荐星级：</TD>
  203. <TD></TD>
  204. <TD align="left" height=30><%if rs("isBest")=1 and rs("hot")=0 and rs("fine")=0 then
  205. Response.Write "<img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12>"
  206. end if
  207. if rs("hot")=1 and rs("isBest")=1 and rs("fine")=0 then
  208. Response.Write "<img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12>"
  209. end if
  210. if rs("fine")=1 and rs("isBest")=1 and rs("hot")=0 then
  211. Response.Write "<img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12>"
  212. end if
  213. if rs("isBest")=1 and rs("hot")=1 and rs("fine")=1 then
  214. Response.Write "<img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12><img src=""/images/star.gif"" width=13 height=12>"
  215. end if
  216. %></TD>
  217. </TR>
  218. <TR vAlign=center align=middle bgColor=#E7E7E7>
  219. <TD align="center"></TD>
  220. <TD align="left" height=1></TD>
  221. </TR>
  222. <%if tee5.Showhtml < 1 then%>
  223. <%else%>
  224. <TR vAlign=center align=middle bgColor=#ffffff>
  225. <TD align="right">人气指数：</TD>
  226. <TD></TD>
  227. <TD align="left" height=30><span class=prspan><img src="/images/hits.gif" width="<%if rs("hits")>100 then%>100%<%else%><%=rs("hits")%>%<%end if%>" height=7 title="人气指数：<%=rs("hits")%>"></span></TD>
  228. </TR>
  229. <TR vAlign=center align=middle bgColor=#E7E7E7>
  230. <TD align="center"></TD>
  231. <TD align="left" height=1></TD>
  232. </TR>
  233. <%end if%>
  234. <TR vAlign=center align=middle bgColor=#ffffff>
  235. <TD align="right">官方主页：</TD>
  236. <TD></TD>
  237. <TD align="left" height=30><%if rs("homepage")="" or rs("homepage")="无" or rs("homepage")="http://" then Response.Write "--" else Response.Write "<a href=/open.asp?action=go&id="&rs("id")&" title=""点击访问官方站点"" target=_blank>"&rs("homepage")&"</a>" end if%></TD>
  238. </TR>
  239. <TR vAlign=center align=middle bgColor=#E7E7E7>
  240. <TD align="center"></TD>
  241. <TD align="left" height=1></TD>
  242. </TR>
  243. <TR vAlign=center align=middle bgColor=#ffffff>
  244. <TD align="right">游戏简介：</TD>
  245. <TD></TD>
  246. <TD align="left" height=30><%=rs("xingzhi")%></TD>
  247. </TR>
  248. </TABLE>
  249. <%
  250. Response.Write " </td>"
  251. Response.Write " </tr>"
  252. Response.Write "</TABLE>"
  253. Response.Write "</td>"
  254. Response.Write "   <td width=""5""></td>"
  255. Response.Write "   <td width=""27%"" valign=""top"">"
  256. %>
  257. <table width="99%" border="0" cellspacing="0" cellpadding="0">
  258. <tr>
  259. <th width="195">最新游戏</th>
  260. </tr>
  261. <tr height="3">
  262. <td height="3" bgcolor="#CCCCCC" width="195"></td>
  263. </tr>
  264. <tr>
  265. <td valign="top">
  266. <%
  267. set rs3=server.createobject("adodb.recordset")
  268. sql="select top " & CInt(TopNum) & " id,xingzhi,hits,addtime,Sdate from Gq_sfdata where Ulock=1 order by addtime DESC,ID DESC"
  269. rs3.open sql,conn,1,1
  270. do while not rs3.eof
  271. %>
  272. <TABLE cellSpacing=1 cellPadding=1 width="95%" border=0 align="center">
  273. <TR>
  274. <%if tee5.Showhtml < 1 then%>
  275. <TD height="20" valign="middle">· <a href='/html/Game/<%=tee5.ContentHtml(rs3)%>.html' target='_blank' Title='私服名称：<%=rs3("xingzhi")%>&#13&#10更新时间：<%=rs3("addtime")%>&#13&#10人气指数：<%=rs3("hits")%>'><font color="#333333"><%=left(rs3("xingzhi"),20)%>...</font></a></TD>
  276. <%else%>
  277. <TD height="20" valign="middle">· <a href='/showsf.asp?id=<%=rs3("id")%>' target='_blank' Title='私服名称：<%=rs3("xingzhi")%>&#13&#10更新时间：<%=rs3("addtime")%>&#13&#10人气指数：<%=rs3("hits")%>'><font color="#333333"><%=left(rs3("xingzhi"),20)%>...</font></a></TD>
  278. <%end if%>
  279. </TR>
  280. </TABLE>
  281. <%
  282.    rs3.movenext
  283.    loop
  284.    if rs3.eof and rs3.bof then
  285.    Response.Write "<div align=center><br>当前还没有任何游戏<br><br></div>"
  286.    end if
  287.    rs3.close
  288.    set rs3=nothing
  289.    %>
  290. </td>
  291. </tr>
  292. </table>
  293. <table width="99%" border="0" cellspacing="0" cellpadding="0">
  294. <tr>
  295. <th width="195">热门游戏</th>
  296. </tr>
  297. <tr height="3">
  298. <td height="3" bgcolor="#CCCCCC" width="195"></td>
  299. </tr>
  300. <tr>
  301. <td valign="top">
  302. <%
  303. set rs3=server.createobject("adodb.recordset")
  304. sql="select top " & CInt(TopNum) & " id,xingzhi,hits,addtime,Sdate from Gq_sfdata where Ulock=1 order by hits DESC,ID DESC"
  305. rs3.open sql,conn,1,1
  306. do while not rs3.eof
  307. %>
  308. <TABLE cellSpacing=1 cellPadding=1 width="95%" border=0 align="center">
  309. <TR>
  310. <%if tee5.Showhtml < 1 then%>
  311. <TD height="20" valign="middle">· <a href='/html/Game/<%=tee5.ContentHtml(rs3)%>.html' target='_blank' Title='私服名称：<%=rs3("xingzhi")%>&#13&#10更新时间：<%=rs3("addtime")%>&#13&#10人气指数：<%=rs3("hits")%>'><font color="#333333"><%=left(rs3("xingzhi"),20)%>...</font></a></TD>
  312. <%else%>
  313. <TD height="20" valign="middle">· <a href='/showsf.asp?id=<%=rs3("id")%>' target='_blank' Title='私服名称：<%=rs3("xingzhi")%>&#13&#10更新时间：<%=rs3("addtime")%>&#13&#10人气指数：<%=rs3("hits")%>'><font color="#333333"><%=left(rs3("xingzhi"),20)%>...</font></a></TD>
  314. <%end if%>
  315. </TR>
  316. </TABLE>
  317. <%
  318.    rs3.movenext
  319.    loop
  320.    if rs3.eof and rs3.bof then
  321.    Response.Write "<div align=center><br>当前没有热门游戏<br><br></div>"
  322.    end if
  323.    rs3.close
  324.    set rs3=nothing
  325.    %>
  326. </td>
  327. </tr>
  328. </table>
  329. <%
  330. Response.Write "</td>"
  331. Response.Write "  </tr>"
  332. Response.Write "</TABLE>"
  333. %>
  334. <script language="javascript">
  335. <!--
  336. function copyToClipBoard(){
  337.     var clipBoardContent=document.location; 
  338.     clipBoardContent+='rn这个私服很经典！n服务器名：<%=rs("name")%>n服务器IP：<%=rs("ip")%>n《hi.baidu.com/hezeyu》还有爆多经典的私服游戏！';
  339.     window.clipboardData.setData("Text",clipBoardContent);
  340.     alert("耶！复制成功喽！你可以粘贴在QQ消息里发给你的好朋友一起玩了！");
  341. }
  342. //-->
  343. </script>
  344. <%
  345. tee5.footer()
  346. end if
  347. call CloseConn()
  348. %>