请选择要移动到的页面:
<%id= request.QueryString("id") p= request.QueryString("p") if id="" or IsNumeric(id)=False then Call Error("ID无效！") end if id= request.QueryString("id") if id="" or IsNumeric(id)=False then id=0 set rs=server.createobject("adodb.recordset") sql = "select * from ydbbs Where lx=3" rs.open sql,conn,1,1 If Not rs.eof Then PageSize=10 Dim Count,page,pagecount,gopage,parent gopage="movebbs.asp?sid="&sid&"&id="&id&"&ids="&ids&"&" 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 %> "><%=ubb1(rs("Name"))%>[">选择]
<% rs.moveNext Next if page-pagecount<0 then response.write "下页" if page>1 then response.write "上页" if pagecount>1 then response.write "
"&page&"/"&pagecount&"页>>" Else %> (没有栏目) <%end if rs.close set rs=nothing conn.close set conn=nothing%>
[移到社区首页]
----------
[返回上级]
[功能设计]
[后台管理]