admin_jz_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("╲、衡少゛")="jztop" then'=============固顶家族
dim id,act
id=htmlencode(request("id"))
act=htmlencode(request("act"))
if id="" then
response.write "<script>alert('变量参数不正确，请检查后再试');history.back()</script>"
call CloseConn()
response.end
end if

set rs = server.createobject("adodb.recordset")
	sql="select * from Gq_jzdata 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("╲、衡少゛")="jzedit" then'=============修改家族
set rs = server.createobject("adodb.recordset")
dim name,qq,addr,peo,gameid,bulid,master,tel,web,top,ulock
name=htmlencode(request("name"))
qq=htmlencode(request.form("qq"))
addr=htmlencode(request.form("addr"))
peo=htmlencode(request.form("peo"))
gameid=htmlencode(request.form("gameid"))
bulid=request.form("bulid")
master=htmlencode(request.form("master"))
tel=htmlencode(request.form("tel"))
web=htmlencode(request.form("web"))
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 Contact="" then Contact=master
if tel="" then tel="无"
if name="" or qq="" or gameid="" or addr="" or peo="" or  master="" or bulid="" then
response.write "<script>alert('带*的选项必须填写或选择，请返回检查后再提交');history.back()</script>"
call CloseConn()
response.end
end if

call edit()
call CloseConn()
sub edit()
	sql="select * from Gq_jzdata 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("Name")=Name
		rs("QQ")=QQ
		rs("Addr")=Addr
		rs("Peo")=Peo
		rs("GameID")=GameID
		rs("Bulid")=Bulid
		rs("Master")=Master
		rs("tel")=tel
		rs("web")=web
		rs("ulock")=ulock
		rs("top")=top
	        rs("Limit")=2
		rs.update
		name=rs("name")
		response.write "<script>alert('"&name&"编辑成功~！');</script>"		
		rs.close
		response.redirect "Admin_Jz_list.asp"
	end if
end sub
end if
%>
<%
if request.QueryString("╲、衡少゛")="jzulock" then'=============审核家族
dim sel
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_jzdata 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("╲、衡少゛")="jzdel" then'=============删除家族
dim delsel
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="delete * from Gq_jzdata 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("╲、衡少゛")="utop" then'=============批量解固
dim utopsel
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_jzdata 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("╲、衡少゛")="ltop" then'=============批量固顶
dim ltopsel
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_jzdata 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.form╲、衡少゛.action="admin_jz_list.asp?╲、衡少゛=jzdel";
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="#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_Jz_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_Jz_list.asp">家族列表</a> | <a href="admin_jz_list.asp?action=jztop">固顶家族</a> | <a href="admin_jz_list.asp?action=jzulock">家族审核</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=form╲、衡少゛ action=admin_Jz_list.asp?╲、衡少゛=ltop>
<tr align="center">
<th width="4%">选择</th>
<th width="12%">所在游戏</th>
<th width="*">名称</th>
<th width="15%">QQ群号</th>
<th width="8%">人气</th>
<th width="12%">固顶状态</th>
<th width="10%">验证</th>
<th width="15%">操作</th>
</tr>   
<% 
if menu<>"" then
sql="select Gq_jzdata.id,Gq_jzdata.name,Gq_jzdata.qq,Gq_jzdata.master,Gq_jzdata.bulid,Gq_jzdata.peo,Gq_jzdata.addr,Gq_jzdata.web,Gq_jzdata.hits,Gq_jzdata.addtime,Gq_jzdata.tel,Gq_jzdata.gameid,Gq_jzdata.ulock,Gq_jzdata.top,Gq_gametype.game FROM Gq_jzdata,Gq_gametype where Gq_jzdata.gameid=Gq_gametype.id and Gq_jzdata.gameid="&menu&" order by addtime desc" 
else
sql="select Gq_jzdata.id,Gq_jzdata.name,Gq_jzdata.qq,Gq_jzdata.master,Gq_jzdata.bulid,Gq_jzdata.peo,Gq_jzdata.addr,Gq_jzdata.web,Gq_jzdata.hits,Gq_jzdata.addtime,Gq_jzdata.tel,Gq_jzdata.gameid,Gq_jzdata.ulock,Gq_jzdata.top,Gq_gametype.game FROM Gq_jzdata,Gq_gametype where Gq_jzdata.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_Jz_display.asp?id=<%=rs("id")%>','info','scrollbars=yes,resizable=no,width=520,height=460,menubar=no,left=0')" title="查看详细内容"><%=rs("name")%></a></td>
<td align="center" class=tablerow1><%=rs("qq")%></td>