<%
dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM R_LEVWORD ORDER BY LDATE DESC",conn,3,2
if rs.eof then rs_now="no" else rs_now="yes"
if rs_now="yes" then
rs.PageSize =3
'计算总记录数
page1=rs.PageCount
rs.AbsolutePage = Page1
for apage=1 to rs.pagesize
recno=(page1-1)*rs.pagesize+apage
rs.movenext
if rs.eof then exit for
next
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page
'如果数据是最后一页，那数字为最后一个
page_end=page*rs.pagesize
if page=rs.PageCount then page_end=recno end if
end if
%>
Suzhou Kelian Precision Machinery Co., Ltd
