页面ID无效！") end if set rs=Server.CreateObject("ADODB.Recordset") rs.open"select * from ydbbs where ID="&id,conn,1,1 If rs.eof Then Call Error("

不存在的记录！") end if response.write"

" rs.close set rs=nothing response.write"[添加菜单]
" 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="adminbbsll.asp?ID="&ID&"&sid="&sid&"&" 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="相片" if rs("lx")>90 then ydbbsname="系统" %> &p=<%=rs("lx")%>&typeID=<%=rs("prentID")%>&sid=<%=sid%>"><%=i+(page-1)*PageSize%>.[管理]<%=rs("pid")%>.<%=rs("name")%>[<%=ydbbsname%>]
<% rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页,共"&Count&"条
跳到该页
" Else Response.write "暂时没有菜单！
" end if rs.close set rs=nothing conn.close set conn=nothing response.write"----------
" response.write"
[删除页面]" response.write"
[编辑页面]" response.write"
[功能设计]" %>