admin_jzz_list.asp

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

<!--#include file="../inc/config.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/code.asp"-->
<!--#include file="../inc/SqlIn.Asp"-->
<!--#include file="../inc/check.asp"-->
<!--#include file="../inc/public.asp"-->
<%
if request.QueryString("guiqi")="jzztop" then'=============固顶家族战
dim id,act
id=htmlencode(request("id"))
act=htmlencode(request("act"))
if id="" then
response.write "<script>alert('变量参数不正确，请检查后再试');history.back()</script>"
response.end
end if

set rs = server.createobject("adodb.recordset")
	sql="select * from Gq_jzzdata where id="&id
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
		rs.close
		response.write "<script>alert('无此记录');history.back()</script>"
	else
	select case act
	case "top"
	rs("top")=true
	rs("ulock")=true
	case "utop"
	rs("top")=false
	end select
	rs.update
	rs.close
	end if

set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
%>
<%
if request.QueryString("guiqi")="jzzedit" then'=============修改家族战
set rs = server.createobject("adodb.recordset")
dim jzname,vsname,vstime,gameid,jzmaster,jzqq,jzTel,vsserver,vsweb,vswebqq,vswebtel,about,hits,gameover
jzname=htmlencode(request("jzname"))
vsname=htmlencode(request("vsname"))
vstime=request.form("vstime")
gameid=htmlencode(request.form("gameid"))
jzmaster=htmlencode(request.form("jzmaster"))
jzqq=htmlencode(request.form("jzqq"))
jztel=htmlencode(request.form("jztel"))
vsserver=htmlencode(request.form("vsserver"))
vsweb=htmlencode(request.form("vsweb"))
vswebqq=htmlencode(request.form("vswebqq"))
vswebtel=htmlencode(request.form("vswebtel"))
about=htmlencode(request.form("about"))
hits=htmlencode(request.form("hits"))
gameover=htmlencode(request.form("gameover"))
if request("top")<>1 then
	top=0
else
	top=1
end if
if request("ulock")<>1 then
	ulock=0
else
	ulock=1
end if
if jzname="" or vsname="" or vstime="" or gameid="" or jzmaster="" or  jzqq="" or jzTel="" or vsserver="" or vsweb="" or vswebqq="" or vswebtel="" or about="" then
response.write "<script>alert('带*的选项必须填写或选择，请返回检查后再提交');history.back()</script>"
response.end
end if

call edit()

sub edit()
	sql="select * from Gq_jzzdata where id="&request("id") 
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
		rs.close
		response.write "<script>alert('无此ID，请返回重新检查');history.back()</script>"
	else
		rs("jzname")=jzname
    rs("vsname")=vsname
    rs("vstime")=vstime
    rs("gameid")=gameid
    rs("jzmaster")=jzmaster
    rs("jzqq")=jzqq
    rs("jztel")=jzTel
    rs("vsserver")=vsserver
    rs("vsweb")=vsweb
    rs("vswebqq")=vswebqq
    rs("vswebtel")=vswebtel
    rs("about")=about
	rs("hits")=hits
    rs("gameover")=gameover
		rs("ulock")=ulock
		rs("top")=top
		rs.update
		jzname=rs("jzname")
		response.write "<script>alert('"&name&"编辑成功~！');</script>"		
		rs.close
		response.redirect "Admin_Jzz_list.asp"
	end if
	call closedb()
end sub

sub closedb()
set rs=nothing
conn.close
set conn=nothing
end sub
end if
%>
<%
if request.QueryString("guiqi")="jzzulock" then'=============审核家族战
dim sel
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_jzzdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("ulock")=true
	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("guiqi")="jzzdel" then'=============删除家族
dim delsel
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="delete * from Gq_jzzdata where id="&sel(i)
	conn.execute sql
next
set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
end if
%>
<%
if request.QueryString("guiqi")="utop" then'=============批量解固
dim utopsel
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_jzzdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("top")=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("guiqi")="ltop" then'=============批量固顶
dim ltopsel
sel=htmlencode(request.form("sel"))
if sel="" then
response.write "<script>alert('没有选择任何记录，不能操作');history.back()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
sel=split(sel,",")
for i= 0 to ubound(sel)
	sql="select * from Gq_jzzdata where id="&sel(i)
	rs.open sql,conn,1,3
	if rs.bof and rs.eof then
	rs.close
	else
	rs("top")=1
	rs("ulock")=true
	rs.update
	rs.close
	end if
next

set rs=nothing
conn.close
set conn=nothing
response.redirect request.ServerVariables("HTTP_REFERER")
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 http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="admin_style.css" rel="stylesheet" type="text/css">
</head>
<script>
function chkid()
{
document.formguiqi.action="admin_jzz_list.asp?guiqi=jzzdel";
document.formguiqi.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="#EFEFEF" topMargin=15>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<tr> 
<th>家族管理操作</th>
</tr>
<tr>
<td class=tablerow1><b>管理选项：</b>
<%
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_Jzz_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="admin_Jzz_list.asp">家族战列表</a> | <a href="admin_jzz_list.asp?action=jzztop">固顶家族战</a> | <a href="admin_jzz_list.asp?action=jzzulock">家族战审核</a></td>
</tr>
</table>
<br>
<%if request.querystring("action")="" then%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<form method=post name=formguiqi action=admin_Jzz_list.asp?guiqi=ltop>
<tr align="center">
<th width="4%">选择</th>
<th width="9%">所在游戏</th>
<th width="*">发布家族名称</th>
<th width="*">对方家族名称</th>
<th width="*">对战服</th>
<th width="8%">固顶状态</th>
<th width="8%">验证</th>
<th width="12%">操作</th>
</tr>   
<% 
if menu<>"" then
sql="select Gq_jzzdata.id,Gq_jzzdata.jzname,Gq_jzzdata.vsname,Gq_jzzdata.vstime,Gq_jzzdata.jzmaster,Gq_jzzdata.jzqq,Gq_jzzdata.jzTel,Gq_jzzdata.vsserver,Gq_jzzdata.about,Gq_jzzdata.vsweb,Gq_jzzdata.vswebqq,Gq_jzzdata.vswebtel,Gq_jzzdata.addtime,Gq_jzzdata.gameid,Gq_jzzdata.ulock,Gq_jzzdata.top,Gq_gametype.game FROM Gq_jzzdata,Gq_gametype where Gq_jzzdata.gameid=Gq_gametype.id and Gq_jzzdata.gameid="&menu&" order by addtime desc" 
else
sql="select Gq_jzzdata.id,Gq_jzzdata.jzname,Gq_jzzdata.vsname,Gq_jzzdata.vstime,Gq_jzzdata.jzmaster,Gq_jzzdata.jzqq,Gq_jzzdata.jzTel,Gq_jzzdata.vsserver,Gq_jzzdata.about,Gq_jzzdata.vsweb,Gq_jzzdata.vswebqq,Gq_jzzdata.vswebtel,Gq_jzzdata.addtime,Gq_jzzdata.gameid,Gq_jzzdata.ulock,Gq_jzzdata.top,Gq_gametype.game FROM Gq_jzzdata,Gq_gametype where Gq_jzzdata.gameid=Gq_gametype.id order by addtime 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>" 
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_Jzz_display.asp?id=<%=rs("id")%>','info','scrollbars=yes,resizable=no,width=520,height=460,menubar=no,left=0')" title="查看详细内容"><%=rs("jzname")%></a></td>