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

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

外挂编程

开发平台：

ASP/ASPX

Admin_List.asp：源码内容
  1. <!--#include file="setup.asp"-->
  2. <!--#include file="check.asp"-->
  3. <%
  4. If Not CheckAdmin("GameList") Then
  5.     Server.Transfer("showerr.asp")
  6.     Response.End
  7. End If
  8. Dim Rs_type, Sql_Type, Menu, linklist, AdsTime, ID, selID
  9. titlename="私服管理"
  10. Admin_header
  11. ID = tee5.ChkNumeric(Request("ID"))
  12. set Rs = server.createobject("adodb.recordset")
  13. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  14. Response.Write " <tr>"
  15. Response.Write " <th colspan=6>私服管理操作</th>"
  16. Response.Write " </tr>"
  17. Response.Write "<form method=post action=admin_list.asp?action=search>"
  18. Response.Write "<tr>"
  19. Response.Write "<td " & LeftClass & ">"
  20. Response.Write "<b>私服搜索：</b> <INPUT maxLength=15 size=15 value="""" name=key> "
  21. Response.Write " 类型："
  22. Response.Write "<SELECT name=menu>"
  23. Set Rs_type = Server.CreateObject("ADODB.RecordSet")
  24. Sql_Type="select * from Gq_GameType order by orderID"
  25. Rs_type.open Sql_type,conn,1,1
  26. Response.Write "<OPTION value="""" selected>所有私服</OPTION>"
  27. Do While Not Rs_type.EOF
  28. Response.Write "<OPTION value=" & Rs_type("ID") & ">" & Rs_type("game") & "</OPTION>"
  29. Rs_type.movenext
  30. loop
  31. Rs_type.close
  32. Response.Write "</SELECT>"
  33. Response.Write "&nbsp;&nbsp;条件："
  34. Response.Write "<INPUT name=otype type=radio value=name checked>服务器名 "
  35. Response.Write " <INPUT name=otype type=radio value=ip>服务器IP "
  36. Response.Write " <INPUT name=otype type=radio value=sdate>开放时间 "
  37. Response.Write " <input type=submit name=Submit value='开始搜索' class=Button>"
  38. Response.Write "</td>"
  39. Response.Write "</tr>"
  40. Response.Write "</form>"
  41. Response.Write "<tr>"
  42. Response.Write "<td " & LeftClass & ">"
  43. Response.Write "<b>游戏分类：</b><a href=""admin_list.asp"">所有私服</a>"
  44. Set Rs_type = Server.CreateObject("ADODB.RecordSet")
  45. Sql_Type="select * from Gq_GameType order by orderID"
  46. Rs_type.open Sql_type,conn,1,1
  47. If Rs_type.eof and Rs_type.bof then
  48. Response.Write "没有分类，请到后台添加！"
  49. Else
  50. Do While Not Rs_type.EOF
  51. Response.Write " | <a href=admin_list.asp?menu="&Rs_type("ID")&">"
  52. If cint(Rs_type("ID"))=cint(menu) then
  53. Response.Write "<font color=red>"&Rs_type("game")&"</font>"
  54. Else
  55. Response.Write Rs_type("game")
  56. End If
  57. Response.Write "</a>"
  58. Rs_type.movenext
  59. loop
  60. Rs_type.close
  61. End If
  62. Response.Write "<br><b>管理选项：</b><a href=""?action=ulock"">私服审核</a> | <a href=""?action=top"">固顶私服</a> | <a href=""?action=hot"">通宵推荐</a> | <a href=""?action=fine"">精品推荐</a> | <a href=""?action=free"">免费游戏</a></td>"
  63. Response.Write "</tr>"
  64. Response.Write "</table>"
  65. Response.Write "<br>"
  66. Dim tablestyle
  67. Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber
  68. maxperpage = AdminPage
  69. totalrec = 0
  70. Pcount = 1
  71. CurrentPage = tee5.ChkNumeric(Request("page"))
  72. If CurrentPage = 0 Then CurrentPage = 1
  73. Response.Write "<script src=""/js/showpage.js"" type=""text/javascript""></script>" & vbCrLf
  74. Menu = LCase(Request("Menu"))
  75. Action = LCase(Request("action"))
  76. Select Case Trim(Action)
  77. Case "ulock"
  78. Call UlockGame()
  79. Case "top"
  80. Call TopGame()
  81. Case "hot"
  82. Call HotGame()
  83. Case "fine"
  84. Call FineGame()
  85. Case "fine2"
  86. Call FineGame2()
  87. Case "free"
  88. Call FreeGame()
  89. Case "edit"
  90. Call EditGame()
  91. Case "search"
  92. Call SearchGame()
  93. Case "bathtml"
  94. Call ContentIDHtml(1,selID)
  95. Case "battop"
  96. Call BatTop()
  97. Case "bathot"
  98. Call BatHot()
  99. Case "batfine"
  100. Call BatFine()
  101. Case "batulock"
  102. Call BatUlock()
  103. Case "batdel"
  104. Call BatDel()
  105. Case "batutop"
  106. Call BatUtop()
  107. Case "batuhot"
  108. Call BatUhot()
  109. Case "batufine"
  110. Call BatUfine()
  111. Case Else
  112. Call GameList()
  113. End Select
  114. If Founderr = True Then
  115. ReturnError(ErrMsg)
  116. End If
  117. Admin_footer
  118. CloseConn
  119. '=========================================================
  120. '作者声明：转载请保留版权信息，鄙视不要脸的人
  121. '程序制作：╲、衡少゛  QQ: 18159079
  122. '官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  123. '=========================================================
  124. ' Copyright 2004-2007 863sf.Cn - All Rights Reserved.
  125. '=========================================================
  126. '=================================================
  127. '过程名：GameList
  128. '作  用：全部私服管理
  129. '=================================================
  130. Sub GameList()
  131. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  132. Response.Write " <tr>"
  133. Response.Write "<th wIDth=""5%"">选择</th>"
  134. Response.Write "<th wIDth=""9%"">类型</th>"
  135. Response.Write "<th wIDth=""16%"">名称</th>"
  136. Response.Write "<th wIDth=""15%"">IP</th>"
  137. Response.Write "<th wIDth=""*"">开机时间</th>"
  138. Response.Write "<th wIDth=""6%"">人气</th>"
  139. Response.Write "<th wIDth=""5%"">主页</th>"
  140. Response.Write "<th wIDth=""5%"">验证</th>"
  141. Response.Write "<th wIDth=""15%"">操作</th>"
  142. Response.Write "</tr>"
  143. Response.Write " <form name=selform method=Get action="""">"
  144. Response.Write " <input type=hIDden name=action value=''>"
  145. If menu<>"" then
  146. 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.xingzhi,Gq_sfdata.QQ,Gq_sfdata.hits,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.isBest,Gq_sfdata.fine,Gq_sfdata.BestTime,Gq_sfdata.hot,Gq_sfdata.gameID,Gq_GameType.game"
  147. Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.ulock=1 and Gq_sfdata.gameID="&menu
  148. Sql=Sql&" order by Gq_sfdata.ID desc"
  149. Else
  150. 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.xingzhi,Gq_sfdata.QQ,Gq_sfdata.hits,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.isBest,Gq_sfdata.fine,Gq_sfdata.BestTime,Gq_sfdata.hot,Gq_sfdata.gameID,Gq_GameType.game"
  151. Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID"
  152. Sql=Sql&" order by Gq_sfdata.ID desc"
  153. End If
  154. Rs.open Sql,conn,1,1 
  155. If Rs.eof and Rs.bof then 
  156. Response.Write "<tr><td " & CenterClass & " colspan='9'>当前无任何私服信息！</td></tr>"
  157. Else
  158. totalrec = Rs.RecordCount
  159. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  160. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  161. If CurrentPage < 1 Then CurrentPage = 1
  162. If CurrentPage > Pcount Then CurrentPage = Pcount
  163. Rs.PageSize = maxperpage
  164. Rs.AbsolutePage = CurrentPage
  165. i = 0
  166. Do While Not Rs.EOF And i < maxperpage
  167. If Not Response.IsClientConnected Then ResponseEnd
  168. Response.Write " <tr>"
  169. Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
  170. Response.Write Rs("ID")
  171. Response.Write """></td>"
  172. Response.Write "<td " & CenterClass & ">"
  173. Response.Write Rs("game")
  174. Response.Write "</td>"
  175. Response.Write "<td " & CenterClass & ">"
  176. Response.Write Rs("name")
  177. Response.Write "</td>"
  178. Response.Write "<td " & CenterClass & ">"
  179. Response.Write Rs("ip")
  180. Response.Write "</td>"
  181. Response.Write "<td " & CenterClass & ">"
  182. If Rs("Sdate")<>"" then
  183. Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
  184. End If
  185. Response.Write "</td>"
  186. Response.Write "<td " & CenterClass & "><font color=red>"
  187. Response.Write Rs("hits")
  188. Response.Write "</font></td>"
  189. Response.Write "<td " & CenterClass & ">"
  190. If Rs("homepage")="" or Rs("homepage")="无" or Rs("homepage")="http://" then
  191. Response.Write "未知"
  192. Else
  193. Response.Write "<a href="&Rs("homepage")&" target=_blank><FONT color=#0000FF>查看</FONT></a>" 
  194. End If
  195. Response.Write "</td>"
  196. Response.Write "<td " & CenterClass & ">"
  197. If Rs("ulock")=1 then
  198. Response.Write "<font color=#CCCCCC>通过</font>"
  199. Else
  200. Response.Write "<font color=red>等待</font>"
  201. End If
  202. Response.Write "</td>"
  203. Response.Write "<td " & CenterClass & ">"
  204. If Rs("isBest")=0 then
  205. Response.Write "<a href=?selID="&Rs("ID")&"&action=battop>固</a>"
  206. Else
  207. Response.Write "<a href=?selID="&Rs("ID")&"&action=batutop><font color=red>解</font></a>"
  208. End If
  209. Response.Write "|"
  210. If Rs("hot")=0 then
  211. Response.Write "<a href=?selID="&Rs("ID")&"&action=bathot>荐</a>"
  212. Else
  213. Response.Write "<a href=?selID="&Rs("ID")&"&action=batuhot><font color=BLUE>普</font></a>"
  214. End If
  215. Response.Write "|"
  216. If Rs("fine")=0 then
  217. Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
  218. Else
  219. Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
  220. End If
  221. Response.Write "|<a href=?ID="
  222. Response.Write Rs("ID")
  223. Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
  224. Response.Write Rs("ID")
  225. Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
  226. Response.Write "</tr>"
  227. Rs.movenext
  228. i = i + 1
  229. If i >= maxperpage Then Exit Do
  230. Loop
  231. End If
  232. Rs.Close:Set Rs = Nothing
  233. Response.Write "<TR height=25>" & vbCrLf
  234. Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
  235. Response.Write "<input class=Button type=button value='全选' onClick=""CheckAll(this.form)"">"
  236. Response.Write "<input class=Button type=button value='撤消' onClick=""CheckCel(this.form)"">"
  237. Response.Write "<input class=Button type=button value='反选' onClick=""CheckSel(this.form)""> "
  238. Response.Write "<input class=Button type=""submit"" name=""Submit1"" value=""批量固顶"" onclick=""document.selform.action.value='battop';""> "
  239. Response.Write "<input class=Button type=""submit"" name=""Submit2"" value=""批量通宵"" onclick=""document.selform.action.value='bathot';""> "
  240. Response.Write "<input class=Button type=""submit"" name=""Submit3"" value=""批量精品"" onclick=""document.selform.action.value='batfine';""> "
  241. Response.Write "<input class=Button type=""submit"" name=""Submit4"" value=""批量审核"" onclick=""document.selform.action.value='batulock';""> "
  242. Response.Write "<input class=Button type=""submit"" name=""Submit5"" value=""批量删除"" onclick=""document.selform.action.value='batdel';""> "
  243. Response.Write "<input class=Button type=""submit"" name=""Submit6"" value=""生成HTML"" onclick=""document.selform.action.value='bathtml';"">"
  244. Response.Write "</td>" & vbCrLf
  245. Response.Write "</tr>" & vbCrLf
  246. Response.Write "</form>" & vbCrLf
  247. Response.Write "<TR height=25>" & vbCrLf
  248. Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
  249. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"","私服管理"
  250. Response.Write "</TD></TR></TABLE>" & vbCrLf
  251. End Sub
  252. '=========================================================
  253. '作者声明：转载请保留版权信息，鄙视不要脸的人
  254. '程序制作：╲、衡少゛  QQ: 18159079
  255. '官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  256. '=========================================================
  257. ' Copyright 2004-2007 863sf.Cn - All Rights Reserved.
  258. '=========================================================
  259. '=================================================
  260. '过程名：UlockGame
  261. '作  用：私服审核管理
  262. '=================================================
  263. Sub UlockGame()
  264. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  265. Response.Write " <tr>"
  266. Response.Write "<th wIDth=""5%"">选择</th>"
  267. Response.Write "<th wIDth=""9%"">类型</th>"
  268. Response.Write "<th wIDth=""16%"">名称</th>"
  269. Response.Write "<th wIDth=""15%"">IP</th>"
  270. Response.Write "<th wIDth=""*"">开机时间</th>"
  271. Response.Write "<th wIDth=""12%"">客服</th>"
  272. Response.Write "<th wIDth=""5%"">主页</th>"
  273. Response.Write "<th wIDth=""15%"">操作</th>"
  274. Response.Write "</tr>"
  275. Response.Write " <form name=selform method=Get action="""">"
  276. Response.Write " <input type=hIDden name=action value=''>"
  277. 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.xingzhi,Gq_sfdata.QQ,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.isBest,Gq_sfdata.BestTime,Gq_sfdata.gameID,Gq_GameType.game"
  278. Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.ulock=0"
  279. Sql=Sql&" order by Gq_sfdata.ID desc"
  280. Rs.open Sql,conn,1,1 
  281. If Rs.eof and Rs.bof then
  282. Response.Write "<tr><td align='center' class=tablerow1 colspan='8'>当前没有未通过审核的私服！</td></tr>"
  283. Else 
  284. totalrec = Rs.RecordCount
  285. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  286. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  287. If CurrentPage < 1 Then CurrentPage = 1
  288. If CurrentPage > Pcount Then CurrentPage = Pcount
  289. Rs.PageSize = maxperpage
  290. Rs.AbsolutePage = CurrentPage
  291. i = 0
  292. Do While Not Rs.EOF And i < maxperpage
  293. If Not Response.IsClientConnected Then ResponseEnd
  294. Response.Write " <tr>"
  295. Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
  296. Response.Write Rs("ID")
  297. Response.Write """></td>"
  298. Response.Write "<td " & CenterClass & ">"
  299. Response.Write Rs("game")
  300. Response.Write "</td>"
  301. Response.Write "<td " & CenterClass & ">"
  302. Response.Write Rs("name")
  303. Response.Write "</td>"
  304. Response.Write "<td " & CenterClass & ">"
  305. Response.Write Rs("ip")
  306. Response.Write "</td>"
  307. Response.Write "<td " & CenterClass & ">"
  308. If Rs("Sdate")<>"" then
  309. Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
  310. End If
  311. Response.Write "</td>"
  312. Response.Write "<td " & CenterClass & ">"
  313. Response.Write Rs("QQ")
  314. Response.Write "</td>"
  315. Response.Write "<td " & CenterClass & ">"
  316. If Rs("homepage")="" or Rs("homepage")="无" or Rs("homepage")="http://" then
  317. Response.Write "未知"
  318. Else
  319. Response.Write "<a href="&Rs("homepage")&" target=_blank><FONT color=#0000FF>查看</FONT></a>"
  320. End If
  321. Response.Write "</td>"
  322. Response.Write "<td " & CenterClass & "><a href=?ID="
  323. Response.Write Rs("ID")
  324. Response.Write "&action=edit><font color=""#008000"">编辑</font></a> | <a href=?selID="
  325. Response.Write Rs("ID")
  326. Response.Write "&action=batdel><font color=""#008000"">删除</font></a></td>"
  327. Response.Write "</tr>"
  328. Rs.movenext
  329. i = i + 1
  330. If i >= maxperpage Then Exit Do
  331. Loop
  332. End If
  333. Rs.Close:Set Rs = Nothing
  334. Response.Write "<TR height=25>" & vbCrLf
  335. Response.Write "<TD " & LeftClass & " colspan=8><B>操作选项:<B> "
  336. Response.Write "<input class=Button type=button value='全选' onClick=""CheckAll(this.form)"">"
  337. Response.Write "<input class=Button type=button value='撤消' onClick=""CheckCel(this.form)"">"
  338. Response.Write "<input class=Button type=button value='反选' onClick=""CheckSel(this.form)""> "
  339. Response.Write "<input class=Button type=""submit"" name=""Submit1"" value=批量审核 onclick=""document.selform.action.value='batulock';""> "
  340. Response.Write "<input class=Button type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
  341. Response.Write "</td>" & vbCrLf
  342. Response.Write "</tr>" & vbCrLf
  343. Response.Write "</form>" & vbCrLf
  344. Response.Write "<TR height=25>" & vbCrLf
  345. Response.Write "<TD " & RightClass & " colspan=8>" & vbCrLf
  346. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=ulock","私服审核"
  347. Response.Write "</TD></TR></TABLE>" & vbCrLf
  348. End Sub
  349. '=========================================================
  350. '作者声明：转载请保留版权信息，鄙视不要脸的人
  351. '程序制作：╲、衡少゛  QQ: 18159079
  352. '官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  353. '=========================================================
  354. ' Copyright 2004-2007 863sf.Cn - All Rights Reserved.
  355. '=========================================================
  356. '=================================================
  357. '过程名：TopGame
  358. '作  用：固顶推荐管理
  359. '=================================================
  360. Sub TopGame()
  361. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  362. Response.Write " <tr>"
  363. Response.Write "<th wIDth=""5%"">选择</th>"
  364. Response.Write "<th wIDth=""9%"">类型</th>"
  365. Response.Write "<th wIDth=""16%"">名称</th>"
  366. Response.Write "<th wIDth=""15%"">IP</th>"
  367. Response.Write "<th wIDth=""*"">开机时间</th>"
  368. Response.Write "<th wIDth=""18%"">推荐时间</th>"
  369. Response.Write "<th wIDth=""6%"">广告</th>"
  370. Response.Write "<th wIDth=""8%"">操作</th>"
  371. Response.Write "</tr>"
  372. Response.Write " <form name=selform method=Get action="""">"
  373. Response.Write " <input type=hIDden name=action value=''>"
  374. 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.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.isBest,Gq_sfdata.BestTime,Gq_sfdata.Daytime,Gq_sfdata.gameID,Gq_gametype.game"
  375. Sql=Sql&" from Gq_sfdata,Gq_gametype where Gq_sfdata.gameID=Gq_gametype.ID and Gq_sfdata.isBest=1"
  376. Sql=Sql&" order by Gq_sfdata.ID desc"
  377. Rs.open Sql,conn,1,1 
  378. If Rs.eof and Rs.bof then 
  379. Response.Write "<tr><td align='center' class=tablerow1 colspan='8'>当前没有固顶推荐的私服！</td></tr>"
  380. Else 
  381. totalrec = Rs.RecordCount
  382. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  383. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  384. If CurrentPage < 1 Then CurrentPage = 1
  385. If CurrentPage > Pcount Then CurrentPage = Pcount
  386. Rs.PageSize = maxperpage
  387. Rs.AbsolutePage = CurrentPage
  388. i = 0
  389. Do While Not Rs.EOF And i < maxperpage
  390. If Not Response.IsClientConnected Then ResponseEnd
  391. Response.Write " <tr>"
  392. Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
  393. Response.Write Rs("ID")
  394. Response.Write """></td>"
  395. Response.Write "<td " & CenterClass & ">"
  396. Response.Write Rs("game")
  397. Response.Write "</td>"
  398. Response.Write "<td " & CenterClass & ">"
  399. Response.Write Rs("name")
  400. Response.Write "</td>"
  401. Response.Write "<td " & CenterClass & ">"
  402. Response.Write Rs("ip")
  403. Response.Write "</td>"
  404. Response.Write "<td " & CenterClass & ">"
  405. If Rs("Sdate")<>"" then
  406. Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
  407. End If
  408. Response.Write "</td>"
  409. AdsTime=Rs("Daytime")+1
  410. Response.Write "<td " & CenterClass & ">"
  411. Response.Write Rs("BestTime")
  412. Response.Write "</td>"
  413. Response.Write "<td " & CenterClass & ">"
  414. If Rs("Daytime")=0 then
  415. Response.Write "<FONT color=#FF0000>一天</FONT>"
  416. Else
  417. Response.Write AdsTime
  418. Response.Write "天"
  419. End If
  420. Response.Write "</td>"
  421. Response.Write "<td " & CenterClass & ">"
  422. If Rs("isBest")=0 then
  423. Response.Write "<a href=?ID="&Rs("ID")&"&act=top>固</a>"
  424. Else
  425. Response.Write "<a href=?selID="&Rs("ID")&"&action=batutop><font color=red>解</font></a>"
  426. End If
  427. Response.Write "|<a href=?ID="
  428. Response.Write Rs("ID")
  429. Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
  430. Response.Write Rs("ID")
  431. Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
  432. Response.Write "</tr>"
  433. Rs.movenext
  434. i = i + 1
  435. If i >= maxperpage Then Exit Do
  436. Loop
  437. End If
  438. Rs.Close:Set Rs = Nothing
  439. Response.Write "<TR height=25>" & vbCrLf
  440. Response.Write "<TD " & LeftClass & " colspan=8><B>操作选项:<B> "
  441. Response.Write "<input class=Button type=button value='全选' onClick=""CheckAll(this.form)"">"
  442. Response.Write "<input class=Button type=button value='撤消' onClick=""CheckCel(this.form)"">"
  443. Response.Write "<input class=Button type=button value='反选' onClick=""CheckSel(this.form)""> "
  444. Response.Write "<input class=Button type=""submit"" name=""Submit1"" value=批量解固 onclick=""document.selform.action.value='batuTop';""> "
  445. Response.Write "<input class=Button type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
  446. Response.Write "</td>" & vbCrLf
  447. Response.Write "</tr>" & vbCrLf
  448. Response.Write "</form>" & vbCrLf
  449. Response.Write "<TR height=25>" & vbCrLf
  450. Response.Write "<TD " & RightClass & " colspan=8>" & vbCrLf
  451. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=top","固顶私服"
  452. Response.Write "</TD></TR></TABLE>" & vbCrLf
  453. End Sub
  456. '=========================================================
  457. '作者声明：转载请保留版权信息，鄙视不要脸的人
  458. '程序制作：╲、衡少゛  QQ: 18159079
  459. '官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  460. '=========================================================
  461. ' Copyright 2004-2007 863sf.Cn - All Rights Reserved.
  462. '=========================================================
  463. '=================================================
  464. '过程名：HotGame
  465. '作  用：通宵推荐管理
  466. '=================================================
  467. Sub HotGame()
  468. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  469. Response.Write " <tr>"
  470. Response.Write "<th wIDth=""5%"">选择</th>"
  471. Response.Write "<th wIDth=""9%"">类型</th>"
  472. Response.Write "<th wIDth=""16%"">名称</th>"
  473. Response.Write "<th wIDth=""15%"">IP</th>"
  474. Response.Write "<th wIDth=""*"">开机时间</th>"
  475. Response.Write "<th wIDth=""18%"">推荐时间</th>"
  476. Response.Write "<th wIDth=""5%"">广告</th>"
  477. Response.Write "<th wIDth=""6%"">人气</th>"
  478. Response.Write "<th wIDth=""8%"">操作</th>"
  479. Response.Write "</tr>"
  480. Response.Write " <form name=selform method=Get action="""">"
  481. Response.Write " <input type=hIDden name=action value=''>"
  482. 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.xingzhi,Gq_sfdata.QQ,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.hot,Gq_sfdata.hottime,Gq_sfdata.Daytime,Gq_sfdata.hits,Gq_sfdata.gameID,Gq_GameType.game"
  483. Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.hot=1"
  484. Sql=Sql&" order by Gq_sfdata.ID desc"
  485. Rs.open Sql,conn,1,1 
  486. If Rs.eof and Rs.bof then
  487. Response.Write "<tr><td align='center' class=tablerow1 colspan='9'>当前没有通宵推荐私服！</td></tr>"
  488. Else 
  489. totalrec = Rs.RecordCount
  490. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  491. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  492. If CurrentPage < 1 Then CurrentPage = 1
  493. If CurrentPage > Pcount Then CurrentPage = Pcount
  494. Rs.PageSize = maxperpage
  495. Rs.AbsolutePage = CurrentPage
  496. i = 0
  497. Do While Not Rs.EOF And i < maxperpage
  498. If Not Response.IsClientConnected Then ResponseEnd
  499. Response.Write " <tr>"
  500. Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
  501. Response.Write Rs("ID")
  502. Response.Write """></td>"
  503. Response.Write "<td " & CenterClass & ">"
  504. Response.Write Rs("game")
  505. Response.Write "</td>"
  506. Response.Write "<td " & CenterClass & ">"
  507. Response.Write Rs("name")
  508. Response.Write "</td>"
  509. Response.Write "<td " & CenterClass & ">"
  510. Response.Write Rs("ip")
  511. Response.Write "</td>"
  512. Response.Write "<td " & CenterClass & ">"
  513. If Rs("Sdate")<>"" then
  514. Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
  515. End If
  516. Response.Write "</td>"
  517. AdsTime=Rs("Daytime")+1
  519. Response.Write "<td " & CenterClass & ">"
  520. Response.Write Rs("hottime")
  521. Response.Write "</td>"
  522. Response.Write "<td " & CenterClass & ">"
  523. If Rs("Daytime")=0 then
  524. Response.Write "<FONT color=#FF0000>一天</FONT>"
  525. Else
  526. Response.Write AdsTime
  527. Response.Write "天"
  528. End If
  529. Response.Write "</td>"
  530. Response.Write "<td " & CenterClass & ">"
  531. Response.Write "<font color=red>"
  532. Response.Write Rs("hits")
  533. Response.Write "</font></td>"
  534. Response.Write "<td " & CenterClass & ">"
  535. If Rs("hot")=0 then
  536. Response.Write "<a href=?selID="
  537. Response.Write Rs("ID")
  538. Response.Write "&action=bathot>荐</a>"
  539. Else
  540. Response.Write "<a href=?selID="
  541. Response.Write Rs("ID")
  542. Response.Write "&action=batuhot><font color=red>普</font></a>"
  543. End If
  544. Response.Write "|<a href=?ID="
  545. Response.Write Rs("ID")
  546. Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
  547. Response.Write Rs("ID")
  548. Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
  549. Response.Write "</tr>"
  550. Rs.movenext
  551. i = i + 1
  552. If i >= maxperpage Then Exit Do
  553. Loop
  554. End If
  555. Rs.Close:Set Rs = Nothing
  556. Response.Write "<TR height=25>" & vbCrLf
  557. Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
  558. Response.Write "<input class=Button type=button value='全选' onClick=""CheckAll(this.form)"">"
  559. Response.Write "<input class=Button type=button value='撤消' onClick=""CheckCel(this.form)"">"
  560. Response.Write "<input class=Button type=button value='反选' onClick=""CheckSel(this.form)""> "
  561. Response.Write "<input class=Button type=""submit"" name=""Submit1"" value=批量解荐 onclick=""document.selform.action.value='batuHot';""> "
  562. Response.Write "<input class=Button type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
  563. Response.Write "</td>" & vbCrLf
  564. Response.Write "</tr>" & vbCrLf
  565. Response.Write "</form>" & vbCrLf
  566. Response.Write "<TR height=25>" & vbCrLf
  567. Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
  568. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=hot","通宵私服"
  569. Response.Write "</TD></TR></TABLE>" & vbCrLf
  570. End Sub
  571. '=========================================================
  572. '作者声明：转载请保留版权信息，鄙视不要脸的人
  573. '程序制作：╲、衡少゛  QQ: 18159079
  574. '官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  575. '=========================================================
  576. ' Copyright 2004-2007 863sf.Cn - All Rights Reserved.
  577. '=========================================================
  578. '=================================================
  579. '过程名：FineGame
  580. '作  用：精品推荐管理
  581. '=================================================
  582. Sub FineGame()
  583. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  584. Response.Write " <tr>"
  585. Response.Write "<th wIDth=""5%"">选择</th>"
  586. Response.Write "<th wIDth=""9%"">类型</th>"
  587. Response.Write "<th wIDth=""16%"">名称</th>"
  588. Response.Write "<th wIDth=""15%"">IP</th>"
  589. Response.Write "<th wIDth=""*"">开机时间</th>"
  590. Response.Write "<th wIDth=""18%"">推荐时间</th>"
  591. Response.Write "<th wIDth=""6%"">广告</th>"
  592. Response.Write "<th wIDth=""6%"">人气</th>"
  593. Response.Write "<th wIDth=""8%"">操作</th>"
  594. Response.Write "</tr>"
  595. Response.Write " <form name=selform method=Get action="""">"
  596. Response.Write " <input type=hIDden name=action value=''>"
  597. 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.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.Fine,Gq_sfdata.Finetime,Gq_sfdata.Daytime,Gq_sfdata.hits,Gq_sfdata.gameID,Gq_GameType.game"
  598. Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.Fine=1"
  599. Sql=Sql&" order by Gq_sfdata.ID desc"
  600. Rs.open Sql,conn,1,1 
  601. If Rs.eof and Rs.bof then
  602. Response.Write "<tr><td align='center' class=tablerow1 colspan='9'>当前还没有精品私服推荐！</td></tr>"
  603. Else 
  604. totalrec = Rs.RecordCount
  605. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  606. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  607. If CurrentPage < 1 Then CurrentPage = 1
  608. If CurrentPage > Pcount Then CurrentPage = Pcount
  609. Rs.PageSize = maxperpage
  610. Rs.AbsolutePage = CurrentPage
  611. i = 0
  612. Do While Not Rs.EOF And i < maxperpage
  613. If Not Response.IsClientConnected Then ResponseEnd
  614. Response.Write " <tr>"
  615. Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
  616. Response.Write Rs("ID")
  617. Response.Write """></td>"
  618. Response.Write "<td " & CenterClass & ">"
  619. Response.Write Rs("game")
  620. Response.Write "</td>"
  621. Response.Write "<td " & CenterClass & ">"
  622. Response.Write Rs("name")
  623. Response.Write "</td>"
  624. Response.Write "<td " & CenterClass & ">"
  625. Response.Write Rs("ip")
  626. Response.Write "</td>"
  627. Response.Write "<td " & CenterClass & ">"
  628. If Rs("Sdate")<>"" then
  629. Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
  630. End If
  631. Response.Write "</td>"
  632. AdsTime=Rs("Daytime")+1
  634. Response.Write "<td " & CenterClass & ">"
  635. Response.Write Rs("finetime")
  636. Response.Write "</td>"
  637. Response.Write "<td " & CenterClass & ">"
  638. If Rs("Daytime")=0 then
  639. Response.Write "<FONT color=#FF0000>一天</FONT>"
  640. Else
  641. Response.Write AdsTime
  642. Response.Write "天"
  643. End If
  644. Response.Write "</td>"
  645. Response.Write "<td " & CenterClass & "><font color=red>"
  646. Response.Write Rs("hits")
  647. Response.Write "</font></td>"
  648. Response.Write "<td " & CenterClass & ">"
  649. If Rs("fine")=0 then
  650. Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
  651. Else
  652. Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
  653. End If
  654. Response.Write "|<a href=?ID="
  655. Response.Write Rs("ID")
  656. Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
  657. Response.Write Rs("ID")
  658. Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
  659. Response.Write "</tr>"
  660. Rs.movenext
  661. i = i + 1
  662. If i >= maxperpage Then Exit Do
  663. Loop
  664. End If
  665. Rs.Close:Set Rs = Nothing
  666. Response.Write "<TR height=25>" & vbCrLf
  667. Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
  668. Response.Write "<input class=Button type=button value='全选' onClick=""CheckAll(this.form)"">"
  669. Response.Write "<input class=Button type=button value='撤消' onClick=""CheckCel(this.form)"">"
  670. Response.Write "<input class=Button type=button value='反选' onClick=""CheckSel(this.form)""> "
  671. Response.Write "<input class=Button type=""submit"" name=""Submit1"" value=批量解精 onclick=""document.selform.action.value='batuFine';""> "
  672. Response.Write "<input class=Button type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
  673. Response.Write "</td>" & vbCrLf
  674. Response.Write "</tr>" & vbCrLf
  675. Response.Write "</form>" & vbCrLf
  676. Response.Write "<TR height=25>" & vbCrLf
  677. Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
  678. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=fine","精品私服"
  679. Response.Write "</TD></TR></TABLE>" & vbCrLf
  680. End Sub
  681. '=================================================
  682. '过程名：FineGame2
  683. '作  用：固顶精品推荐管理
  684. '=================================================
  685. Sub FineGame2()
  686. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  687. Response.Write " <tr>"
  688. Response.Write "<th wIDth=""5%"">选择</th>"
  689. Response.Write "<th wIDth=""9%"">类型</th>"
  690. Response.Write "<th wIDth=""16%"">名称</th>"
  691. Response.Write "<th wIDth=""15%"">IP</th>"
  692. Response.Write "<th wIDth=""*"">开机时间</th>"
  693. Response.Write "<th wIDth=""18%"">推荐时间</th>"
  694. Response.Write "<th wIDth=""6%"">广告</th>"
  695. Response.Write "<th wIDth=""6%"">人气</th>"
  696. Response.Write "<th wIDth=""8%"">操作</th>"
  697. Response.Write "</tr>"
  698. Response.Write " <form name=selform method=Get action="""">"
  699. Response.Write " <input type=hIDden name=action value=''>"
  700. 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.xingzhi,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.Fine,Gq_sfdata.Finetime,Gq_sfdata.Daytime,Gq_sfdata.hits,Gq_sfdata.gameID,Gq_GameType.game"
  701. Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.Fine=2"
  702. Sql=Sql&" order by Gq_sfdata.ID desc"
  703. Rs.open Sql,conn,1,1 
  704. If Rs.eof and Rs.bof then
  705. Response.Write "<tr><td align='center' class=tablerow1 colspan='9'>当前还没有固顶精品私服推荐！</td></tr>"
  706. Else 
  707. totalrec = Rs.RecordCount
  708. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  709. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  710. If CurrentPage < 1 Then CurrentPage = 1
  711. If CurrentPage > Pcount Then CurrentPage = Pcount
  712. Rs.PageSize = maxperpage
  713. Rs.AbsolutePage = CurrentPage
  714. i = 0
  715. Do While Not Rs.EOF And i < maxperpage
  716. If Not Response.IsClientConnected Then ResponseEnd
  717. Response.Write " <tr>"
  718. Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
  719. Response.Write Rs("ID")
  720. Response.Write """></td>"
  721. Response.Write "<td " & CenterClass & ">"
  722. Response.Write Rs("game")
  723. Response.Write "</td>"
  724. Response.Write "<td " & CenterClass & ">"
  725. Response.Write Rs("name")
  726. Response.Write "</td>"
  727. Response.Write "<td " & CenterClass & ">"
  728. Response.Write Rs("ip")
  729. Response.Write "</td>"
  730. Response.Write "<td " & CenterClass & ">"
  731. If Rs("Sdate")<>"" then
  732. Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
  733. End If
  734. Response.Write "</td>"
  735. AdsTime=Rs("Daytime")+1
  737. Response.Write "<td " & CenterClass & ">"
  738. Response.Write Rs("finetime")
  739. Response.Write "</td>"
  740. Response.Write "<td " & CenterClass & ">"
  741. If Rs("Daytime")=0 then
  742. Response.Write "<FONT color=#FF0000>一天</FONT>"
  743. Else
  744. Response.Write AdsTime
  745. Response.Write "天"
  746. End If
  747. Response.Write "</td>"
  748. Response.Write "<td " & CenterClass & "><font color=red>"
  749. Response.Write Rs("hits")
  750. Response.Write "</font></td>"
  751. Response.Write "<td " & CenterClass & ">"
  752. If Rs("fine")=0 then
  753. Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
  754. Else
  755. Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
  756. End If
  757. Response.Write "|<a href=?ID="
  758. Response.Write Rs("ID")
  759. Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
  760. Response.Write Rs("ID")
  761. Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
  762. Response.Write "</tr>"
  763. Rs.movenext
  764. i = i + 1
  765. If i >= maxperpage Then Exit Do
  766. Loop
  767. End If
  768. Rs.Close:Set Rs = Nothing
  769. Response.Write "<TR height=25>" & vbCrLf
  770. Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
  771. Response.Write "<input class=Button type=button value='全选' onClick=""CheckAll(this.form)"">"
  772. Response.Write "<input class=Button type=button value='撤消' onClick=""CheckCel(this.form)"">"
  773. Response.Write "<input class=Button type=button value='反选' onClick=""CheckSel(this.form)""> "
  774. Response.Write "<input class=Button type=""submit"" name=""Submit1"" value=批量解精 onclick=""document.selform.action.value='batuFine';""> "
  775. Response.Write "<input class=Button type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
  776. Response.Write "</td>" & vbCrLf
  777. Response.Write "</tr>" & vbCrLf
  778. Response.Write "</form>" & vbCrLf
  779. Response.Write "<TR height=25>" & vbCrLf
  780. Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
  781. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=fine","固顶精品"
  782. Response.Write "</TD></TR></TABLE>" & vbCrLf
  783. End Sub
  784. '=========================================================
  785. '作者声明：转载请保留版权信息，鄙视不要脸的人
  786. '程序制作：╲、衡少゛  QQ: 18159079
  787. '官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  788. '=========================================================
  789. ' Copyright 2004-2007 863sf.Cn - All Rights Reserved.
  790. '=========================================================
  791. '=================================================
  792. '过程名：FreeGame
  793. '作  用：更多私服管理
  794. '=================================================
  795. Sub FreeGame()
  796. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  797. Response.Write " <tr>"
  798. Response.Write "<th wIDth=""5%"">选择</th>"
  799. Response.Write "<th wIDth=""9%"">类型</th>"
  800. Response.Write "<th wIDth=""16%"">名称</th>"
  801. Response.Write "<th wIDth=""15%"">IP</th>"
  802. Response.Write "<th wIDth=""*"">开机时间</th>"
  803. Response.Write "<th wIDth=""14%"">客服QQ</th>"
  804. Response.Write "<th wIDth=""7%"">审核</th>"
  805. Response.Write "<th wIDth=""14%"">操作</th>"
  806. Response.Write "</tr>"
  807. Response.Write " <form name=selform method=Get action="""">"
  808. Response.Write " <input type=hIDden name=action value=''>"
  809. 'If menu<>"" then
  810. '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.xingzhi,Gq_sfdata.QQ,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.isBest,Gq_sfdata.hot,Gq_sfdata.fine,Gq_sfdata.gameID,Gq_gametype.game"
  811. 'Sql=Sql&" from Gq_sfdata,Gq_gametype where Gq_sfdata.gameID=Gq_gametype.ID and Gq_sfdata.gameID="&menu
  812. 'Sql=Sql&" order by Gq_sfdata.ID desc"
  813. 'Else
  814. 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.xingzhi,Gq_sfdata.QQ,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.isBest,Gq_sfdata.hot,Gq_sfdata.fine,Gq_sfdata.gameID,Gq_gametype.game"
  815. Sql=Sql&" from Gq_sfdata,Gq_gametype where Gq_sfdata.gameID=Gq_gametype.ID and Gq_sfdata.ulock=1 and Gq_sfdata.isBest=0 and Gq_sfdata.hot=0 and Gq_sfdata.fine=0"
  816. Sql=Sql&" order by Gq_sfdata.ID desc"
  817. 'End If
  818. Rs.open Sql,conn,1,1 
  819. If Rs.eof and Rs.bof then
  820. Response.Write "<tr><td align='center' class=tablerow1 colspan='8'>当前没有任何私服！</td></tr>"
  821. Else 
  822. totalrec = Rs.RecordCount
  823. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  824. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  825. If CurrentPage < 1 Then CurrentPage = 1
  826. If CurrentPage > Pcount Then CurrentPage = Pcount
  827. Rs.PageSize = maxperpage
  828. Rs.AbsolutePage = CurrentPage
  829. i = 0
  830. Do While Not Rs.EOF And i < maxperpage
  831. If Not Response.IsClientConnected Then ResponseEnd
  832. Response.Write " <tr>"
  833. Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
  834. Response.Write Rs("ID")
  835. Response.Write """></td>"
  836. Response.Write "<td " & CenterClass & ">"
  837. Response.Write Rs("game")
  838. Response.Write "</td>"
  839. Response.Write "<td " & CenterClass & ">"
  840. Response.Write Rs("name")
  841. Response.Write "</td>"
  842. Response.Write "<td " & CenterClass & ">"
  843. Response.Write Rs("ip")
  844. Response.Write "</td>"
  845. Response.Write "<td " & CenterClass & ">"
  846. If Rs("Sdate")<>"" then
  847. Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
  848. End If
  849. Response.Write "</td>"
  850. Response.Write "<td " & CenterClass & ">"
  851. Response.Write Rs("QQ")
  852. Response.Write "</td>"
  853. Response.Write "<td " & CenterClass & ">"
  854. If Rs("ulock")=1 then
  855. Response.Write "<font color=#CCCCCC>通过</font>"
  856. Else
  857. Response.Write "<font color=red>等待</font>"
  858. End If
  859. Response.Write "</td>"
  860. Response.Write "<td " & CenterClass & ">"
  861. If Rs("isBest")=0 then
  862. Response.Write "<a href=?selID="&Rs("ID")&"&action=battop>固</a>"
  863. Else
  864. Response.Write "<a href=?selID="&Rs("ID")&"&action=batutop><font color=red>解</font></a>"
  865. End If
  866. Response.Write "|"
  867. If Rs("hot")=0 then
  868. Response.Write "<a href=admin_hot.asp?selID="
  869. Response.Write Rs("ID")
  870. Response.Write "&action=bathot>荐</a>"
  871. Else
  872. Response.Write "<a href=admin_hot.asp?ID="
  873. Response.Write Rs("ID")
  874. Response.Write "&action=batuhot><font color=BLUE>普</font></a>"
  875. End If
  876. Response.Write "|<a href=?ID="
  877. Response.Write Rs("ID")
  878. Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
  879. Response.Write Rs("ID")
  880. Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
  881. Response.Write "</tr>"
  882. Rs.movenext
  883. i = i + 1
  884. If i >= maxperpage Then Exit Do
  885. Loop
  886. End If
  887. Rs.Close:Set Rs = Nothing
  888. Response.Write "<TR height=25>" & vbCrLf
  889. Response.Write "<TD " & LeftClass & " colspan=8><B>操作选项:<B> "
  890. Response.Write "<input class=Button type=button value='全选' onClick=""CheckAll(this.form)"">"
  891. Response.Write "<input class=Button type=button value='撤消' onClick=""CheckCel(this.form)"">"
  892. Response.Write "<input class=Button type=button value='反选' onClick=""CheckSel(this.form)""> "
  893. Response.Write "<input class=Button type=""submit"" name=""Submit1"" value=批量审核 onclick=""document.selform.action.value='batulock';""> "
  894. Response.Write "<input class=Button type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
  895. Response.Write "</td>" & vbCrLf
  896. Response.Write "</tr>" & vbCrLf
  897. Response.Write "</form>" & vbCrLf
  898. Response.Write "<TR height=25>" & vbCrLf
  899. Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
  900. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=free","其他私服"
  901. Response.Write "</TD></TR></TABLE>" & vbCrLf
  902. End Sub
  903. '=========================================================
  904. '作者声明：转载请保留版权信息，鄙视不要脸的人
  905. '程序制作：╲、衡少゛  QQ: 18159079
  906. '官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  907. '=========================================================
  908. ' Copyright 2004-2007 863sf.Cn - All Rights Reserved.
  909. '=========================================================
  910. '=================================================
  911. '过程名：EditGame
  912. '作  用：私服编辑
  913. '=================================================
  914. Sub EditGame()
  915. ID=tee5.CheckStr(request("ID"))
  916. If ID="" or (not isnumeric(ID)) then
  917. tee5.OutClertScript ("参数不正确！")
  918. End If
  919. 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.xingzhi,Gq_sfdata.QQ,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.isBest,Gq_sfdata.fine,Gq_sfdata.hot,Gq_sfdata.Daytime,Gq_sfdata.gameID,Gq_gametype.game "
  920. Sql=Sql&" from Gq_sfdata,Gq_gametype where Gq_sfdata.gameID=Gq_gametype.ID and Gq_sfdata.ID="&ID
  921. Rs.open Sql,conn,1,1 
  922. If Rs.bof and Rs.eof then
  923. Response.Write "<script>alert('无此数据！！！');window.close()</script>"
  924. response.end
  925. Else
  926. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  927. Response.Write "<FORM name=form1 action=admin_edit.asp method=post>"
  928. Response.Write " <tr>"
  929. Response.Write "<th colspan=""2"">私服管理－－编辑私服</th>"
  930. Response.Write "</tr>"
  931. Response.Write "<TR>"
  932. Response.Write "<td wIDth=""15%"" " & RightClass & ">私服类型：</TD>"
  933. Response.Write "<td " & LeftClass & ">"
  934. Set Rs_type = Server.CreateObject("ADODB.RecordSet")
  935. Sql_Type="select * from Gq_gametype order by orderID"
  936. Rs_type.open Sql_type,conn,1,1
  937. Response.Write "<SELECT ID=gameID size=1 name=gameID>"
  938. If Rs_type.eof and Rs_type.bof then
  939. Response.Write "<option value= selected>请添加游戏分类</option>"
  940. Else
  941. Do While Not Rs_type.EOF
  942. If Rs_type("ID")=Rs("gameID") then
  943. Response.Write "<option value="&Rs_type("ID")&" selected>"&Rs_type("game")&"</option>"
  944. Else
  945. Response.Write "<option value="&Rs_type("ID")&">"&Rs_type("game")&"</option>"
  946. End If
  947. Rs_type.movenext
  948. loop
  949. Rs_type.close
  950. End If
  951. Response.Write "</SELECT></TD>"
  952. Response.Write "</TR>"
  953. Response.Write "<TR>"
  954. Response.Write "<td " & RightClass & ">私服名称：</TD>"
  955. Response.Write "<td " & LeftClass & "><INPUT name=name value=""" & Rs("name") & """ maxLength=14></TD>"
  956. Response.Write "</TR>"
  957. Response.Write "<tr>"
  958. Response.Write "<td " & RightClass & ">私服IP：</TD>"
  959. Response.Write "<td " & LeftClass & "><INPUT name=ip value=""" & Rs("ip") & """ maxLength=16></TD>"
  960. Response.Write "</tr>"
  961. Response.Write "<TR>"
  962. Response.Write "<td " & RightClass & ">开区时间：</TD>"
  963. Response.Write "<td " & LeftClass & "><INPUT name=sdate value=""" & Rs("sdate") & """ size=16 maxLength=16> <input name=hour value=""" & Rs("hour") & """ size=4 maxlength=4> 时 <INPUT name=minute value=""" & Rs("minute") & """ size=4 maxLength=4> 分</TD>"
  964. Response.Write "</TR>"
  965. Response.Write "<TR>"
  966. Response.Write "<td " & RightClass & ">客服QQ：</TD>"
  967. Response.Write "<td " & LeftClass & "><INPUT name=QQ value=""" & Rs("QQ") & """ maxLength=50></TD>"
  968. Response.Write "</TR>"
  969. Response.Write "<TR>"
  970. Response.Write "<td " & RightClass & ">地区线路：</TD>"
  971. Response.Write "<td " & LeftClass & ">"
  972. Response.Write "<INPUT name=addr value=""" & Rs("addr") & """ maxLength=50> "
  973. Response.Write "<SELECT ID=service size=1 name=service>"
  974. For i=0 to ubound(split(tee5.ssign,","))
  975. Response.Write " <OPTION value='"&i&"' "
  976. If Rs("Service")=i then Response.Write "selected" End If
  977. Response.Write ">"&split(tee5.ssign,",")(i)&"</option>"
  978. Next
  979. Response.Write "</SELECT></TD>"
  980. Response.Write "</TR>"
  981. Response.Write "<TR>"
  982. Response.Write "<td " & RightClass & ">版本简介：</TD>"
  983. Response.Write "<td " & LeftClass & "><INPUT name=xingzhi value=""" & Rs("xingzhi") & """ size=40 maxLength=28></TD>"
  984. Response.Write "</TR>"
  985. Response.Write "<TR>"
  986. Response.Write "<td " & RightClass & ">主页地址：</TD>"
  987. Response.Write "<td " & LeftClass & "><INPUT name=homepage value=""" & Rs("homepage") & """ size=36 maxLength=100></TD>"
  988. Response.Write "</TR>"
  989. Response.Write "<TR>"
  990. Response.Write "<td " & RightClass & ">登陆器下载：</TD>"
  991. Response.Write "<td " & LeftClass & "><INPUT name=download value=""" & Rs("download") & """ size=36 maxLength=100></TD>"
  992. Response.Write "</TR>"
  993. Response.Write "<TR>"
  994. Response.Write "<td " & RightClass & ">广告期限：</TD>"
  995. Response.Write "<td " & LeftClass & ">"
  996. Response.Write "<select name=""Daytime"" size=""1"">"
  997. Response.Write "<option selected value=""0"">请 选 择</option>"
  998. Response.Write "<OPTION value=0 "
  999. If Rs("Daytime")="0" then Response.Write "selected"
  1000. Response.Write ">推荐一天</OPTION>"
  1001. Response.Write "<OPTION value=1 "
  1002. If Rs("Daytime")="1" then Response.Write "selected"
  1003. Response.Write ">推荐二天</OPTION>"
  1004. Response.Write "<OPTION value=2 "
  1005. If Rs("Daytime")="2" then Response.Write "selected"
  1006. Response.Write ">推荐三天</OPTION>"
  1007. Response.Write "<OPTION value=3 "
  1008. If Rs("Daytime")="3" then Response.Write "selected"
  1009. Response.Write ">推荐四天</OPTION>"
  1010. Response.Write "<OPTION value=4 "
  1011. If Rs("Daytime")="4" then Response.Write "selected"
  1012. Response.Write ">推荐五天</OPTION>"
  1013. Response.Write "<OPTION value=5 "
  1014. If Rs("Daytime")="5" then Response.Write "selected"
  1015. Response.Write ">推荐六天</OPTION>"
  1016. Response.Write "<OPTION value=6 "
  1017. If Rs("Daytime")="6" then Response.Write "selected"
  1018. Response.Write ">推荐七天</OPTION>"
  1019. Response.Write "</select>"
  1020. Response.Write "</TD>"
  1021. Response.Write "</TR>"
  1022. Response.Write "<TR>"
  1023. Response.Write "<td " & RightClass & ">固顶精品：</TD>"
  1024. Response.Write "<td " & LeftClass & "><input name=""fine"" type=""checkbox"" value=""2"" "
  1025. If Rs("fine")=2 then Response.Write "checked"
  1026. Response.Write "></TD>"
  1027. Response.Write "</TR>"
  1028. Response.Write "<TR>"
  1029. Response.Write "<td " & RightClass & ">精品推荐：</TD>"
  1030. Response.Write "<td " & LeftClass & "><input name=""fine"" type=""checkbox"" value=""1"" "
  1031. If Rs("fine")=1 then Response.Write "checked"
  1032. Response.Write "></TD>"
  1033. Response.Write "</TR>"
  1034. Response.Write "<TR>"
  1035. Response.Write "<td " & RightClass & ">固顶推荐：</TD>"
  1036. Response.Write "<td " & LeftClass & "><input name=""isBest"" type=""checkbox"" value=""1"" "
  1037. If Rs("isBest")=1 then Response.Write "checked"
  1038. Response.Write "></TD>"
  1039. Response.Write "</TR>"
  1040. Response.Write "<TR>"
  1041. Response.Write "<td " & RightClass & ">通宵推荐：</TD>"
  1042. Response.Write "<td " & LeftClass & "><input name=""hot"" type=""checkbox"" value=""1"" "
  1043. If Rs("hot")=1 then Response.Write "checked"
  1044. Response.Write "></TD>"
  1045. Response.Write "</TR>"
  1046. Response.Write "<TR>"
  1047. Response.Write "<td " & RightClass & ">审核状态：</TD>"
  1048. Response.Write "<td " & LeftClass & "><input name=""ulock"" type=""checkbox"" value=""1"" "
  1049. If Rs("ulock")=1 then Response.Write "checked"
  1050. Response.Write "></TD>"
  1051. Response.Write "</TR>"
  1052. Response.Write "<TR>"
  1053. Response.Write "<td " & RightClass & ">发布日期：</TD>"
  1054. Response.Write "<td " & LeftClass & "><INPUT name=addtime value="""
  1055. If Rs("addtime")="" then
  1056. Response.Write Rs("sdate")
  1057. Else
  1058. Response.Write Rs("addtime")
  1059. End If
  1060. Response.Write """ size=20 maxLength=19></TD>"
  1061. Response.Write "</TR>"
  1062. Response.Write "<TR>"
  1063. Response.Write "<td " & CenterClass & " colspan=""2"">"
  1064. Response.Write "<input name=""ID"" type=""hIDden"" value=""" & Rs("ID") & """>"
  1065. Response.Write "<INPUT type=submit value="" 编 辑 "" name=submit2>&nbsp;&nbsp;&nbsp;&nbsp;"
  1066. Response.Write "<INPUT type=reset value="" 清 除 "" name=cmdcancel>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
  1067. Response.Write "</TD>"
  1068. Response.Write "</TR>"
  1069. Response.Write "</form>"
  1070. Response.Write "</TABLE>"
  1071. End If
  1072. End Sub
  1073. '=========================================================
  1074. '作者声明：转载请保留版权信息，鄙视不要脸的人
  1075. '程序制作：╲、衡少゛  QQ: 18159079
  1076. '官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
  1077. '=========================================================
  1078. ' Copyright 2004-2007 863sf.Cn - All Rights Reserved.
  1079. '=========================================================
  1080. '=================================================
  1081. '过程名：SearchGame
  1082. '作  用：私服搜索
  1083. '=================================================
  1084. Sub SearchGame()
  1085. Dim Key, Otype
  1086. Menu=tee5.CheckStr(request("menu"))
  1087. Key=tee5.CheckStr(request("key"))
  1088. Otype=tee5.CheckStr(request("otype"))
  1089. If key="" then
  1090. Response.Write "<script>alert('请输入查询条件');history.back()</script>"
  1091. response.end
  1092. End If
  1093. Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
  1094. Response.Write " <tr>"
  1095. Response.Write "<th wIDth=""5%"">选择</th>"
  1096. Response.Write "<th wIDth=""9%"">类型</th>"
  1097. Response.Write "<th wIDth=""16%"">名称</th>"
  1098. Response.Write "<th wIDth=""15%"">IP</th>"
  1099. Response.Write "<th wIDth=""*"">开机时间</th>"
  1100. Response.Write "<th wIDth=""6%"">人气</th>"
  1101. Response.Write "<th wIDth=""5%"">主页</th>"
  1102. Response.Write "<th wIDth=""5%"">验证</th>"
  1103. Response.Write "<th wIDth=""15%"">操作</th>"
  1104. Response.Write "</tr>"
  1105. Response.Write " <form name=selform method=Get action="""">"
  1106. Response.Write " <input type=hIDden name=action value=''>"
  1107. If menu<>"" then
  1108. 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.xingzhi,Gq_sfdata.QQ,Gq_sfdata.hits,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.isBest,Gq_sfdata.fine,Gq_sfdata.BestTime,Gq_sfdata.hot,Gq_sfdata.gameID,Gq_GameType.game"
  1109. Sql=Sql&" from Gq_SFdata,Gq_Gametype where "&otype&" like '%"&key&"%' and Gq_SFdata.gameID=Gq_gametype.ID and Gq_SFdata.gameID="&menu
  1110. Sql=Sql&" and Gq_SFdata.ulock=1 order by Gq_SFdata.addtime desc"
  1111. Else
  1112. 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.xingzhi,Gq_sfdata.QQ,Gq_sfdata.hits,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.isBest,Gq_sfdata.fine,Gq_sfdata.BestTime,Gq_sfdata.hot,Gq_sfdata.gameID,Gq_GameType.game"
  1113. Sql=Sql&" from Gq_SFdata,Gq_Gametype where "&otype&" like '%"&key&"%' and Gq_SFdata.gameID=Gq_gametype.ID"
  1114. Sql=Sql&" and Gq_SFdata.ulock=1 order by Gq_SFdata.addtime desc"
  1115. End If
  1116. Rs.open Sql,conn,1,1
  1117. If Rs.eof and Rs.bof then
  1118. Response.Write "<tr><td " & CenterClass & " colspan='9'><b>Sorry！<b><font color=red>没有找到您搜索的私服~！</font></td></tr>"
  1119. Else
  1120. totalrec = Rs.RecordCount
  1121. Pcount = CLng(totalrec / maxperpage)  '得到总页数
  1122. If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
  1123. If CurrentPage < 1 Then CurrentPage = 1
  1124. If CurrentPage > Pcount Then CurrentPage = Pcount
  1125. Rs.PageSize = maxperpage
  1126. Rs.AbsolutePage = CurrentPage
  1127. i = 0
  1128. Do While Not Rs.EOF And i < maxperpage
  1129. If Not Response.IsClientConnected Then ResponseEnd
  1130. Response.Write " <tr>"
  1131. Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
  1132. Response.Write Rs("ID")
  1133. Response.Write """></td>"
  1134. Response.Write "<td " & CenterClass & ">"
  1135. Response.Write Rs("game")
  1136. Response.Write "</td>"
  1137. Response.Write "<td " & CenterClass & ">"
  1138. Response.Write Rs("name")
  1139. Response.Write "</td>"
  1140. Response.Write "<td " & CenterClass & ">"
  1141. Response.Write Rs("ip")
  1142. Response.Write "</td>"
  1143. Response.Write "<td " & CenterClass & ">"
  1144. If Rs("Sdate")<>"" then
  1145. Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
  1146. End If
  1147. Response.Write "</td>"
  1148. Response.Write "<td " & CenterClass & "><font color=red>"
  1149. Response.Write Rs("hits")
  1150. Response.Write "</font></td>"
  1151. Response.Write "<td " & CenterClass & ">"
  1152. If Rs("homepage")="" or Rs("homepage")="无" or Rs("homepage")="http://" then
  1153. Response.Write "未知"
  1154. Else
  1155. Response.Write "<a href="&Rs("homepage")&" target=_blank><FONT color=#0000FF>查看</FONT></a>" 
  1156. End If
  1157. Response.Write "</td>"
  1158. Response.Write "<td " & CenterClass & ">"
  1159. If Rs("ulock")=1 then
  1160. Response.Write "<font color=#CCCCCC>通过</font>"
  1161. Else
  1162. Response.Write "<font color=red>等待</font>"
  1163. End If
  1164. Response.Write "</td>"
  1165. Response.Write "<td " & CenterClass & ">"
  1166. If Rs("isBest")=0 then
  1167. Response.Write "<a href=?selID="&Rs("ID")&"&action=battop>固</a>"
  1168. Else
  1169. Response.Write "<a href=?selID="&Rs("ID")&"&action=batutop><font color=red>解</font></a>"
  1170. End If
  1171. Response.Write "|"
  1172. If Rs("hot")=0 then
  1173. Response.Write "<a href=?selID="&Rs("ID")&"&action=bathot>荐</a>"
  1174. Else
  1175. Response.Write "<a href=?selID="&Rs("ID")&"&action=batuhot><font color=BLUE>普</font></a>"
  1176. End If
  1177. Response.Write "|"
  1178. If Rs("fine")=0 then
  1179. Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
  1180. Else
  1181. Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
  1182. End If
  1183. Response.Write "|<a href=?ID="
  1184. Response.Write Rs("ID")
  1185. Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
  1186. Response.Write Rs("ID")
  1187. Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
  1188. Response.Write "</tr>"
  1189. Rs.movenext
  1190. i = i + 1
  1191. If i >= maxperpage Then Exit Do
  1192. Loop
  1193. End If
  1194. Rs.Close:Set Rs = Nothing
  1195. Response.Write "<TR height=25>" & vbCrLf
  1196. Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
  1197. Response.Write "<input class=Button type=button value='全选' onClick=""CheckAll(this.form)"">"
  1198. Response.Write "<input class=Button type=button value='撤消' onClick=""CheckCel(this.form)"">"
  1199. Response.Write "<input class=Button type=button value='反选' onClick=""CheckSel(this.form)""> "
  1200. Response.Write "<input class=Button type=""submit"" name=""Submit1"" value=批量固顶 onclick=""document.selform.action.value='battop';""> "
  1201. Response.Write "<input class=Button type=""submit"" name=""Submit2"" value=批量通宵 onclick=""document.selform.action.value='bathot';""> "
  1202. Response.Write "<input class=Button type=""submit"" name=""Submit3"" value=批量精品 onclick=""document.selform.action.value='batfine';""> "
  1203. Response.Write "<input class=Button type=""submit"" name=""Submit4"" value=批量审核 onclick=""document.selform.action.value='batulock';""> "
  1204. Response.Write "<input class=Button type=""submit"" name=""Submit5"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
  1205. Response.Write "</td>" & vbCrLf
  1206. Response.Write "</tr>" & vbCrLf
  1207. Response.Write "</form>" & vbCrLf
  1208. Response.Write "<TR height=25>" & vbCrLf
  1209. Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
  1210. tee5.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=search","私服搜索"
  1211. Response.Write "</TD></TR></TABLE>" & vbCrLf
  1212. End Sub
  1213. Sub BatTop()
  1214. tee5.Execute ("update Gq_SfData set isBest=1,Ulock=1,Daytime=3,BestTime=Now() where ID in (" & Request("selID") & ")")
  1215. Response.redirect (Request.ServerVariables("HTTP_REFERER"))
  1216. End Sub
  1218. Sub BatHot()
  1219. tee5.Execute ("update Gq_SfData set Hot=1,Ulock=1,Daytime=3,HotTime=Now() where ID in (" & Request("selID") & ")")
  1220. Response.redirect (Request.ServerVariables("HTTP_REFERER"))
  1221. End Sub
  1223. Sub BatFine()
  1224. tee5.Execute ("update Gq_SfData set Fine=1,Ulock=1,Daytime=3,FineTime=Now() where ID in (" & Request("selID") & ")")
  1225. Response.redirect (Request.ServerVariables("HTTP_REFERER"))
  1226. End Sub
  1228. Sub BatUlock()
  1229. tee5.Execute ("update Gq_SfData set Ulock=1 where ID in (" & Request("selID") & ")")
  1230. Response.redirect (Request.ServerVariables("HTTP_REFERER"))
  1231. End Sub
  1233. Sub BatDel()
  1234. If Len(Request("selID")) = "" then
  1235. response.write "<script>alert('非法操作');history.back()</script>"
  1236. Else
  1237.          If Len(Request("selID")) > 0 Then
  1238.                  SQL = "DELETE FROM [Gq_SfData] WHERE id in (" & Request("selID") & ")"
  1239.                  tee5.Execute (SQL)
  1240. End If
  1241. End If
  1242.         Succeed ("恭喜您！删除成功，请继续其他操作。")
  1243. End Sub
  1245. Sub BatUtop()
  1246. tee5.Execute ("update Gq_SfData set isBest=0,Daytime=0,BestTime=Now() where ID in (" & Request("selID") & ")")
  1247. Response.redirect (Request.ServerVariables("HTTP_REFERER"))
  1248. End Sub
  1250. Sub BatUhot()
  1251. tee5.Execute ("update Gq_SfData set Hot=0,Daytime=0,HotTime=Now() where ID in (" & Request("selID") & ")")
  1252. Response.redirect (Request.ServerVariables("HTTP_REFERER"))
  1253. End Sub
  1255. Sub BatUfine()
  1256. tee5.Execute ("update Gq_SfData set Fine=0,Daytime=0,FineTime=Now() where ID in (" & Request("selID") & ")")
  1257. Response.redirect (Request.ServerVariables("HTTP_REFERER"))
  1258. End Sub
  1260. Sub ContentIDHtml(Pattern,selID)
  1261. Dim SQLID, AllsfID
  1262. Dim totalnum, FileUrl, FolderPath, FileName, FilePath
  1263. On Error Resume Next
  1264. selID = Request("selID")
  1265. AllsfID = Split(selID, ",")
  1266. If selID = "" Then
  1267. Response.Write "<script>alert('请选择后操作');history.back()</script>"
  1268. End If
  1269. totalnum = tee5.Execute("SELECT COUNT(*) FROM [Gq_sfdata] WHERE Ulock <> 0 And ID in (" & selID & ")")(0)
  1270. SQL = "SELECT * FROM Gq_sfData WHERE Ulock <> 0 And ID in (" & selID & ")"
  1271. Set rs = tee5.Execute(SQL)
  1272. SQL=Rs.GetRows(totalnum)
  1273. Set Rs = Nothing
  1274. If Pattern = 1 then SQLID= UBound(AllsfID): Else SQLID= UBound(SQL,2)
  1275. If Pattern = 1 then Response.Write "<ol>"
  1276. If Pattern = 1 then Response.Write "<b>生成私服内容（HTML）开始</b><br><br>"
  1277. For i = 0 To SQLID
  1278. FolderPath = tee5.ServerDir & "sf" & tee5.ServerDir
  1279. tee5.CreatPathEx (FolderPath)
  1280. FileUrl    = tee5.WebUrl & "/Temp/7.asp?ID=" & Clng(SQL(0,i))
  1281. FileName   = year(SQL(5,i)) & month(SQL(5,i)) & day(SQL(5,i)) & SQL(0,i)
  1282. FilePath   = FolderPath & FileName & ".html"
  1283. Call GetRemoteFiels(FileUrl, FolderPath, FileName)
  1284. If Pattern = 1 then Response.Write "<li style=""font-size: 12px;"">生成私服内容HTML页完成 <a href=" & FilePath & " target=_blank>" & Server.MapPath(FilePath) & "</a></li>" & vbNewLine
  1285. Response.Flush
  1286. Next
  1287. If Pattern = 1 then Response.Write "<br><br><b>恭喜您！私服内容HTML全部生成完毕！</b>"
  1288. If Pattern = 1 then Response.Write "</ol>"
  1289. End Sub
  1290. %>