<% dim rs,conn set rs=server.createobject("adodb.recordset") conn ="driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("linux.mdb") %> OPEN-LAB LINUX培训考试中心,上海LINUX,北京LINUX,LINUX认证, LINUX培训, LINUX考试

 

 

<%sql="select * from news where type=2 order by id desc" rs.open sql,conn,1,3 dim i const MaxPerPage = 20 '每页显示的最大条数 dim totalput '总记录 dim CurrentPage '当前页次 dim TotalPages '总页数 %> <% if not rs.eof then i=0 do while not rs.eof %>

<% i=i+1 if i >= MaxPerpage then exit do rs.movenext loop end if %>
· "> <% if len(rs("title"))>30 then response.Write left(rs("title"),28)&".." else response.Write rs("title") end if %>
             
   共有 <% =totalPut %> 条 <% 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 %> 页次: <% =CurrentPage %> / <% =rs.PageCount %> 页  <% =MaxPerPage %> 条/页