⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_list.asp

📁 本程序采用ACC数据核心构件！！ 功能介绍： 程序代码重新设计与优化
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="jfine" then'=============批量解除精品
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_sfdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("fine")=0
	rs("time")=0
	rs.update
	rs.close
	end if
next

set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="jhot" then'=============批量解除通宵
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
call CloseConn()
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_sfdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("hot")=0
	rs("time")=0
	rs.update
	rs.close
	end if
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
if request.QueryString("╲、衡少゛")="delsf" then'=============删除私服
set rs = server.CreateObject("adodb.recordset")
on error resume next
id=trim(request("id"))
if id="" or (not isnumeric(id)) then
response.write "<script>alert('参数不正确！！！');history.back()</script>"
call CloseConn()
response.end
end if
sql="delete * from Gq_sfdata where id="&id
conn.execute sql
if err.Number<>0 then
	err.clear
	call closeconn()
	response.write "<script>alert('数据库操作失败! ');history.back()"
else
	finished
call closeconn()
response.Redirect "Admin_list.asp"
end if
end if
if not isempty(request("page")) then
		currentPage=cint(request("page"))
	else
		currentPage=1
	end if
set rs = server.createobject("adodb.recordset")
menu=request("menu")
%>
<html>
<head>
<title><%=webname%></title>
<meta NAME="GENERATOR" Content="Microsoft FrontPage 6.0">
<meta HTTP-EQUIV="Content-Type" content="text/html; charset=gb2312">
<LINK href="admin_style.css" rel=stylesheet>
</head>
<script>
// 批量删除
function chkid()
{
document.form╲、衡少゛.action="admin_list.asp?╲、衡少゛=del";
document.form╲、衡少゛.submit()
}
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }


// 批量解固
function chktopid()
{
document.form╲、衡少゛.action="admin_list.asp?╲、衡少゛=utop";
document.form╲、衡少゛.submit()
}
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }


// 批量通宵
function chkhotid()
{
document.form╲、衡少゛.action="admin_list.asp?╲、衡少゛=lhot";
document.form╲、衡少゛.submit()
}
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }

// 批量精品
function chkfineid()
{
document.form╲、衡少゛.action="admin_list.asp?╲、衡少゛=lfine";
document.form╲、衡少゛.submit()
}
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }

// 批量审核
function chkulockid()
{
document.form╲、衡少゛.action="admin_list.asp?╲、衡少゛=ulock";
document.form╲、衡少゛.submit()
}
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
</script>
<body leftMargin=0 bgcolor="#ffcc00" topMargin=0>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<tr>
<th>私服管理操作</th>
</tr>
<form method=post action=admin_list.asp?action=search>
<tr>
<td class=TableRow1>
<b>私服搜索：</b> <INPUT onBlur="if (value ==''){value='请输入关键字'}" onmouseover=this.focus() onfocus=this.select() onClick="if(this.value=='请输入关键字')this.value=''" maxLength=15 size=15 value=请输入关键字 name=key>
&nbsp;&nbsp;条件：
<INPUT name=otype type=radio value=name checked>服务器名
&nbsp;<INPUT name=otype type=radio value=name>服务器IP
&nbsp;&nbsp;<input type=submit name=Submit value='开始搜索' class=Button>
</td>
</tr>
</form>
<tr>
<td class=tablerow1>
<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
%>
<a href="?action=ulock">私服审核</a> | <a href="?action=top">固顶私服</a> | <a href="?action=hot">通宵推荐</a> | <a href="?action=fine">精品推荐</a> | <a href="?action=free">免费游戏</a></td>
</tr>
</table>
<br>
<%
'=========================================================
'程序作者：863sf  qq:226317
'官方网站：863网游(www.863sf.com)
'=========================================================
' Copyright 2004-2006 www.863sf.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：无
'作  用：全部私服管理
'=================================================
if request.querystring("action")="" then%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<form method=post name=form╲、衡少゛ action=?╲、衡少゛=ltop>
<tr>
<th width="4%">选择</th>
<th width="10%">类型</th>
<th width="15%">名称</th>
<th width="15%">IP</th>
<th width="*">开机时间</th>
<th width="6%">人气</th>
<th width="5%">主页</th>
<th width="5%">验证</th>
<th width="15%">操作</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.hits,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.top,Gq_sfdata.fine,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.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.top,Gq_sfdata.fine,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"
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='9'>当前无任何私服信息！</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><font color=red><%=rs("hits")%></font></td>
<td align="center" class=tablerow1><%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" 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=?id="&rs("id")&"&act=hot&╲、衡少゛=hot>荐</a>" else response.write "<a href=?id="&rs("id")&"&act=uhot&╲、衡少゛=hot><font color=BLUE>普</font></a>" end if%>|<%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%>
<tr>
<td class=tablerow1 colspan="9">
<input type='checkbox' name='chkall' value='on' onclick='CheckAll(this.form)'> 全选/反选
<input type=submit value=批量固顶> <input type=button value=批量解固 onclick=chktopid()> <input type=button value=批量通宵 onclick=chkhotid()> <input type=button value=批量精品 onclick=chkfineid()> <input type=button value=批量审核 onclick=chkulockid()> <input type=button value=批量删除 onclick=chkid()>
</td>
</tr>
<tr>
<td class=tablerow1 colspan="9"><%call page%></td>
</tr>
</form>
</table>
<%end if
end if
'=========================================================
'程序作者：863sf  qq:226317
'官方网站：863网游(www.863sf.com)
'=========================================================
' Copyright 2004-2006 www.863sf.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：ulock
'作  用：私服审核管理
'=================================================
if request.querystring("action")="ulock" then%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<tr>
<th width="4%">选择</th>
<th width="10%">类型</th>
<th width="17%">名称</th>
<th width="17%">IP</th>
<th width="*">开机时间</th>
<th width="12%">客服</th>
<th width="5%">主页</th>
<th width="15%">操作</th>
</tr>
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -