% dim rs,conn set rs=server.createobject("adodb.recordset") conn ="driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath("linux.mdb") %>
<%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 %>