% Dim page page=ReplaceBadChar(request("page")) Sqlstr = "Select * From [News] Where News_Class=1 order by News_ID desc" Set Rec = Server.CreateObject("adodb.recordset") Rec.open Sqlstr,conn,1,1 '----------分页设置---------------- MaxPageRcd = 15 Rec.pagesize = MaxPageRcd if page<>"" and IsNumeric(page) then currentPage=page Rec.absolutepage=CurrentPage else currentPage=1 end if %>
|
|||||||||||||||||||||||||||||||||||