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

<%call head()






dim bbsid
bbsid=request.querystring("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 saycardb(""&namebbs&"版务")


dim ydname
if cityon=2 then
ydname="帮派"
else
ydname="论坛"
end if
if cityon=2 then
Response.write "<a href=""bbsadmin.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">管理</a>|"
Response.write "<a href=""adminzone.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">设置</a>|"
Response.write "<a href=""vice.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">版规公告</a>"
else
Response.write "注:版主排名不分先后<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("暂时没有版主<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&""">版规公告</a>"
Response.write "<a href=""bbsadmin.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">管理</a>|"
Response.write "<a href=""bbsadmin.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=""logview.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/>【"&ydname&"搜索】<br/>"&chr(13)
Call bbssearch()

Response.write "<br/><a href=""search.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&ydname&"高级搜索</a>"
Response.write "<br/><a href=""board.asp?bbsid="&bbsid&"&amp;saytk="&saytk&"&amp;sid="&sid&""">返回"&ydname&"</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&""">&gt;&gt;帮派交流</a>"
end if
%>
<!--#include file="fanhui.asp"-->
<%call headsay()%>