%
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
%>