教程

<% Set rs = server.CreateObject("Adodb.RecordSet") sql="Select * from news Order by id desc" rs.open sql,Conn,1,1 if not rs.eof then rs.PageSize=10 page=Request.QueryString("page") If page="" Then page = 1 If not isnumeric(page) Then page = 1 page = Clng(page) If page>rs.PageCount Then page=rs.PageCount If page<=0 Then page=1 rs.AbsolutePage=page for i=1 to 10 if rs.eof Then exit For%> <%rs.MoveNext next end if%>
<%=show(rs.recordCount,10,page,4,"page","curr")%>