外挂编程

开发平台：
ASP/ASPX

Admin_Jz_list.asp：源码内容
							<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
If Not CheckAdmin("JzList") Then
    Server.Transfer("showerr.asp")
    Response.End
End If
'=====================================================================
' 作者声明：转载请保留版权信息，鄙视不要脸的人
'=====================================================================
' 程序名称：蓝宇网络发布系统
' 程序作者：蓝宇 QQ：18159079 ╲、随心゛ QQ：6821845
' 文件名称：Admin_Jz_list.asp
' 更新日期：2007-6-5
'=====================================================================
' 联系方式：Tel：13203117383，QQ：18159079，hi.baidu.com/hezeyu
' 程序开发：蓝宇,╲、随心゛
' 官方网站：蓝宇网络(http://hi.baidu.com/hezeyu)
'=====================================================================
' Copyright 2004-2007 蓝宇 - All Rights Reserved.
'=====================================================================
Dim menu, Rs_type, Sql_Type, Contact
titlename="家族管理"
Admin_header
if request.QueryString("guiqi")="jztop" then'=============固顶家族
dim id,act
id=tee5.CheckStr(request("id"))
act=tee5.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,hits
name=tee5.CheckStr(request("name"))
qq=tee5.CheckStr(request.form("qq"))
addr=tee5.CheckStr(request.form("addr"))
peo=tee5.CheckStr(request.form("peo"))
gameid=tee5.CheckStr(request.form("gameid"))
bulid=request.form("bulid")
master=tee5.CheckStr(request.form("master"))
tel=tee5.CheckStr(request.form("tel"))
web=tee5.CheckStr(request.form("web"))
hits=tee5.CheckStr(request.form("hits"))
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("hits")=hits
		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=tee5.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=tee5.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=tee5.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=tee5.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 = tee5.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=Button type=button value='全选' onClick="CheckAll(this.form)"><input class=Button type=button value='撤消' onClick="CheckCel(this.form)"><input class=Button type=button value='反选' onClick="CheckSel(this.form)"> 
<input class=Button type=submit value=批量固顶> <input class=Button type=button value=批量删除 onclick=chkid()>
</td>
</tr>
</form>
<tr>
<td <%=RightClass%> colspan="8"><%tee5.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%">族长</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=Button type=button value='全选' onClick="CheckAll(this.form)"><input class=Button type=button value='撤消' onClick="CheckCel(this.form)"><input class=Button type=button value='反选' onClick="CheckSel(this.form)"> 
<input class=Button type=submit value=批量审核> <input class=Button 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=formguiqi action=admin_Jz_list.asp?guiqi=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='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=Button type=button value='全选' onClick="CheckAll(this.form)"><input class=Button type=button value='撤消' onClick="CheckCel(this.form)"><input class=Button type=button value='反选' onClick="CheckSel(this.form)"> 
<input class=Button type=submit value=批量解固> <input class=Button type=button value=批量删除 onclick=chkid()>
</td>
</tr>
</form>
</table>
<%end if%>
<%
if request.querystring("action")="jzedit" then
dim jzid
id=tee5.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("请填写家族族长名字！");
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><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 class=Button type=submit value=" 编 辑 " name=submit2>&nbsp;&nbsp;&nbsp;&nbsp;<INPUT class=Button type=reset value=" 清 除 " name=cmdcancel></td>
</tr>
</form>
</table>
<%end if
Admin_footer
CloseConn
%> 

						