admin_jz_list.asp

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

<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?╲、衡少゛=jztop&id="&rs("id")&"&act=top>固顶</a>" else response.write "<a href=admin_Jz_list.asp?╲、衡少゛=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>
<%
if i=rs.pagesize then exit do end if
i=i+1
rs.movenext
loop%>
<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 page%></td>
</tr>
</form>
</table>
<%end if
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=form╲、衡少゛ action=admin_Jz_list.asp?╲、衡少゛=jzulock>
<tr>
<th width="4%">选择</th>
<th width="10%">所在游戏</th>
<th width="18%">名称</th>
<th width="15%">族长</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?╲、衡少゛=jztop&id="&rs("id")&"&act=top>固顶</a>" else response.write "<a href=admin_Jz_list.asp?╲、衡少゛=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">
<input type='checkbox' name='chkall' value='on' onclick='CheckAll(this.form)'> 全选/反选
<input type=submit value=批量审核> <input type=button 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=form╲、衡少゛ action=admin_Jz_list.asp?╲、衡少゛=utop>
<tr>
<th width="4%">选择</th>
<th width="12%">所在游戏</th>
<th width="*">名称</th>
<th width="20%">族长</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='7'>当前没有未固定的家族信息！</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?╲、衡少゛=jztop&id="&rs("id")&"&act=top>固顶</a>" else response.write "<a href=admin_Jz_list.asp?╲、衡少゛=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">
<input type='checkbox' name='chkall' value='on' onclick='CheckAll(this.form)'> 全选/反选
<input type=submit value=批量解固> <input type=button value=批量删除 onclick=chkid()>
</td>
</tr>
</form>
</table>
<%end if%>
<%
if request.querystring("action")="jzedit" then
dim jzid
id=htmlencode(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("请填写家族族长名字！");
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?╲、衡少゛=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><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></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></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">家族族长：</td>
<td class="TableRow1"><INPUT name=master id="master" value="<%=rs("master")%>" maxLength=14></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">创建日期：</td>
<td class="TableRow1"><INPUT name=bulid id="bulid" value="<%=rs("bulid")%>" maxLength=19></td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">所在地区：</td>
<td class="TableRow1">
          <SELECT id=addr size=1 name=addr>
          <OPTION value=北京 <%if rs("addr")="北京" then response.write "selected" end if%>>北京</OPTION>
          <OPTION value=上海 <%if rs("addr")="上海" then response.write "selected" end if%>>上海</OPTION>
          <OPTION value=重庆 <%if rs("addr")="重庆" then response.write "selected" end if%>>重庆</OPTION>
          <OPTION value=天津 <%if rs("addr")="天津" then response.write "selected" end if%>>天津</OPTION>
          <OPTION value=广东 <%if rs("addr")="广东" then response.write "selected" end if%>>广东</OPTION>
          <OPTION value=河北 <%if rs("addr")="河北" then response.write "selected" end if%>>河北</OPTION>
          <OPTION value=山西 <%if rs("addr")="山西" then response.write "selected" end if%>>山西</OPTION>
          <OPTION value=内蒙古 <%if rs("addr")="内蒙古" then response.write "selected" end if%>>内蒙古</OPTION>
          <OPTION value=辽宁 <%if rs("addr")="辽宁" then response.write "selected" end if%>>辽宁</OPTION>
          <OPTION value=吉林 <%if rs("addr")="吉林" then response.write "selected" end if%>>吉林</OPTION>
          <OPTION value=黑龙江 <%if rs("addr")="黑龙江" then response.write "selected" end if%>>黑龙江</OPTION>
          <OPTION value=江苏 <%if rs("addr")="江苏" then response.write "selected" end if%>>江苏</OPTION>
          <OPTION value=浙江 <%if rs("addr")="浙江" then response.write "selected" end if%>>浙江</OPTION>
          <OPTION value=安徽 <%if rs("addr")="安徽" then response.write "selected" end if%>>安徽</OPTION>
          <OPTION value=福建 <%if rs("addr")="福建" then response.write "selected" end if%>>福建</OPTION>
          <OPTION value=江西 <%if rs("addr")="江西" then response.write "selected" end if%>>江西</OPTION>
          <OPTION value=山东 <%if rs("addr")="山东" then response.write "selected" end if%>>山东</OPTION>
          <OPTION value=河南 <%if rs("addr")="河南" then response.write "selected" end if%>>河南</OPTION>
          <OPTION value=湖北 <%if rs("addr")="湖北" then response.write "selected" end if%>>湖北</OPTION>
          <OPTION value=湖南 <%if rs("addr")="湖南" then response.write "selected" end if%>>湖南</OPTION>
          <OPTION value=广西 <%if rs("addr")="广西" then response.write "selected" end if%>>广西</OPTION>
          <OPTION value=海南 <%if rs("addr")="海南" then response.write "selected" end if%>>海南</OPTION>
          <OPTION value=四川 <%if rs("addr")="四川" then response.write "selected" end if%>>四川</OPTION>
          <OPTION value=贵州 <%if rs("addr")="贵州" then response.write "selected" end if%>>贵州</OPTION>
          <OPTION value=云南 <%if rs("addr")="云南" then response.write "selected" end if%>>云南</OPTION>
          <OPTION value=西藏 <%if rs("addr")="西藏" then response.write "selected" end if%>>西藏</OPTION>
          <OPTION value=陕西 <%if rs("addr")="陕西" then response.write "selected" end if%>>陕西</OPTION>
          <OPTION value=甘肃 <%if rs("addr")="甘肃" then response.write "selected" end if%>>甘肃</OPTION>
          <OPTION value=青海 <%if rs("addr")="青海" then response.write "selected" end if%>>青海</OPTION>
          <OPTION value=宁夏 <%if rs("addr")="宁夏" then response.write "selected" end if%>>宁夏</OPTION>
          <OPTION value=新疆 <%if rs("addr")="新疆" then response.write "selected" end if%>>新疆</OPTION>
          <OPTION value=香港 <%if rs("addr")="香港" then response.write "selected" end if%>>香港</OPTION>
          <OPTION value=澳门 <%if rs("addr")="澳门" then response.write "selected" end if%>>澳门</OPTION>
          <OPTION value=台湾 <%if rs("addr")="台湾" then response.write "selected" end if%>>台湾</OPTION>
          <OPTION value=国外 <%if rs("addr")="国外" then response.write "selected" end if%>>国外</OPTION>
        </SELECT>
</td>
</tr>
<tr>
<td width="12%" align="right" class="TableRow1">游戏版本：</td>
<td class="TableRow1"><INPUT name=tel id="tel" value="<%=rs("tel")%>" maxLength=50></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></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>
&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 type=submit value=" 编 辑 " name=submit2>&nbsp;&nbsp;&nbsp;&nbsp;<INPUT type=reset value=" 清 除 " name=cmdcancel></td>
</tr>
</form>
</table>
<%end if
call CloseConn()%> 
<table width=98% align="center" border="0" cellspacing="0" cellpadding="0">
<tr align="middle">
<td height="30" valign="bottom">Copyright (c) 2004-2006 <a target="_blank" href="http://www.xuncms.cn"><b><font color="#708796">XunCms</font><font color="#cc0000">.Cn</font></b></font></a>. All Rights Reserved .</td>
</tr>
<tr align="middle">
<td>Powered by：<a href="http://www.xuncms.cn" target="_blank"><b><font color="#708796">讯图</font><font color="#cc0000">设计</font></b></font> XunCms <%=Version%></a></td>
</tr>
</table>
</body>
</html>