技 术 支 持
 
经 验 交 流
 
<% for i=1 to rs.PageSize %> <% rs.movenext if rs.EOF then Exit For i=i+1 %> <% rs.movenext:if rs.EOF then Exit For next %>
<% sql="select * from gg order by id desc " set rs=Server.CreateObject("ADODB.recordset") rs.CursorType = 3 rs.Open sql,conn rs.PageSize =30 '每页记录条数 result_num=rs.RecordCount '记录总数 if result_num<=0 then if search="" then word="目前还没有记录!" else word="没有查到符合条件的记录!" end if else maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page end if %> <% if result_num<=0 then %>
<% =word %>
<% else %>
  标题 发布日期
" target="_blank" class=wa02> <% =HtmlOut(rs("biaoti")) %> <% =HtmlOut(rs("issue")) %>
" target="_blank" class=wa02> <% =HtmlOut(rs("biaoti")) %> <% =HtmlOut(rs("issue")) %>
<% call LastNextPage(maxpage,page,"width=100% ","

") %> <% end if %>

常州市星网计算机技术有限公司 ©版权所有      联系电话:0519-5125163、5125169