<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->

<%call head()

dim bbsid
bbsid=Request("bbsid")
if bbsid="" or Isnumeric(bbsid)=False then
  Call Error("<card title=""出错""><p>ID无效！")
  end if
dim namebbs,cityon
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select name,city from ydbbs where id="&bbsid,conn,1,1
if rs.eof then
  Call Error("<card title=""出错""><p>家族不存在！")
  end if
namebbs=rs("name")
cityon= rs("city")
rs.close
set rs=nothing


Call saycarda(""&namebbs&"管理")



dim ydname
if cityon=2 then
ydname=""&zonene&""
else
ydname="论坛"
end if
if cityon=2 then
Response.write "<a href=""zoneadmin.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&zonene&"设置</a><br/>"
Response.write "<a href=""zonevice.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&zonene&"排版</a>"
else
Response.write "注:"&zonezz&"排名不分先后<br/>"
set rs=server.createobject("ADODB.Recordset")
rs.open"select name,id,datainfo from Users where skey="&bbsid,conn,1,1
if rs.eof then 
response.write("暂时没有"&zonezz&"<br/>")
else
rs.Move(0)
dim z
z=1
do while not rs.EOF
dim sellCount
sellCount=conn.execute("Select count(ID) from [sell] where yc=0 and fid="&rs("id"))(0)
Response.write "<a href='uinfo.asp?id="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&z&"." & ubb(rs("name")) & "</a>"
Response.write "<a href='alist.asp?ids="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'> (帖数"&sellCount&")</a><br/>"
Response.write "签名:"&rs("datainfo")&"<br/>"
z=z+1
rs.movenext
loop
end if
rs.close
set rs=nothing
Response.write "【管理】<a href=""vice.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&zonene&"公告</a>"
Response.write "<a href=""zoneadmin.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">管理</a>|"
Response.write "<a href=""zoneadmin.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">设置</a>|"
end if

Response.write "<br/><a href=""blacklist.asp?Action=bbs&amp;bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&ydname&"监狱</a>|"
Response.write "<a href=""zonelogview.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">操作日志</a>"
response.write "<br/><a href=""bbstoday.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">新帖</a>|"
response.write "<a href=""elist.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">精华</a>|"
Response.write "<a href=""footlist.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">固底</a>"
response.write"<br/>【"&zonene&"搜索】<br/>"&chr(13)
call xlanlj("search.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&"")
response.write "<input name=""keyword"" value="""" title=""输入关键词""/><br/>"
if saytk>1 then
call xltjlj("sear","1")
call xltjlj("sear2","2")
call xltjlj("times","4")
call xltjlj("Action","ok")
call xlanlj1("搜标题")
else
response.write "<anchor>搜标题<go href=""search.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""" method=""post"">"
response.write "<postfield name=""keyword"" value=""$(keyword)""/>"
response.write "<postfield name=""sear"" value=""1""/>"
response.write "<postfield name=""sear2"" value=""2""/>"
response.write "<postfield name=""times"" value=""4""/>"
response.write "<postfield name=""Action"" value=""ok""/>"
response.write "</go></anchor>"&chr(13)
end if
if saytk>1 then
call xlanlj("search.asp?saytk="&saytk&"&amp;sid="&sid&"")
response.write "<input name=""keyword"" value="""" title=""输入关键词""/><br/>"
call xltjlj("sear","2")
call xltjlj("sear2","2")
call xltjlj("times","4")
call xltjlj("Action","ok")
call xlanlj1("内容")
else
response.write "<anchor>内容<go href=""search.asp?saytk="&saytk&"&amp;sid="&sid&""" method=""post"">"
response.write "<postfield name=""keyword"" value=""$(keyword)""/>"
response.write "<postfield name=""sear"" value=""2""/>"
response.write "<postfield name=""sear2"" value=""2""/>"
response.write "<postfield name=""times"" value=""4""/>"
response.write "<postfield name=""Action"" value=""ok""/>"
response.write "</go></anchor>"&chr(13)
end if
if saytk>1 then
call xlanlj("search.asp?saytk="&saytk&"&amp;sid="&sid&"")
response.write "<input name=""id"" value="""" title=""输入关键词""/><br/>"
call xlanlj1("会员ID")
else
response.write "<anchor>会员ID<go href=""uinfo.asp?saytk="&saytk&"&amp;sid="&sid&""" method=""post"">"
response.write "<postfield name=""ID"" value=""$(keyword)""/>"
response.write "</go></anchor><br/>"&chr(13)
end if
Response.write "<a href=""search.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&zonene&"高级搜索</a>"
response.write"<br/><a href=""zoneall.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">返回"&zonene&"</a>"
if cityon=1 then
response.write "<br/><a href=""city.asp?saytk="&saytk&"&amp;sid="&sid&""">&gt;&gt;同城交友</a>"
end if
if cityon=2 then
response.write "<br/><a href=""zone.asp?saytk="&saytk&"&amp;sid="&sid&""">"&zonene&"中心</a>"
end if
%>
<!--#include file="fanhui.asp"-->
<%call headsay()%>