<% dim i,j dim ArticleID dim Title dim NewsClassName dim PurviewChecked dim strAdmin,arrAdmin PurviewChecked=false Title=Trim(request("Title")) ArticleID=Request("ArticleID") NewsClassName=Trim(request("NewsClassName")) strFileName="News.asp?NewsClassName=" & NewsClassName if request("page")<>"" then currentPage=cint(request("page")) else currentPage=1 end if sql="select * from News where ArticleID>0" if Title<>"" then sql=sql & " and title like '%" & Title & "%' " end if if NewsClassName<>"" then sql=sql & " and NewsClassName='" & NewsClassName & "' " else end if sql=sql & " order by articleid desc" Set rs= Server.CreateObject("ADODB.Recordset") rs.open sql,conn,1,1 %>

会议时间：2007年4月10日-12日 会议地点：上海浦东．新国际博览中心 地址：上海市浦东龙阳路2345号 媒体支持： 中国玻璃钢综合信息网 主办单位： 世界风能协会 中国农业机械工业协会风力机械分会 中国电机工程学会风力与潮汐发电专业委员会 承办单位： 上海跨国采购中心 上海德瑞展览策划有限公司 协办单位： 上海电气 <% if rs.eof and rs.bof then response.write"暂无此类新闻，相关新闻正在整理中..." end if %> <% if rs.eof and rs.bof then response.write "共找到 0 条新闻" else totalPut=rs.recordcount if currentpage<1 then currentpage=1 end if if (currentpage-1)*20>totalput then if (totalPut mod 20)=0 then currentpage= totalPut \ 20 else currentpage= totalPut \ 20 + 1 end if end if response.Write "共找到 " & totalPut & " 条新闻" %> <% if currentPage=1 then MaxPerPage=20 showContent showpage strFileName,totalput,MaxPerPage,true,false,"条新闻" else if (currentPage-1)*20 <% sub showContent dim i i=0 %> <%do while not rs.eof%> <% i=i+1 if i>=20 then exit do rs.movenext loop %> 序号 标题 发布日期 <%=rs("articleid")%> "><%=rs("title")%>  <%= FormatDateTime(rs("UpdateTime"),2) %> <% end sub %>

	《中华人民共和国增值电信业务经营许可证》编号：鲁 B2-20041020号　版权所有 中国玻璃钢综合信息网 客服中心：0534-2666069 2668773 2662856 2669268 2220116　传真：0534-2666069　信箱：serve@cnfrp.net Copyright &xcopy 2002-2005 CNFRP.NET All Rights Reserved