<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
If Not CheckAdmin("GameList") Then
    Server.Transfer("showerr.asp")
    Response.End
End If
'╭──98游戏───────────────╮
'┃　　　　　　      　　             　　 ┃
'┃程序类型:发布站程序　　　　　　　       ┃
'┃购买认证:98游戏GM基地　　　　　         ┃
'┃程序版本:Ver4.0　　　　　　　           ┃
'┃程序作者:98游戏　　　　　　　           ┃
'┃联 系 QQ:1013665749                      ┃
'┃联系电话:18279334539　　　　　　　      ┃
'┃官方网站:http://www.98youx.com            ┃
'┃版权所有:98游戏　　　　　　             ┃
'┃　　　　　　　　             　　　　   ┃
'┃　         版权声明：转载请保留版权信息 ┃
'╰───────────Cool network───╯
Dim Rs_type, Sql_Type, Menu, linklist, AdsTime, ID, selID
titlename="私服管理"
Admin_header
ID = QiKuCMS.ChkNumeric(Request("ID"))
set Rs = server.createobject("adodb.recordset")
Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
Response.Write " <tr>"
Response.Write " <th colspan=6>私服管理操作</th>"
Response.Write " </tr>"
Response.Write "<form method=post action=admin_list.asp?action=search>"
Response.Write "<tr>"
Response.Write "<td " & LeftClass & ">"
Response.Write "<b>私服搜索：</b> <INPUT maxLength=15 size=15 value="""" name=key class=""input_out""> "
Response.Write " 类型："
Response.Write "<SELECT name=menu>"
Set Rs_type = Server.CreateObject("ADODB.RecordSet")
Sql_Type="select * from Gq_GameType order by orderID"
Rs_type.open Sql_type,conn,1,1
Response.Write "<OPTION value="""" selected>所有私服</OPTION>"
Do While Not Rs_type.EOF
Response.Write "<OPTION value=" & Rs_type("ID") & ">" & Rs_type("game") & "</OPTION>"
Rs_type.movenext
loop
Rs_type.close
Response.Write "</SELECT>"
Response.Write "&nbsp;&nbsp;条件："
Response.Write "<INPUT name=otype type=radio value=name checked>服务器名 "
Response.Write " <INPUT name=otype type=radio value=ip>服务器IP "
Response.Write " <INPUT name=otype type=radio value=sdate>开放时间 "
Response.Write " <input type=submit name=Submit value='开始搜索' class=btn>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</form>"
Response.Write "<tr>"
Response.Write "<td " & LeftClass & ">"
Response.Write "<b>游戏分类：</b><a href=""admin_list.asp"">所有私服</a>"
Set Rs_type = Server.CreateObject("ADODB.RecordSet")
Sql_Type="select * from Gq_GameType order by orderID"
Rs_type.open Sql_type,conn,1,1
If Rs_type.eof and Rs_type.bof then
Response.Write "没有分类，请到后台添加！"
Else
Do While Not Rs_type.EOF
Response.Write "  <a href=admin_list.asp?menu="&Rs_type("ID")&">"
If cint(Rs_type("ID"))=cint(menu) then
Response.Write "<font color=red>"&Rs_type("game")&"</font>"
Else
Response.Write Rs_type("game")
End If
Response.Write "</a>"
Rs_type.movenext
loop
Rs_type.close
End If
Response.Write "<br><b>管理选项：</b><a href=""?action=ulock"">游戏审核</a>  <a href=""admin_list.asp?action=vip""><font color=#FF0000>商户游戏</a>   <a href=""?action=top"">固顶游戏</a>  <a href=""?action=hot"">通宵推荐</a>  <a href=""?action=hot2"">精品通宵</a>  <a href=""?action=fine"">普通精品</a>   <a href=""?action=fine2"">固定精品</a></td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<br>"
Dim tablestyle
Dim maxperpage,CurrentPage,Pcount,totalrec,totalnumber
maxperpage = AdminPage
totalrec = 0
Pcount = 1
CurrentPage = QiKuCMS.ChkNumeric(Request("page"))
If CurrentPage = 0 Then CurrentPage = 1
Response.Write "<script src=""/js/showpage.js"" type=""text/javascript""></script>" & vbCrLf
Response.Write "<SCRIPT language=javascript src=../JS/setday.js></SCRIPT>" & vbCrLf
Menu = LCase(Request("Menu"))
Action = LCase(Request("action"))
Select Case Trim(Action)
Case "ulock"
	Call UlockGame()
Case "top"
	Call TopGame()
Case "hot"
	Call HotGame()
Case "hot2"
	Call HotGame2()
Case "fine"
	Call FineGame()
Case "fine2"
	Call FineGame2()
Case "fine3"
	Call FineGame3()
Case "free"
	Call FreeGame()
Case "edit"
	Call EditGame()
Case "search"
	Call SearchGame()
Case "vip"
	Call vipGame()
Case "bathtml"
	Call ContentIDHtml(1,selID)
Case "battop"
	Call BatTop()
Case "bathot"
	Call BatHot()
Case "batfine"
	Call BatFine()
Case "batulock"
	Call BatUlock()
Case "batdel"
	Call BatDel()
Case "batutop"
	Call BatUtop()
Case "batuhot"
	Call BatUhot()
Case "batufine"
	Call BatUfine()
Case "batg"
	Call Batg()
Case Else
	Call GameList()
End Select
If Founderr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
CloseConn
'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：GameList
'作  用：全部私服管理
'=================================================
Sub GameList()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""6%"">人气</th>"
	Response.Write "<th wIDth=""5%"">主页</th>"
	Response.Write "<th wIDth=""5%"">验证</th>"
	Response.Write "<th wIDth=""15%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	If menu<>"" then
		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"
		Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.ulock=1 and Gq_sfdata.gameID="&menu
		Sql=Sql&" order by Gq_sfdata.ID desc"
	Else
		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"
		Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID"
		Sql=Sql&" order by Gq_sfdata.ID desc"
	End If
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then 
		Response.Write "<tr><td " & CenterClass & " colspan='9'>当前无任何私服信息！</td></tr>"
	Else
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & "><font color=red>"
			Response.Write Rs("hits")
			Response.Write "</font></td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("homepage")="" or Rs("homepage")="无" or Rs("homepage")="http://" then
				Response.Write "未知"
			Else
				Response.Write "<a href="&Rs("homepage")&" target=_blank><FONT color=#0000FF>查看</FONT></a>" 
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("ulock")=1 then
				Response.Write "<font color=#CCCCCC>通过</font>"
			Else
				Response.Write "<font color=red>等待</font>"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("isBest")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=battop>固</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batutop><font color=red>解</font></a>"
			End If
			Response.Write "|"
			If Rs("hot")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=bathot>荐</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batuhot><font color=BLUE>普</font></a>"
			End If
			Response.Write "|"
			If Rs("fine")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
			End If
			Response.Write "|<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=""批量固顶"" onclick=""document.selform.action.value='battop';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=""批量通宵"" onclick=""document.selform.action.value='bathot';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit3"" value=""批量精品"" onclick=""document.selform.action.value='batfine';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit4"" value=""批量审核"" onclick=""document.selform.action.value='batulock';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit5"" value=""批量删除"" onclick=""document.selform.action.value='batdel';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit6"" value=""生成HTML"" onclick=""document.selform.action.value='bathtml';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"","私服管理"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub
'=================================================
'过程名：viGame
'作  用：代理推荐私服管理
'=================================================
Sub vipGame()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""18%"">发布人</th>"
	Response.Write "<th wIDth=""6%"">人气</th>"
	Response.Write "<th wIDth=""8%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	Sql="select Gq_sfdata.ID,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,Gq_sfdata.hour,Gq_sfdata.u_id,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"
	Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.u_id>0"
	Sql=Sql&" order by Gq_sfdata.ID desc"
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then
		Response.Write "<tr><td align='center' class=tablerow1 colspan='9'>当前还没有会员发布的私服！</td></tr>"
	Else 
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
	dim rst,idd
		idd=rs("u_id")
   set rst=server.CreateObject("adodb.recordset")
	rst.open"select * from QiKuCMS_user where id="&idd&" order by id desc",conn,1,1
	if rst.eof and rst.bof then 
	response.End
	else
		response.Write""&rst("username")&""
	end if
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & "><font color=red>"
			Response.Write Rs("hits")
			Response.Write "</font></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write "<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=vip","商户游戏"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub
'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：UlockGame
'作  用：游戏审核管理
'=================================================
Sub UlockGame()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""12%"">客服</th>"
	Response.Write "<th wIDth=""5%"">主页</th>"
	Response.Write "<th wIDth=""15%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	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"
	Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.ulock=0"
	Sql=Sql&" order by Gq_sfdata.ID desc"
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then
		Response.Write "<tr><td align='center' class=tablerow1 colspan='8'>当前没有未通过审核的私服！</td></tr>"
	Else 
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("QQ")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("homepage")="" or Rs("homepage")="无" or Rs("homepage")="http://" then
				Response.Write "未知"
			Else
				Response.Write "<a href="&Rs("homepage")&" target=_blank><FONT color=#0000FF>查看</FONT></a>"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & "><a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编辑</font></a> | <a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删除</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=8><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=批量审核 onclick=""document.selform.action.value='batulock';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=8>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=ulock","游戏审核"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub
'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：TopGame
'作  用：固顶推荐管理
'=================================================
Sub TopGame()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""18%"">发布时间</th>"
	Response.Write "<th wIDth=""6%"">广告</th>"
	Response.Write "<th wIDth=""8%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	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"
	Sql=Sql&" from Gq_sfdata,Gq_gametype where Gq_sfdata.gameID=Gq_gametype.ID and Gq_sfdata.isBest=1"
	Sql=Sql&" order by Gq_sfdata.ID desc"
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then 
		Response.Write "<tr><td align='center' class=tablerow1 colspan='8'>当前没有固顶推荐的私服！</td></tr>"
	Else 
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			AdsTime=Rs("Daytime")+1
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("BestTime")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Daytime")=0 then
				Response.Write "<FONT color=#FF0000>一天</FONT>"
			Else
				Response.Write AdsTime
				Response.Write "天"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("isBest")=0 then
				Response.Write "<a href=?ID="&Rs("ID")&"&act=top>固</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batutop><font color=red>解</font></a>"
			End If
			Response.Write "|<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=8><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=批量解固 onclick=""document.selform.action.value='batuTop';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=8>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=top","固顶游戏"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub


'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：HotGame
'作  用：通宵推荐管理
'=================================================
Sub HotGame()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""18%"">发布时间</th>"
	Response.Write "<th wIDth=""5%"">广告</th>"
	Response.Write "<th wIDth=""6%"">人气</th>"
	Response.Write "<th wIDth=""8%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	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"
	Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.hot=1"
	Sql=Sql&" order by Gq_sfdata.ID desc"
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then
		Response.Write "<tr><td align='center' class=tablerow1 colspan='9'>当前没有通宵推荐私服！</td></tr>"
	Else 
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			AdsTime=Rs("Daytime")+1

			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("hottime")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Daytime")=0 then
				Response.Write "<FONT color=#FF0000>一天</FONT>"
			Else
				Response.Write AdsTime
				Response.Write "天"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write "<font color=red>"
			Response.Write Rs("hits")
			Response.Write "</font></td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("hot")=0 then
				Response.Write "<a href=?selID="
				Response.Write Rs("ID")
				Response.Write "&action=bathot>荐</a>"
			Else
				Response.Write "<a href=?selID="
				Response.Write Rs("ID")
				Response.Write "&action=batuhot><font color=red>普</font></a>"
			End If
			Response.Write "|<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=批量解荐 onclick=""document.selform.action.value='batuHot';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=hot","通宵推荐"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub

'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：HotGame2
'作  用：精品通宵管理
'=================================================
Sub HotGame2()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""18%"">发布时间</th>"
	Response.Write "<th wIDth=""6%"">广告</th>"
	Response.Write "<th wIDth=""6%"">人气</th>"
	Response.Write "<th wIDth=""8%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	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"
	Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.hot=2"
	Sql=Sql&" order by Gq_sfdata.ID desc"
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then
		Response.Write "<tr><td align='center' class=tablerow1 colspan='9'>当前还没有精品通宵推荐推荐！</td></tr>"
	Else 
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			AdsTime=Rs("Daytime")+1

			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("finetime")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Daytime")=0 then
				Response.Write "<FONT color=#FF0000>一天</FONT>"
			Else
				Response.Write AdsTime
				Response.Write "天"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & "><font color=red>"
			Response.Write Rs("hits")
			Response.Write "</font></td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("fine")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
			End If
			Response.Write "|<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=批量解精 onclick=""document.selform.action.value='batuFine';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=hot2","精品通宵"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub

'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：FineGame
'作  用：精品推荐管理
'=================================================
Sub FineGame()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""18%"">发布时间</th>"
	Response.Write "<th wIDth=""6%"">广告</th>"
	Response.Write "<th wIDth=""6%"">人气</th>"
	Response.Write "<th wIDth=""8%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	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"
	Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.Fine=1"
	Sql=Sql&" order by Gq_sfdata.ID desc"
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then
		Response.Write "<tr><td align='center' class=tablerow1 colspan='9'>当前还没有精品私服推荐！</td></tr>"
	Else 
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			AdsTime=Rs("Daytime")+1

			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("finetime")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Daytime")=0 then
				Response.Write "<FONT color=#FF0000>一天</FONT>"
			Else
				Response.Write AdsTime
				Response.Write "天"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & "><font color=red>"
			Response.Write Rs("hits")
			Response.Write "</font></td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("fine")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
			End If
			Response.Write "|<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=批量解精 onclick=""document.selform.action.value='batuFine';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=fine","普通精品"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub
'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：FineGame2
'作  用：固顶精品推荐管理
'=================================================
Sub FineGame2()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""18%"">发布时间</th>"
	Response.Write "<th wIDth=""6%"">广告</th>"
	Response.Write "<th wIDth=""6%"">人气</th>"
	Response.Write "<th wIDth=""8%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	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"
	Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.Fine=2"
	Sql=Sql&" order by Gq_sfdata.ID desc"
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then
		Response.Write "<tr><td align='center' class=tablerow1 colspan='9'>当前还没有固顶精品私服推荐！</td></tr>"
	Else 
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			AdsTime=Rs("Daytime")+1

			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("finetime")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Daytime")=0 then
				Response.Write "<FONT color=#FF0000>一天</FONT>"
			Else
				Response.Write AdsTime
				Response.Write "天"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & "><font color=red>"
			Response.Write Rs("hits")
			Response.Write "</font></td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("fine")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
			End If
			Response.Write "|<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=批量解精 onclick=""document.selform.action.value='batuFine';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=fine2","固顶精品"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub
'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：FineGame3
'作  用：极力精品推荐管理
'=================================================
Sub FineGame3()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""18%"">发布时间</th>"
	Response.Write "<th wIDth=""6%"">广告</th>"
	Response.Write "<th wIDth=""6%"">人气</th>"
	Response.Write "<th wIDth=""8%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	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"
	Sql=Sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameID=Gq_GameType.ID and Gq_sfdata.Fine=3"
	Sql=Sql&" order by Gq_sfdata.ID desc"
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then
		Response.Write "<tr><td align='center' class=tablerow1 colspan='9'>当前还没有极力精品私服推荐！</td></tr>"
	Else 
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			AdsTime=Rs("Daytime")+1

			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("finetime")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Daytime")=0 then
				Response.Write "<FONT color=#FF0000>一天</FONT>"
			Else
				Response.Write AdsTime
				Response.Write "天"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & "><font color=red>"
			Response.Write Rs("hits")
			Response.Write "</font></td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("fine")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
			End If
			Response.Write "|<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=批量解精 onclick=""document.selform.action.value='batuFine';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=fine3","极力精品"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub
'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：FreeGame
'作  用：更多私服管理
'=================================================
Sub FreeGame()
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""14%"">客服QQ</th>"
	Response.Write "<th wIDth=""7%"">审核</th>"
	Response.Write "<th wIDth=""14%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	'If menu<>"" then
		'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"
		'Sql=Sql&" from Gq_sfdata,Gq_gametype where Gq_sfdata.gameID=Gq_gametype.ID and Gq_sfdata.gameID="&menu
		'Sql=Sql&" order by Gq_sfdata.ID desc"
	'Else
		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"
		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"
		Sql=Sql&" order by Gq_sfdata.ID desc"
	'End If
	Rs.open Sql,conn,1,1 
	If Rs.eof and Rs.bof then
		Response.Write "<tr><td align='center' class=tablerow1 colspan='8'>当前没有任何私服！</td></tr>"
	Else 
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("QQ")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("ulock")=1 then
				Response.Write "<font color=#CCCCCC>通过</font>"
			Else
				Response.Write "<font color=red>等待</font>"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("isBest")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=battop>固</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batutop><font color=red>解</font></a>"
			End If
			Response.Write "|"
			If Rs("hot")=0 then
				Response.Write "<a href=admin_hot.asp?selID="
				Response.Write Rs("ID")
				Response.Write "&action=bathot>荐</a>"
			Else
				Response.Write "<a href=admin_hot.asp?ID="
				Response.Write Rs("ID")
				Response.Write "&action=batuhot><font color=BLUE>普</font></a>"
			End If
			Response.Write "|<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=8><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=批量审核 onclick=""document.selform.action.value='batulock';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
        Response.Write " <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g1 onfocus=setday(this)> 改 <INPUT maxLength=10 size=10 value=点击选择 class=""input_out"" name=g2 onfocus=setday(this)>"
	Response.Write "<input class=btn type=""submit"" name=""Submit7"" value=""批量改时"" onclick=""document.selform.action.value='batg';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=free","更多私服"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub
'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：EditGame
'作  用：私服编辑
'=================================================
Sub EditGame()
	ID=QiKuCMS.CheckStr(request("ID"))
	If ID="" or (not isnumeric(ID)) then
		QiKuCMS.OutClertScript ("参数不正确！")
	End If
	Sql="select Gq_sfdata.ID,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,Gq_sfdata.jpid,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 "
	Sql=Sql&" from Gq_sfdata,Gq_gametype where Gq_sfdata.gameID=Gq_gametype.ID and Gq_sfdata.ID="&ID
	Rs.open Sql,conn,1,1 
	If Rs.bof and Rs.eof then
		Response.Write "<script>alert('无此数据！！！');window.close()</script>"
		response.end
	Else
		Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
		Response.Write "<FORM name=form1 action=admin_edit.asp method=post>"
		Response.Write " <tr>"
		Response.Write "<th colspan=""2"">私服管理－－编辑私服</th>"
		Response.Write "</tr>"
		Response.Write "<TR>"
		Response.Write "<td wIDth=""15%"" " & RightClass & ">私服类型：</TD>"
		Response.Write "<td " & LeftClass & ">"
		Set Rs_type = Server.CreateObject("ADODB.RecordSet")
		Sql_Type="select * from Gq_gametype order by orderID"
		Rs_type.open Sql_type,conn,1,1
		Response.Write "<SELECT ID=gameID size=1 name=gameID>"
		If Rs_type.eof and Rs_type.bof then
			Response.Write "<option value= selected>请添加游戏分类</option>"
		Else
			Do While Not Rs_type.EOF
				If Rs_type("ID")=Rs("gameID") then
					Response.Write "<option value="&Rs_type("ID")&" selected>"&Rs_type("game")&"</option>"
				Else
					Response.Write "<option value="&Rs_type("ID")&">"&Rs_type("game")&"</option>"
				End If
			Rs_type.movenext
			loop
			Rs_type.close
		End If
		Response.Write "</SELECT></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">私服名称：</TD>"
		Response.Write "<td " & LeftClass & "><INPUT name=name value=""" & Rs("name") & """ maxLength=10 class=""input_out""></TD>"
		Response.Write "</TR>"
		Response.Write "<tr>"
		Response.Write "<td " & RightClass & ">私服IP：</TD>"
		Response.Write "<td " & LeftClass & "><INPUT name=ip value=""" & Rs("ip") & """ maxLength=15 class=""input_out""></TD>"
		Response.Write "</tr>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">开区时间：</TD>"
		Response.Write "<td " & LeftClass & "><INPUT name=sdate value=""" & Rs("sdate") & """ size=16 maxLength=16 class=""input_out""> <input name=hour value=""" & Rs("hour") & """ size=4 maxlength=4 class=""input_out""> 时 <INPUT name=minute value=""" & Rs("minute") & """ size=4 maxLength=4 class=""input_out""> 分</TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">客服QQ：</TD>"
		Response.Write "<td " & LeftClass & "><INPUT name=QQ value=""" & Rs("QQ") & """ maxLength=11 class=""input_out""></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">线路类别：</TD>"
		Response.Write "<td " & LeftClass & ">"
		Response.Write "<INPUT name=addr value=""" & Rs("addr") & """ maxLength=8 class=""input_out""> "
		Response.Write "<SELECT ID=service size=1 name=service>"
		For i=0 to ubound(split(QiKuCMS.ssign,","))
			Response.Write "		<OPTION value='"&i&"' "
			If Rs("Service")=i then Response.Write "selected" End If
			Response.Write ">"&split(QiKuCMS.ssign,",")(i)&"</option>"
		Next
		Response.Write "</SELECT></TD>"
%>
<%
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">版本简介：</TD>"
		Response.Write "<td " & LeftClass & "><INPUT name=xingzhi value=""" & Rs("xingzhi") & """ size=40 maxLength=30 class=""input_out""></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">主页地址：</TD>"
		Response.Write "<td " & LeftClass & "><INPUT name=homepage value=""" & Rs("homepage") & """ size=36 maxLength=100 class=""input_out""></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">登陆器下载：</TD>"
		Response.Write "<td " & LeftClass & "><INPUT name=download value=""" & Rs("download") & """ size=36 maxLength=100 class=""input_out""></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">广告期限：</TD>"
		Response.Write "<td " & LeftClass & ">"
		Response.Write "<select name=""Daytime"" size=""1"" class=""input_out"">"
		Response.Write "<option selected value=""0"">请 选 择</option>"
		Response.Write "<OPTION value=1 "
		If Rs("Daytime")="1" then Response.Write "selected"
		Response.Write ">推荐①天</OPTION>"
		Response.Write "<OPTION value=2 "
		If Rs("Daytime")="2" then Response.Write "selected"
		Response.Write ">推荐②天</OPTION>"
		Response.Write "<OPTION value=3 "
		If Rs("Daytime")="3" then Response.Write "selected"
		Response.Write ">推荐③天</OPTION>"
		Response.Write "<OPTION value=4 "
		If Rs("Daytime")="4" then Response.Write "selected"
		Response.Write ">推荐④天</OPTION>"
		Response.Write "<OPTION value=5 "
		If Rs("Daytime")="5" then Response.Write "selected"
		Response.Write ">推荐⑤天</OPTION>"
		Response.Write "<OPTION value=6 "
		If Rs("Daytime")="6" then Response.Write "selected"
		Response.Write ">推荐⑥天</OPTION>"
		Response.Write "<OPTION value=7 "
		If Rs("Daytime")="7" then Response.Write "selected"
		Response.Write ">推荐⑦天</OPTION>"
		Response.Write "<OPTION value=30 "
		If Rs("Daytime")="30" then Response.Write "selected"
		Response.Write ">推荐①月</OPTION>"
		Response.Write "<OPTION value=90 "
		If Rs("Daytime")="90" then Response.Write "selected"
		Response.Write ">推荐①季</OPTION>"
		Response.Write "<OPTION value=364 "
		If Rs("Daytime")="364" then Response.Write "selected"
		Response.Write ">推荐①年</OPTION>"
		Response.Write "</select>"
		Response.Write "</TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">全天套黄：</TD>"
		Response.Write "<td " & LeftClass & "><input name=""fine"" type=""checkbox"" value=""9"" "
		If Rs("fine")=9 then Response.Write "checked"
		Response.Write "></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">全天固顶：</TD>"
		Response.Write "<td " & LeftClass & "><input name=""fine"" type=""checkbox"" value=""1"" "
		If Rs("fine")=1 then Response.Write "checked"
		Response.Write "></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">精品顺序：</TD>"
		Response.Write "<td class=TableRow1><input name=jpid id=jpid value=0 size=5 maxlength=10 class=""input_out""> 注意普通精品无效，为随机排位。</TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">固顶推荐：</TD>"
		Response.Write "<td " & LeftClass & "><input name=""isBest"" type=""checkbox"" value=""1"" "
		If Rs("isBest")=1 then Response.Write "checked"
		Response.Write "></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">精品通宵：</TD>"
		Response.Write "<td " & LeftClass & "><input name=""hot"" type=""checkbox"" value=""2"" "
		If Rs("hot")=2 then Response.Write "checked"
		Response.Write "></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">通宵推荐：</TD>"
		Response.Write "<td " & LeftClass & "><input name=""hot"" type=""checkbox"" value=""1"" "
		If Rs("hot")=1 then Response.Write "checked"
		Response.Write "></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">审核状态：</TD>"
		Response.Write "<td " & LeftClass & "><input name=""ulock"" type=""checkbox"" value=""1"" "
		If Rs("ulock")=1 then Response.Write "checked"
		Response.Write "></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & RightClass & ">发布日期：</TD>"
		Response.Write "<td " & LeftClass & "><INPUT name=addtime value="""
		If Rs("addtime")="" then
			Response.Write Rs("sdate")
		Else
			Response.Write Rs("addtime")
		End If
		Response.Write """ size=20 maxLength=19></TD>"
		Response.Write "</TR>"
		Response.Write "<TR>"
		Response.Write "<td " & CenterClass & " colspan=""2"">"
		Response.Write "<input name=""ID"" type=""hIDden"" value=""" & Rs("ID") & """>"
		Response.Write "<INPUT type=submit value="" 编 辑 "" name=submit2 class=btn>&nbsp;&nbsp;&nbsp;&nbsp;"
		Response.Write "<INPUT type=reset value="" 清 除 "" name=cmdcancel class=btn>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
		Response.Write "</TD>"
		Response.Write "</TR>"
		Response.Write "</form>"
		Response.Write "</TABLE>"
	End If
End Sub
'=========================================================
'作者声明：转载请保留版权信息，鄙视不要脸的人
'程序制作：QQ: 1013665749
'官方网站：98游戏(www.98youx.com)
'=========================================================
' Copyright 2012-2013 www.98youx.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：SearchGame
'作  用：私服搜索
'=================================================
Sub SearchGame()
	Dim Key, Otype
	Menu=QiKuCMS.CheckStr(request("menu"))
	Key=QiKuCMS.CheckStr(request("key"))
	Otype=QiKuCMS.CheckStr(request("otype"))
	If key="" then
		Response.Write "<script>alert('请输入查询条件');history.back()</script>"
		response.end
	End If
	Response.Write "<table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
	Response.Write " <tr>"
	Response.Write "<th wIDth=""5%"">选择</th>"
	Response.Write "<th wIDth=""9%"">类型</th>"
	Response.Write "<th wIDth=""16%"">名称</th>"
	Response.Write "<th wIDth=""15%"">IP</th>"
	Response.Write "<th wIDth=""*"">开机时间</th>"
	Response.Write "<th wIDth=""6%"">人气</th>"
	Response.Write "<th wIDth=""5%"">主页</th>"
	Response.Write "<th wIDth=""5%"">验证</th>"
	Response.Write "<th wIDth=""15%"">操作</th>"
	Response.Write "</tr>"
	Response.Write " <form name=selform method=Get action="""">"
	Response.Write " <input type=hIDden name=action value=''>"
	If menu<>"" then
		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"
		Sql=Sql&" from Gq_SFdata,Gq_Gametype where instr(1,LCASE("&otype&"),LCASE('"&key&"'),0)<>0 and Gq_SFdata.gameID=Gq_gametype.ID and Gq_SFdata.gameID="&menu
		Sql=Sql&" and Gq_SFdata.ulock=1 order by Gq_SFdata.addtime desc"
	Else
		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"
		Sql=Sql&" from Gq_SFdata,Gq_Gametype where instr(1,LCASE("&otype&"),LCASE('"&key&"'),0)<>0 and Gq_SFdata.gameID=Gq_gametype.ID"
		Sql=Sql&" and Gq_SFdata.ulock=1 order by Gq_SFdata.addtime desc"
	End If
	Rs.open Sql,conn,1,1
	If Rs.eof and Rs.bof then
		Response.Write "<tr><td " & CenterClass & " colspan='9'><b>Sorry！<b><font color=red>没有找到您搜索的私服~！</font></td></tr>"
	Else
		totalrec = Rs.RecordCount
		Pcount = CLng(totalrec / maxperpage)  '得到总页数
		If Pcount < totalrec / maxperpage Then Pcount = Pcount + 1
		If CurrentPage < 1 Then CurrentPage = 1
		If CurrentPage > Pcount Then CurrentPage = Pcount
		Rs.PageSize = maxperpage
		Rs.AbsolutePage = CurrentPage
		i = 0
		Do While Not Rs.EOF And i < maxperpage
			If Not Response.IsClientConnected Then ResponseEnd
			Response.Write " <tr>"
			Response.Write " <td " & CenterClass & "><input type=""checkbox"" name=""selID"" value="""
			Response.Write Rs("ID")
			Response.Write """></td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("game")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("name")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			Response.Write Rs("ip")
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("Sdate")<>"" then
				Response.Write year(Rs("sdate"))&"年"&month(Rs("sdate"))&"月"&day(Rs("Sdate"))&"日" & Rs("hour") & "时" & Rs("minute") & "分"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & "><font color=red>"
			Response.Write Rs("hits")
			Response.Write "</font></td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("homepage")="" or Rs("homepage")="无" or Rs("homepage")="http://" then
				Response.Write "未知"
			Else
				Response.Write "<a href="&Rs("homepage")&" target=_blank><FONT color=#0000FF>查看</FONT></a>" 
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("ulock")=1 then
				Response.Write "<font color=#CCCCCC>通过</font>"
			Else
				Response.Write "<font color=red>等待</font>"
			End If
			Response.Write "</td>"
			Response.Write "<td " & CenterClass & ">"
			If Rs("isBest")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=battop>固</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batutop><font color=red>解</font></a>"
			End If
			Response.Write "|"
			If Rs("hot")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=bathot>荐</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batuhot><font color=BLUE>普</font></a>"
			End If
			Response.Write "|"
			If Rs("fine")=0 then
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batfine>精</a>"
			Else
				Response.Write "<a href=?selID="&Rs("ID")&"&action=batufine><font color=red>简</font></a>"
			End If
			Response.Write "|<a href=?ID="
			Response.Write Rs("ID")
			Response.Write "&action=edit><font color=""#008000"">编</font></a>|<a href=?selID="
			Response.Write Rs("ID")
			Response.Write "&action=batdel><font color=""#008000"">删</font></a></td>"
			Response.Write "</tr>"
		Rs.movenext
	i = i + 1
	If i >= maxperpage Then Exit Do
		Loop
	End If
	Rs.Close:Set Rs = Nothing
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & LeftClass & " colspan=9><B>操作选项:<B> "
	Response.Write "<input class=btn type=button value='全选' onClick=""CheckAll(this.form)"">"
	Response.Write "<input class=btn type=button value='撤消' onClick=""CheckCel(this.form)"">"
	Response.Write "<input class=btn type=button value='反选' onClick=""CheckSel(this.form)""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit1"" value=批量固顶 onclick=""document.selform.action.value='battop';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit2"" value=批量通宵 onclick=""document.selform.action.value='bathot';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit3"" value=批量精品 onclick=""document.selform.action.value='batfine';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit4"" value=批量审核 onclick=""document.selform.action.value='batulock';""> "
	Response.Write "<input class=btn type=""submit"" name=""Submit5"" value=批量删除 onclick=""document.selform.action.value='batdel';"">"
	Response.Write "</td>" & vbCrLf
	Response.Write "</tr>" & vbCrLf
	Response.Write "</form>" & vbCrLf
	Response.Write "<TR height=25>" & vbCrLf
	Response.Write "<TD " & RightClass & " colspan=9>" & vbCrLf
	QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"&action=search","私服搜索"
	Response.Write "</TD></TR></TABLE>" & vbCrLf
End Sub
Sub BatTop()
	QiKuCMS.Execute ("update Gq_SfData set isBest=1,Ulock=1,Daytime=3,BestTime=Now() where ID in (" & Request("selID") & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Sub BatHot()
	QiKuCMS.Execute ("update Gq_SfData set Hot=1,Ulock=1,Daytime=3,HotTime=Now() where ID in (" & Request("selID") & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Sub BatFine()
	QiKuCMS.Execute ("update Gq_SfData set Fine=1,Ulock=1,Daytime=3,FineTime=Now() where ID in (" & Request("selID") & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Sub BatUlock()
	QiKuCMS.Execute ("update Gq_SfData set Ulock=1 where ID in (" & Request("selID") & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Sub BatDel()
	If Len(Request("selID")) = "" then
		response.write "<script>alert('非法操作');history.back()</script>"
	Else
        	If Len(Request("selID")) > 0 Then
                	SQL = "DELETE FROM [Gq_SfData] WHERE id in (" & Request("selID") & ")"
                	QiKuCMS.Execute (SQL)
		End If
	End If
        Succeed ("恭喜您！删除成功，请继续其他操作。")
End Sub

Sub Batg()
Dim g1,g2
g1 = QiKuCMS.CheckStr(request("g1"))
g2 = QiKuCMS.CheckStr(request("g2"))
QiKuCMS.Execute ("update Gq_SfData set Sdate = #"&g2&"# where Sdate = #"&g1&"#")
        Succeed ("恭喜您！修改成功，请继续其他操作。")
End Sub

Sub BatUtop()
	QiKuCMS.Execute ("update Gq_SfData set isBest=0,Daytime=0,BestTime=now() where ID in (" & Request("selID") & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Sub BatUhot()
	QiKuCMS.Execute ("update Gq_SfData set Hot=0,Daytime=0,HotTime=now() where ID in (" & Request("selID") & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Sub BatUfine()
	QiKuCMS.Execute ("update Gq_SfData set Fine=0,Daytime=0,FineTime=now() where ID in (" & Request("selID") & ")")
	Response.redirect (Request.ServerVariables("HTTP_REFERER"))
End Sub

Sub ContentIDHtml(Pattern,selID)
	Dim SQLID, AllsfID
	Dim totalnum, FileUrl, FolderPath, FileName, FilePath
	On Error Resume Next
	selID = Request("selID")
	AllsfID = Split(selID, ",")
	If selID = "" Then
		Response.Write "<script>alert('请选择后操作');history.back()</script>"
	End If
	totalnum = QiKuCMS.Execute("SELECT COUNT(*) FROM [Gq_sfdata] WHERE Ulock <> 0 And ID in (" & selID & ")")(0)
	SQL = "SELECT * FROM Gq_sfData WHERE Ulock <> 0 And ID in (" & selID & ")"
	Set rs = QiKuCMS.Execute(SQL)
	SQL=Rs.GetRows(totalnum)
	Set Rs = Nothing
	If Pattern = 1 then SQLID= UBound(AllsfID): Else SQLID= UBound(SQL,2)
	If Pattern = 1 then Response.Write "<ol>"
	If Pattern = 1 then Response.Write "<b>生成私服内容（HTML）开始......</b><br><br>"
	For i = 0 To SQLID
		FolderPath = QiKuCMS.ServerDir & "Game/"
		QiKuCMS.CreatPathEx (FolderPath)
		FileUrl    = QiKuCMS.WebUrl & "/Temp/7.asp?ID=" & Clng(SQL(0,i))
		FileName   = year(SQL(5,i)) & month(SQL(5,i)) & day(SQL(5,i)) & SQL(0,i)
		FilePath   = FolderPath & FileName & ".html"
		Call GetRemoteFiels(FileUrl, FolderPath, FileName)
		If Pattern = 1 then Response.Write "<li style=""font-size: 12px;"">生成私服内容HTML页完成... <a href=" & FilePath & " target=_blank>" & Server.MapPath(FilePath) & "</a></li>" & vbNewLine
		Response.Flush
	Next
	If Pattern = 1 then Response.Write "<br><br><b>恭喜您！私服内容HTML全部生成完毕！</b>"
	If Pattern = 1 then Response.Write "</ol>"
End Sub
%>
