<% IF KEY<>0 then Call Error("你的权限不足！") end if %> [添加栏目]
--------
<% set rs=server.createobject("adodb.recordset") sql = "select * from class where parent=0 order by pid asc" rs.open sql,conn,1,1 If Not rs.eof Then Dim PageSize,i PageSize=10 Dim Count,page,pagecount,gopage gopage="class.asp?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 %>&lx=<%=rs("lx")%>">[管理]><%=rs("pid")%>.<%=ubb1(left(rs("class"),20))%>
<% 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 %>-----------
[栏目重排]
[添加栏目]
[后台管理]
报时: <%=String(2-Len(hour(now)),"0") & hour(now) %>:<%=String(2-len(minute(now)),"0") & minute(now) %>