<%big_class="演讲致词"%>

子栏目导航 <%set rs=server.createobject("adodb.recordset") sql="select * from news_type where big_class='"&big_class&"'" rs.open sql,conn,1,1%> <%do while not rs.eof%> <%rs.movenext loop rs.close%> <%=rs("news_type")%>

当前位置：首页 ><%=big_class%> 会员登陆 会员注册  <% page=Cint(Request.QueryString("page")) IF page<1 THEN page=1 Sub WritePage(AbsolutePage,TotalPage) IF AbsolutePage>1 THEN Response.write "[第一页][上一页]" ELSE Response.write "[第一页][上一页]" END IF IF AbsolutePage下一页][最后页]" ELSE Response.write "[下一页][最后页]" END IF END Sub pagesize=20 %> <% set rs=server.createobject("ADODB.Recordset") sql="select * from news where big_class='"&big_class&"'order by news_id desc" rs.open sql,conn,1,1 IF Not rs.eof THEN %> <% rs.PageSize=PageSize rs.AbsolutePage=page IF rs.PageCount 工作报告文章列表   <%=rs("title")%> <%=rs("auther")%> <%=rs("reg_date")%> <% Response.Write "" Response.write "" Response.write " 每页显示"&PageSize&"条信息 当前页"&page&"/"&rs.PageCount&" " WritePage page,rs.PageCount Response.write " " ELSE Response.write "   当前还没有任何信息" END IF %>