<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
If Not CheckAdmin("JzList") 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 menu, Rs_type, Sql_Type, Contact
titlename="家族管理"
Admin_header
if request.QueryString("guiqi")="jztop" then'=============固顶家族
dim id,act
id=QiKuCMS.CheckStr(request("id"))
act=QiKuCMS.CheckStr(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("guiqi")="jzedit" then'=============修改家族
set rs = server.createobject("adodb.recordset")
dim name,qq,addr,peo,gameid,bulid,master,tel,web,top,ulock
name=QiKuCMS.CheckStr(request("name"))
qq=QiKuCMS.CheckStr(request.form("qq"))
addr=QiKuCMS.CheckStr(request.form("addr"))
peo=QiKuCMS.CheckStr(request.form("peo"))
gameid=QiKuCMS.CheckStr(request.form("gameid"))
bulid=request.form("bulid")
master=QiKuCMS.CheckStr(request.form("master"))
tel=QiKuCMS.CheckStr(request.form("tel"))
web=QiKuCMS.CheckStr(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("guiqi")="jzulock" then'=============审核家族
dim sel
sel=QiKuCMS.CheckStr(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("guiqi")="jzdel" then'=============删除家族
dim delsel
sel=QiKuCMS.CheckStr(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("guiqi")="utop" then'=============批量解固
dim utopsel
sel=QiKuCMS.CheckStr(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("guiqi")="ltop" then'=============批量固顶
dim ltopsel
sel=QiKuCMS.CheckStr(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")
%>
<script>
function chkid()
{
document.formguiqi.action="admin_jz_list.asp?guiqi=jzdel";
document.formguiqi.submit()
}
</script>
<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
%>
<br><b>管理选项：</b><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
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
%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<form method=post name=formguiqi action=admin_Jz_list.asp?guiqi=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
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
%>
<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>
<td align="center" class=tablerow1><%=rs("hits")%></td>
<td align="center" class=tablerow1><%if rs("top")=true then response.write "<font color=#0000FF>固顶中</font>" else response.write "<font color=#CCCCCC>未固顶</font>" end if%></td>
<td align="center" class=tablerow1><%if rs("ulock")=true 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")=false then response.write "<a href=admin_Jz_list.asp?guiqi=jztop&id="&rs("id")&"&act=top>固顶</a>" else response.write "<a href=admin_Jz_list.asp?guiqi=jztop&id="&rs("id")&"&act=utop><font color=red>解固</font></a>" end if%> | <a href=admin_Jz_list.asp?action=jzedit&id=<%=rs("id")%>><font color="#008000">编辑</font></a></td>
</tr>
<%
	Rs.movenext
i = i + 1
If i >= maxperpage Then Exit Do
	Loop
End If
Rs.Close:Set Rs = Nothing
%>
<tr>
<td class=tablerow1 colspan="8"><B>操作选项:<B> 
<input class=btn type=button value='全选' onClick="CheckAll(this.form)"><input class=btn type=button value='撤消' onClick="CheckCel(this.form)"><input class=btn type=button value='反选' onClick="CheckSel(this.form)"> 
<input class=btn type=submit value=批量固顶> <input class=btn type=submit value=批量删除 onclick=chkid()> 
</td>
</tr>
</form>
<tr>
<td <%=RightClass%> colspan="8"><%QiKuCMS.ShowListPage CurrentPage,Pcount,totalrec,maxperpage,"","家族管理"%></td>
</tr>
</table>
<%
end if
if request.querystring("action")="jzulock" then%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<form method=post name=formguiqi action=admin_Jz_list.asp?guiqi=jzulock>
<tr>
<th width="4%">选择</th>
<th width="10%">所在游戏</th>
<th width="18%">名称</th>
<th width="15%">族长QQ号</th>
<th width="10%">QQ群</th>
<th width="*">发布时间</th>
<th width="7%">主页</th>
<th width="15%">操作</th>
</tr>
<% 
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.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 
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("master")%></td>
<td align="center" class=tablerow1><%=rs("qq")%></td>
<td align="center" class=tablerow1><%=rs("addtime")%></td>
<td align="center" class=tablerow1><%if rs("web")="" or rs("web")="无" or rs("web")="http://" then response.write "未知" else response.write "<a href="&rs("web")&" target=_blank><FONT color=#0000FF>查看</FONT></a>" end if%></td>
<td align="center" class=tablerow1><%if rs("top")=false then response.write "<a href=admin_Jz_top.asp?guiqi=jztop&id="&rs("id")&"&act=top>固顶</a>" else response.write "<a href=admin_Jz_list.asp?guiqi=jztop&id="&rs("id")&"&act=utop><font color=red>解固</font></a>" end if%> | <a href=admin_Jz_list.asp?action=jzedit&id=<%=rs("id")%>><font color="#008000">编辑</font></a></td>
</tr>
<%
rs.movenext
loop
rs.close
end if
%>
<tr>
<td class=tablerow1 colspan="8"><B>操作选项:<B> <input class=btn type=button value='全选' onClick="CheckAll(this.form)"><input class=btn type=button value='撤消' onClick="CheckCel(this.form)"><input class=btn type=button value='反选' onClick="CheckSel(this.form)"> 
<input class=btn type=submit value=批量审核> <input class=btn type=submit value=批量删除 onclick=chkid()>
</td>
</tr>
</form>
</table>
<%end if
if request.querystring("action")="jztop" then%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<form method=post name=formguiqi action=admin_Jz_list.asp?guiqi=utop>
<tr>
<th width="4%">选择</th>
<th width="12%">所在游戏</th>
<th width="*">名称</th>
<th width="20%">族长QQ号</th>
<th width="15%">QQ群</th>
<th width="8%">人气</th>
<th width="15%" colspan="2">操作</th>
</tr>
<% 
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.top=true 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 
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("master")%></td>
<td align="center" class=tablerow1><%=rs("qq")%></td>
<td align="center" class=tablerow1><%=rs("hits")%></td>
<td align="center" class=tablerow1><%if rs("top")=false then response.write "<a href=admin_Jz_top.asp?guiqi=jztop&id="&rs("id")&"&act=top>固顶</a>" else response.write "<a href=admin_Jz_list.asp?guiqi=jztop&id="&rs("id")&"&act=utop><font color=red>解固</font></a>" end if%> | <a href=admin_Jz_list.asp?action=jzedit&id=<%=rs("id")%>><font color="#008000">编辑</font></a></td>
</tr>
<%
rs.movenext
loop
rs.close
end if
%>
<tr>
<td class=tablerow1 colspan="8"><B>操作选项:<B> <input class=btn type=button value='全选' onClick="CheckAll(this.form)"><input class=btn type=button value='撤消' onClick="CheckCel(this.form)"><input class=btn type=button value='反选' onClick="CheckSel(this.form)"> 
<input class=btn type=submit value=批量解固> <input class=btn type=submit value=批量删除 onclick=chkid()>
</td>
</tr>
</form>
</table>
<%end if%>
<%
if request.querystring("action")="jzedit" then
dim jzid
id=QiKuCMS.CheckStr(request("id"))
if id="" or (not isnumeric(id)) then
response.write "<script>alert('参数不正确！！！');window.close()</script>"
response.end
end if
set rs = server.createobject("adodb.recordset")
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.top,Gq_jzdata.ulock,Gq_gametype.game FROM Gq_jzdata,Gq_gametype where Gq_jzdata.gameid=Gq_gametype.id and Gq_jzdata.id="&id
rs.open sql,conn,1,1 
if rs.bof and rs.eof then 
rs.close
response.write "<script>alert('无此数据！！！');window.close()</script>"
response.end
else
end if
%>
<SCRIPT language=JavaScript>
function check(){
if(document.form1.name.value=="")
  {
alert("家族名称不能为空！");
document.form1.name.focus();
return false;
}
if(document.form1.QQ.value=="")
{
alert("家族QQ群不能为空！");
document.form1.qq.focus();
return false;
}
if(document.form1.gameid.value=="")
{
alert("请选择家族所在的游戏！");
document.form1.gameid.focus();
return false;
}
if(document.form1.Peo.value=="")
{
alert("请填写家族人数！");
document.form1.Peo.focus();
return false;
}
if(document.form1.master.value=="")
{
alert("请填写家族族长QQ号！");
document.form1.master.focus();
return false;
}
if(document.form1.addr.value=="")
{
alert("请选择家族线路类别！");
document.form1.addr.focus();
return false;
}
if(document.form1.Bulid.value=="")
{
alert("请填写家族创建的具体时间！");
document.form1.bulid.focus();
return false;
}
if(document.form1.about.value=="")
{
alert("家族简介不能为空！");
document.form1.about.focus();
return false;
}
}
</SCRIPT>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<FORM name=form1 onsubmit="return check()" action=admin_jz_list.asp?guiqi=jzedit method=post>
<tr> 
<th colspan="2">家族管理－－修改家族</th>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">家族名称：</td>
<td class="TableRow1"><INPUT name=name value="<%=rs("name")%>" maxLength=14 class="input_out"><FONT color=#c0c0c0>(<%=rs("addtime")%>发布)</FONT></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">家族QQ群：</td>
<td class="TableRow1"><INPUT name=qq id="qq" value="<%=rs("QQ")%>" maxLength=14 class="input_out"></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">所在游戏：</td>
<td class="TableRow1">
<%
Set Rs_type = Server.CreateObject("ADODB.RecordSet")
Sql_Type="select * from Gq_gametype order by orderid"
rs_type.open sql_type,conn,1,1
%>
<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
%></SELECT></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">家族口号：</td>
<td class="TableRow1"><INPUT name=peo id="peo" value="<%=rs("peo")%>" maxLength=14 class="input_out"></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">族长QQ号：</td>
<td class="TableRow1"><INPUT name=master id="master" value="<%=rs("master")%>" maxLength=14 class="input_out"></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">创建日期：</td>
<td class="TableRow1"><INPUT name=bulid id="bulid" value="<%=rs("bulid")%>" maxLength=19 class="input_out"></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">线路类别：</td>
<td class="TableRow1"><INPUT name=addr id="addr" value="<%=rs("addr")%>" maxLength=14 class="input_out"></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">游戏版本：</td>
<td class="TableRow1"><INPUT name=tel id="tel" value="<%=rs("tel")%>" maxLength=50 class="input_out"></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">家族主页：</td>
<td class="TableRow1"><INPUT name=web id="web" value="<%=rs("web")%>" size="36" maxLength=100 class="input_out"></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">点击率：</td>
<td class="TableRow1">
<INPUT name=hits id="hits" value="<%=rs("hits")%>" size="10" maxLength=20 class="input_out">
&nbsp;&nbsp;审核状态<input name="ulock" type="checkbox" id="ulock" value="1" <%if rs("ulock")=true then response.write "checked"%>>
&nbsp;&nbsp;固顶状态<input name="top" type="checkbox" id="top" value="1" <%if rs("top")=true then response.write "checked"%>>
</td>
</tr>
<tr>
<td class="TableRow1" colspan="2" height="30" align="center"><input name="id" type="hidden" id="id" value="<%=rs("id")%>"><INPUT class=btn type=submit value=" 编 辑 " name=submit2>&nbsp;&nbsp;&nbsp;&nbsp;<INPUT class=btn type=reset value=" 清 除 " name=cmdcancel></td>
</tr>
</form>
</table>
<%end if
Admin_footer
CloseConn
%> 
