<% Dim strPagetitle bh=request("bh") set oRs=server.CreateObject("adodb.recordset") oRs.open "select bt,id,tim,nei from new where id="&bh,conn,1,1 if bh="77" then strPagetitle = "环保袋,无纺布袋新前景" else strPagetitle = oRs("bt") end if %> <%= strPagetitle %>_公司动态_<%= cna %>
 您现在的位置:首页 > 公司动态
   公司动态  
  <%if bh="" then%>
  <% rs.open "select bt,id,tim from new order by id desc",conn,1,1 if not rs.eof then pagesize = 20 rs.PageSize=pagesize if not isnumeric(pageno) then pageno = 1 else pageno = cint(pageno) end if if pageno < 1 then pageno = 1 pagecount = rs.PageCount reccount = rs.RecordCount if pagecount > 0 then rs.AbsolutePage = pageno i=1 do while not rs.EOF and i<=pagesize %> <% i = i + 1 rs.MoveNext loop end if rs.Close %>
"><%=rs("bt")%> <%=rs("tim")%>
 
上一页 <%=pageno%>/<%=pagecount%> 下一页
 
<%else%>
 
<%= strPagetitle %>   <%=oRs("tim")%>
<%=oRs("nei")%>
返回新闻列表
 
上一页: <%rs.open "select bt,id from new where id<"&bh&" order by id desc",conn,1,1%> "><%=left(rs("bt"),13)%>... <%rs.close%>    下一页: <%rs.open "select bt,id from new where id>"&bh&" order by id asc",conn,1,1%> "><%=left(rs("bt"),13)%> <%rs.close%>
 
 
<%end if%>
 
<%oRs.Close%>