<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim class1 class1 = request.QueryString("class1") %> 经验交流
 
团委发文

图片新闻

领导讲话
 

 

 

经  验  交  流

   
分享经验   交流思想   相互关爱   共步成功
<% 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 "

暂时没有相关新闻!

" else totalPut=rs.recordcount if CurrentPage<>1 then if (currentPage-1)*MaxPerPage  
<% if rs.recordcount=0 then response.Write("
暂时没有相关新闻!
") else i=0 do while not rs.eof and i <% 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 %>

北京二商集团2007年度 团干培训班第四组发言稿

北京二商集团2007年度 团干培训班第三组发言稿

北京二商集团2007年度 团干培训班第二组发言稿

北京二商集团2007年度 团干培训班第一组发言稿

<%=rs("title")%> 2006年度集团级青年文明号材料之四:北京月盛斋清真食品有限公司生产部煮制班事迹

<%=rs("title")%> 2006年度集团级青年文明号材料之三:北京王府井富豪宾馆保卫部事迹

<%=rs("title")%> 2006年度集团级青年文明号材料之二:北京二商希杰公司西区销售公司业务室事迹

<%=rs("title")%> 2006年度集团级青年文明号材料之一:宫颐府食品厂车间面包班特殊岗位事迹

<%=rs("title")%> <%=rs("createdate")%>王致和食品厂奥运志愿者倡议书

<%=rs("title")%> “青春永铸王致和”青年合作活动介绍

<%=rs("title")%> <%=rs("createdate")%>开拓创新 大胆实践 用现代科技振兴传统老字号——全国青年文明号代表发言

版权所有:共青团北京二商集团委员会
地址:中国 北京市宣武区槐柏树街2号   邮编:100053
电话:010-88011417 传真:010-63011603