admin_list.asp

本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化

<% 
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.top,Gq_sfdata.toptime,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"
'sql="select * from Gq_sfdata where ulock=0 order by addtime 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 
response.write "<form method=post name=form╲、衡少゛ action=?╲、衡少゛=ulock>"
do while not rs.eof
%>
<TR bgColor=#EEEEE6 onmouseover=javascript:this.bgColor="#FFFFCC" onmouseout=javascript:this.bgColor="#EEEEE6">
<td align="center"><input name="sel" type="checkbox" id="sel" value="<%=rs("id")%>"></td>
<td align="center"><%=rs("game")%></td>
<td><a href="###" onClick="window.open('admin_display.asp?id=<%=rs("id")%>','info','scrollbars=yes,resizable=no,width=520,height=460,menubar=no,left=0')" title="查看详细内容"><%=rs("name")%></a> <FONT color=#FF0000>详~</FONT></td>
<td align="center"><%=rs("ip")%></td>
<td align="center"><%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年"&month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%><%=rs("hour")%>时<%=rs("minute")%>分</td>
<td align="center"><%=rs("QQ")%></td>
<td align="center"><%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%></td>
<td align="center"><a href=?id=<%=rs("id")%>&action=edit><font color="#008000">编辑</font></a> | <a href=?id=<%=rs("id")%>&╲、衡少゛=delsf><font color="#008000">删除</font></a></td>
</tr>
<% 
rs.movenext
loop
response.write "<tr><td class=tablerow1 colspan='8'><input type='checkbox' name='chkall' value='on' onclick='CheckAll(this.form)'> 全选/反选 <input type=submit value=批量审核> <input type=button value=批量删除 onclick=chkid()></td></tr></form>"
rs.close
end if

%>
</table>
<%end if
'=========================================================
'程序作者：863sf  qq:226317
'官方网站：863网游(www.863sf.com)
'=========================================================
' Copyright 2004-2006 www.863sf.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：top
'作  用：固顶推荐管理
'=================================================
if request.querystring("action")="top" then%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<form method=post name=form╲、衡少゛ action=admin_list.asp?╲、衡少゛=utop>
<tr>
<th width="4%">选择</th>
<th width="10%">类型</th>
<th width="15%">名称</th>
<th width="15%">IP</th>
<th width="*">开机时间</th>
<th width="18%">推荐时间</th>
<th width="9%">广告期限</th>
<th width="8%">操作</th>
</tr>
<% 
set rs = server.createobject("adodb.recordset")
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.top,Gq_sfdata.toptime,Gq_sfdata.time,Gq_sfdata.gameid,Gq_gametype.game"
sql=sql&" from Gq_sfdata,Gq_gametype where Gq_sfdata.gameid=Gq_gametype.id and Gq_sfdata.top=1"
sql=sql&" order by Gq_sfdata.id desc"
'sql="select * from Gq_sfdata where top<>0 order by addtime,leixing 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 
rs.pagesize=cint(adminpage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr>
<td align="center" class=tablerow1><input name="sel" type="checkbox" id="sel" value="<%=rs("id")%>"></td>
<td align="center" class=tablerow1><%=rs("game")%></td>
<td align="center" class=tablerow1><a href="###" onClick="window.open('admin_display.asp?id=<%=rs("id")%>','info','scrollbars=yes,resizable=no,width=520,height=460,menubar=no,left=0')" title="查看详细内容"><%=rs("name")%></a> <FONT color=#FF0000>详~</FONT></td>
<td align="center" class=tablerow1><%=rs("ip")%></td>
<td align="center" class=tablerow1><%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年"&month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%><%=rs("hour")%>时<%=rs("minute")%>分</td>
<td align="center" class=tablerow1><%=rs("toptime")%></td>
<td align="center" class=tablerow1><%if rs("time")=0 then%><FONT color=#FF0000>默认一天</FONT><%else%><%=rs("time")%>+1天<%end if%></td>
<td align="center" class=tablerow1><%if rs("top")=0 then response.write "<a href=?id="&rs("id")&"&act=top>固</a>" else response.write "<a href=?id="&rs("id")&"&act=utop&╲、衡少゛=top><font color=red>解</font></a>" end if%>|<a href=?id=<%=rs("id")%>&action=edit><font color="#008000">编</font></a>|<a href=?id=<%=rs("id")%>&╲、衡少゛=delsf><font color="#008000">删</font></a></td>
</tr>
<% 
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
response.write "<tr><td class=tablerow1 colspan='8'><input type='checkbox' name='chkall' value='on' onclick='CheckAll(this.form)'> <input type=submit value=批量解固> <input type=button value=批量删除 onclick=chkid()></td></tr>"
%>
<tr>
<td class=tablerow1 colspan="8"><%call toppage%></td>
</tr>
</form>
</table>
<%end if
end if
'=========================================================
'程序作者：863sf  qq:226317
'官方网站：863网游(www.863sf.com)
'=========================================================
' Copyright 2004-2006 www.863sf.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：free
'作  用：更多私服管理
'=================================================
if request.querystring("action")="free" then%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<form method=post name=form╲、衡少゛ action=?╲、衡少゛=ulock>
<tr>
<th width="4%">选择</th>
<th width="10%">类型</th>
<th width="15%">名称</th>
<th width="15%">IP</th>
<th width="*">开机时间</th>
<th width="14%">客服QQ</th>
<th width="7%">审核</th>
<th width="14%">操作</th>
</tr>
<% 
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.top,Gq_sfdata.toptime,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.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.top,Gq_sfdata.toptime,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.top=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 
rs.pagesize=cint(adminpage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr>
<td align="center" class=tablerow1><input name="sel" type="checkbox" id="sel" value="<%=rs("id")%>"></td>
<td align="center" class=tablerow1><%=rs("game")%></td>
<td align="center" class=tablerow1><a href="###" onClick="window.open('admin_display.asp?id=<%=rs("id")%>','info','scrollbars=yes,resizable=no,width=520,height=460,menubar=no,left=0')" title="查看详细内容"><%=rs("name")%></a> <FONT color=#FF0000>详~</FONT></td>
<td align="center" class=tablerow1><%=rs("ip")%></td>
<td align="center" class=tablerow1><%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年"&month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%><%=rs("hour")%>时<%=rs("minute")%>分</td>
<td align="center" class=tablerow1><%=rs("QQ")%></td>
<td align="center" class=tablerow1><%if rs("ulock")=1 then response.write "<font color=#CCCCCC>通过</font>" else response.write "<font color=red>等待</font>" end if%></td>
<td align="center" class=tablerow1><%if rs("top")=0 then response.write "<a href=?id="&rs("id")&"&act=top&╲、衡少゛=top>固</a>" else response.write "<a href=?id="&rs("id")&"&act=utop&╲、衡少゛=top><font color=red>解</font></a>" end if%>|<%if rs("hot")=0 then response.write "<a href=admin_hot.asp?id="&rs("id")&"&act=hot>荐</a>" else response.write "<a href=admin_hot.asp?id="&rs("id")&"&act=uhot><font color=BLUE>普</font></a>" end if%>|<a href=?id=<%=rs("id")%>&action=edit><font color="#008000">编</font></a>|<a href=?id=<%=rs("id")%>&╲、衡少゛=delsf><font color="#008000">删</font></a></td>
</tr>
<% 
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
response.write "<tr><td class=tablerow1 colspan='8'><input type='checkbox' name='chkall' value='on' onclick='CheckAll(this.form)'> <input type=submit value=批量审批> <input type=button value=批量删除 onclick=chkid()></td></tr>"
%>
<tr>
<td class=tablerow1 colspan="9"><%call freepage%></td>
</tr>
</form>
</table>
<%end if
end if
'=========================================================
'程序作者：863sf  qq:226317
'官方网站：863网游(www.863sf.com)
'=========================================================
' Copyright 2004-2006 www.863sf.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：fine
'作  用：精品推荐管理
'=================================================
if request.querystring("action")="fine" then%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<form method=post name=form╲、衡少゛ action=?╲、衡少゛=ufine>
<tr>
<th width="4%">选择</th>
<th width="10%">类型</th>
<th width="15%">名称</th>
<th width="15%">IP</th>
<th width="*">开机时间</th>
<th width="18%">推荐时间</th>
<th width="9%">广告期限</th>
<th width="10%">操作</th>
</tr>
<% 
set rs = server.createobject("adodb.recordset")
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.time,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='8'>当前还没有精品私服推荐！</td></tr>"
else 
rs.pagesize=cint(adminpage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr>
<td align="center" class=tablerow1><input name="sel" type="checkbox" id="sel" value="<%=rs("id")%>"></td>
<td align="center" class=tablerow1><%=rs("game")%></td>
<td align="center" class=tablerow1><a href="###" onClick="window.open('admin_display.asp?id=<%=rs("id")%>','info','scrollbars=yes,resizable=no,width=520,height=460,menubar=no,left=0')" title="查看详细内容"><%=rs("name")%></a> <FONT color=#FF0000>详~</FONT></td>
<td align="center" class=tablerow1><%=rs("ip")%></td>
<td align="center" class=tablerow1><%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年"&month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%><%=rs("hour")%>时<%=rs("minute")%>分</td>
<td align="center" class=tablerow1><%=rs("finetime")%></td>
<td align="center" class=tablerow1><%if rs("time")=0 then%><FONT color=#FF0000>默认一天</FONT><%else%><%=rs("time")%>+1天<%end if%></td>
<td align="center" class=tablerow1><%if rs("fine")=0 then response.write "<a href=?id="&rs("id")&"&act=fine&╲、衡少゛=fine>精</a>" else response.write "<a href=?id="&rs("id")&"&act=ufine&╲、衡少゛=fine><font color=red>简</font></a>" end if%>|<a href=?id=<%=rs("id")%>&action=edit><font color="#008000">编</font></a>|<a href=?id=<%=rs("id")%>&╲、衡少゛=delsf><font color="#008000">删</font></a></td>
</tr>
<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
response.write "<tr><td class=tablerow1 colspan='8'><input type='checkbox' name='chkall' value='on' onclick='CheckAll(this.form)'> <input type=submit value=批量解精> <input type=button value=批量删除 onclick=chkid()></td></tr>"
%>
<tr>
<td class=tablerow1 colspan="8"><%call finepage%></td>
</tr>
</form>
</table>
<%end if
end if
'=========================================================
'程序作者：863sf  qq:226317
'官方网站：863网游(www.863sf.com)
'=========================================================
' Copyright 2004-2006 www.863sf.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：hot
'作  用：通宵推荐管理
'=================================================
if request.querystring("action")="hot" then%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<form method=post name=form╲、衡少゛ action=?╲、衡少゛=uhot>
<tr>
<th width="4%">选择</th>
<th width="10%">类型</th>
<th width="15%">名称</th>
<th width="15%">IP</th>
<th width="*">开机时间</th>
<th width="18%">推荐时间</th>
<th width="9%">广告期限</th>
<th width="9%">操作</th>
</tr>
<% 
set rs = server.createobject("adodb.recordset")
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.time,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='8'>当前没有通宵推荐私服！</td></tr>"
else 

rs.pagesize=cint(adminpage)
i=1
mypage=request("page")
if mypage="" then
mypage=1
else
mypage=cint(mypage)
end if
pages=rs.pagecount
rs.absolutepage=mypage
do while not rs.eof%>
<tr>
<td align="center" class=tablerow1><input name="sel" type="checkbox" id="sel" value="<%=rs("id")%>"></td>
<td align="center" class=tablerow1><%=rs("game")%></td>
<td align="center" class=tablerow1><a href="###" onClick="window.open('admin_display.asp?id=<%=rs("id")%>','info','scrollbars=yes,resizable=no,width=520,height=460,menubar=no,left=0')" title="查看详细内容"><%=rs("name")%></a> <FONT color=#FF0000>详~</FONT></td>
<td align="center" class=tablerow1><%=rs("ip")%></td>
<td align="center" class=tablerow1><%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年"&month(rs("sdate"))&"月"&day(rs("Sdate"))&"日"%><%=rs("hour")%>时<%=rs("minute")%>分</td>
<td align="center" class=tablerow1><%=rs("hottime")%></td>
<td align="center" class=tablerow1><%if rs("time")=0 then%><FONT color=#FF0000>默认一天</FONT><%else%><%=rs("time")%>+1天<%end if%></td>
<td align="center" class=tablerow1><%if rs("hot")=0 then response.write "<a href=?id="&rs("id")&"&act=hot&╲、衡少゛=hot>荐</a>" else response.write "<a href=?id="&rs("id")&"&act=uhot&╲、衡少゛=hot><font color=red>普</font></a>" end if%>|<a href=?id=<%=rs("id")%>&action=edit><font color="#008000">编</font></a>|<a href=?id=<%=rs("id")%>&╲、衡少゛=delsf><font color="#008000">删</font></a></td>
</tr>
<% 
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop
response.write "<tr><td class=tablerow1 colspan='8'><input type='checkbox' name='chkall' value='on' onclick='CheckAll(this.form)'> <input type=submit value=批量解固> <input type=button value=批量删除 onclick=chkid()></td></tr>"
%>
<tr>
<td class=tablerow1 colspan="8"><%call hotpage%></td>
</tr>
</form>