admin_list.asp

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

</table>
<%end if
end if
'=========================================================
'程序作者：863sf  qq:226317
'官方网站：863网游(www.863sf.com)
'=========================================================
' Copyright 2004-2006 www.863sf.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：edit
'作  用：私服编辑
'=================================================
if request.querystring("action")="edit" then
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_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,Gq_sfdata.hour,Gq_sfdata.zhuce,Gq_sfdata.dk,Gq_sfdata.minute,Gq_sfdata.addr,Gq_sfdata.xingzhi,Gq_sfdata.QQ,Gq_sfdata.homepage,Gq_sfdata.download,Gq_sfdata.addtime,Gq_sfdata.ulock,Gq_sfdata.top,Gq_sfdata.fine,Gq_sfdata.hot,Gq_sfdata.time,Gq_sfdata.gameid,Gq_gametype.game "
sql=sql&" from Gq_sfdata,Gq_gametype where Gq_sfdata.gameid=Gq_gametype.id and Gq_sfdata.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
%>
<table width=98% align="center" border="0" cellspacing="1" cellpadding="2" class="tableBorder">
<FORM name=form1 onSubmit="return check()" action=admin_edit.asp method=post>
<tr> 
<th colspan="2">私服管理－－编辑私服</th>
</tr>
<TR>
<td width="15%" 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="15%" align="right" class="TableRow1">私服名称：</TD>
<td class="TableRow1"><INPUT name=name value="<%=rs("name")%>" maxLength=14></TD>
</TR>
<tr>
<td width="15%" align="right" class="TableRow1">私服IP：</TD>
<td class="TableRow1"><INPUT name=ip id="ip" value="<%=rs("ip")%>" maxLength=14></TD>
</tr>
<tr>
<td width="15%" align="right" class="TableRow1">zone：</TD>
<td class="TableRow1"><INPUT name=dk id="dk" value="<%=rs("dk")%>" maxLength=14></TD>
</tr>
<TR>
<td width="15%" align="right" class="TableRow1">开区时间：</TD>
<td class="TableRow1"><INPUT name=sdate id="sdate" value="<%=rs("sdate")%>" size="16" maxLength=16> <input name=hour id="hour" value="<%=rs("hour")%>" size="4" maxlength=4> 时 <INPUT name=minute id="minute" value="<%=rs("minute")%>" size="4" maxLength=4> 分</TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">客服QQ：</TD>
<td class="TableRow1"><INPUT name=QQ id="QQ" value="<%=rs("QQ")%>" maxLength=50></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">地区线路：</TD>
<td class="TableRow1">
<SELECT id=addr size=1 name=addr>
<OPTION value="" selected>地区</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>
<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>
<SELECT id=service size=1 name=service>
<%for i=0 to ubound(split(ssign,","))
response.write "<option value='"&i&"' "
if rs("Service")=i then response.write "selected" end if
response.write ">"&split(ssign,",")(i)&"</option>"
next
%></SELECT></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">版本简介：</TD>
<td class="TableRow1"><INPUT name=xingzhi id="xingzhi" value="<%=rs("xingzhi")%>" size="40" maxLength=28></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">主页地址：</TD>
<td class="TableRow1"><INPUT name=homepage id="homepage" value="<%=rs("homepage")%>" size="36" maxLength=100></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">登陆器下载：</TD>
<td class="TableRow1"><INPUT name=download id="download" value="<%=rs("download")%>" size="36" maxLength=100></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">注册页面：</TD>
<td class="TableRow1"><INPUT name=zhuce id="zhuce" value="<%=rs("zhuce")%>" size="36" maxLength=100></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">广告期限：</TD>
<td class="TableRow1">
<select name="time" size="1">
<option selected value="0">请 选 择</option>
<OPTION value=0 <%if rs("time")="0" then response.write "selected" end if%>>推荐1天</OPTION>
<OPTION value=1 <%if rs("time")="1" then response.write "selected" end if%>>推荐2天</OPTION>
<OPTION value=2 <%if rs("time")="2" then response.write "selected" end if%>>推荐3天</OPTION>
<OPTION value=3 <%if rs("time")="3" then response.write "selected" end if%>>推荐4天</OPTION>
<OPTION value=4 <%if rs("time")="4" then response.write "selected" end if%>>推荐5天</OPTION>
<OPTION value=5 <%if rs("time")="5" then response.write "selected" end if%>>推荐6天</OPTION>
<OPTION value=6 <%if rs("time")="6" then response.write "selected" end if%>>推荐7天</OPTION>
<OPTION value=6 <%if rs("time")="7" then response.write "selected" end if%>>推荐8天</OPTION>
<OPTION value=6 <%if rs("time")="8" then response.write "selected" end if%>>推荐9天</OPTION>
<OPTION value=6 <%if rs("time")="9" then response.write "selected" end if%>>推荐10天</OPTION>
</select>
</TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">精品推荐：</TD>
<td class="TableRow1"><input name="fine" type="checkbox" id="fine" value="1" <%if rs("fine")=1 then response.write "checked"%>></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">固顶推荐：</TD>
<td class="TableRow1"><input name="top" type="checkbox" id="top" value="1" <%if rs("top")=1 then response.write "checked"%>></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">通宵推荐：</TD>
<td class="TableRow1"><input name="hot" type="checkbox" id="hot" value="1" <%if rs("hot")=1 then response.write "checked"%>></TD>
</TR>
<TR>
<td width="15%" align="right" class="TableRow1">审核状态：</TD>
<td class="TableRow1"><input name="ulock" type="checkbox" id="ulock" value="1" <%if rs("ulock")=1 then response.write "checked"%>></TD>
</TR>
<TR>   
<td width="15%" align="right" class="TableRow1">发布日期：</TD>
<td class="TableRow1"><INPUT name=addtime id="addtime" value="<%if rs("addtime")="" then response.write rs("sdate") else response.write rs("addtime") end if%>" size="20" maxLength=19></TD>
</TR>
<TR>
<td align="center" class="TableRow1" colspan="2">
<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>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
</TD>
</TR>
</form>
</TABLE>
<%end if
end if
'=========================================================
'程序作者：863sf  qq:226317
'官方网站：863网游(www.863sf.com)
'=========================================================
' Copyright 2004-2006 www.863sf.com - All Rights Reserved.
'=========================================================
'=================================================
'过程名：search
'作  用：私服搜索
'=================================================
if request.querystring("action")="search" then
menu=htmlencode(request("menu"))
key=htmlencode(request("key"))
otype=htmlencode(request("otype"))
if key="" then
response.write "<script>alert('请输入查询条件');history.back()</script>"
response.end
elseif menu="" or (not isnumeric(menu)) or isnull(menu) then
menu="all"
elseif int(menu)>uBound(split(lsign,",")) then
menu="all"
end if
set rs = server.createobject("adodb.recordset")
%>
<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<>"all" 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 "&otype&" like '%"&key&"%' and Gq_SFdata.gameid=Gq_gametype.id and Gq_SFdata.gameid="&menu
sql=sql&" and Gq_SFdata.ulock=1 order by Gq_SFdata.addtime 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 "&otype&" like '%"&key&"%' and Gq_SFdata.gameid=Gq_gametype.id"
sql=sql&" and Gq_SFdata.ulock=1 order by Gq_SFdata.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='9'><b>Sorry！<b><font color=red>没有找到您搜索的私服~！</font></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
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>