<!--#include file="../Inc.asp"-->
<!--#include file="../ydzq.asp"-->
<%call head()
id=request("id")
if ID="" or IsNumeric(ID)=False then
if saytk>1 then
  Call Error("<title>出错</title></head><body><body bgcolor="""&yanse1&"""><p>ID无效！")
else
  Call Error("<card title=""出错""><p>页面ID无效！")
  end if
end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from ydbbs where ID="&id,conn,1,1
If rs.eof Then
if saytk>1 then
  Call Error("<title>出错</title></head><body><body bgcolor="""&yanse1&"""><p>不存在的记录！")
else
  Call Error("<card title=""出错""><p>不存在的记录！")
  end if
end if
call saycardd(""&rs("name")&"")
rs.close
set rs=nothing
response.write"<a href=""adminaddbbs.asp?typeid="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">[添加菜单]</a><br/>"

dim ydbbsname
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from ydbbs where prentID="&id&" order by pid asc",conn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10						
	Dim Count,page,pagecount,gopage			
	gopage="adminbbs.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;"
	Count=rs.recordcount	
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize
        if page>pagecount then page=pagecount


	rs.move(pagesize*(page-1))					
	For i=1 To PageSize     						
	If rs.eof Then Exit For	
if rs("lx")=4 then ydbbsname="WML"
if rs("lx")=1 then ydbbsname="论坛"
if rs("lx")=2 then ydbbsname="链接"
if rs("lx")=0 then ydbbsname="UBB"
if rs("lx")=10 then ydbbsname="新贴"
if rs("lx")=20 then ydbbsname="动态"
if rs("lx")=30 then ydbbsname="精华"
if rs("lx")=40 then ydbbsname="相片"
%>
<a href="admineditbbsbk.asp?id=<%=rs("id")%>&amp;p=<%=rs("lx")%>&amp;typeID=<%=rs("prentID")%>&amp;sid=<%=sid%>&amp;saytk=<%=saytk%>"><%=i+(page-1)*PageSize%>.[管理]</a><%=rs("pid")%>.<%=rs("name")%>[<%=ydbbsname%>]<br/>
<%
	rs.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/>"&page&"/"&pagecount&"页,共"&Count&"条<br/>"
if saytk=1 then
response.write "<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳到该页</a><br/>"
end if
Else
Response.write "暂时没有菜单！<br/>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"----------<br/>"
response.write"<br/><a href=""adminbbsdel.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">[删除页面]</a>"
response.write"<br/><a href=""admineditbbsbk.asp?id="&id&"&amp;p=3&amp;sid="&sid&"&amp;saytk="&saytk&""">[编辑页面]</a>"
response.write"<br/><a href=""adminbbs.asp?sid="&sid&"&amp;saytk="&saytk&""">[同城设计]</a>"
%><!--#include file="fanhui.asp"-->
<%response.write""
call headsay()%>
