|
|
|
<%
set rs=server.CreateObject("ADODB.RecordSet")
rs.open "select * FROM news WHERE lei="&le&" ORDER BY id DESC",conn,1,1%>
<%If RS.RecordCount=0 then
response.write "| 无任何信息记录! | "
else
%>
<%
PgSz=15
RS.PageSize = Cint(PgSz) '设定PageSize属性的值
Total=INT(RS.recordcount / PgSz * -1)*-1 '计算可显示页面的总数
PageNo=int(Request("pageno"))
if PageNo="" Then
PageNo =1
elseif PageNo<=0 then
PageNo=1
end if
if PageNo > Total then
PageNo=Total
end if
%>
|
<%RS.AbsolutePage = PageNo
RowCount = RS.PageSize
while rs.eof <> true and rowcount > 0%>
<%RowCount=RowCount-1
rs.Movenext
wend
rs.close
Conn.Close
set rs = nothing
set Conn = nothing%>
<%end if%>
|
|
|
