<%
dim rst,currentpage,rowcount,i
currentpage = Request.QueryString("currentpage")
if currentpage="" then
currentpage=1
end if
typeid = request.querystring("Typeid")
if typeid="" then
typeid = 1
end if
set rst=server.CreateObject("adodb.recordset")
rst.CursorType = adOpenStatic
rst.PageSize = 6
rst.open "select * from News where typeid="&typeid&" order by id desc",Conn,1,1
rst.AbsolutePage=Cint(currentpage)
%>
ҳ-
<%if rst.bof or rst.eof then
response.write ""
end if
for i=1 to rst.PageSize
if rst.bof or rst.eof then
exit for
end if
%>
