<% dim sql sql = "select * from news where class1= '"& trim(class1) & "' order by id desc" set rs=server.createobject("adodb.recordset") rs.open SQL,conn,1,1 rs.MoveFirst rs.pagesize=MaxPerPage howmanyfields=rs.Fields.Count-1 const MaxPerPage=10 '每页数 dim totalPut dim CurrentPage dim TotalPages dim i,j If trim(Request("Page"))<>"" then CurrentPage= CLng(request("Page")) If CurrentPage> rs.PageCount then CurrentPage = rs.PageCount End If Else CurrentPage= 1 End If if rs.eof then response.write "

暂时没有相关新闻！

　

<% i=i+1 rs.movenext loop %> <% k=currentPage if k<>1 then response.write "["+"首页] " response.write "["+"上一页] " else Response.Write "[首页] [上一页]" end if if k<>n then response.write "["+"下一页] " response.write "["+"尾页] " else Response.Write "[下一页] [尾页]" end if %> <% end if rs.close set rs=nothing end if %>

	【2008】6号  关于成立北京二商集团奥运驾驶员志愿者临时团支部的决定
	【2008】5号  关于在集团奥运驾驶员志愿者中成立临时党支部的请示
	【2008】4号 关于表彰2007年度北京二商集团青年岗位能手的决定
	【2008】3号  关于申报2007年度青年岗位能手的通知
	【2008】2号  关于印发《北京二商集团团委工作2007年总结及2008年计划》的通知
	【2008】1号  关于印发共青团北京二商集团有限责任公司第三次代表大会工作报告的通知

>>>返回首页