|
|
<%
strSQL="SELECT * from Info where typeup='"& typecome &"'order by ID desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Myconn,1,1
if rs.recordcount<>0 then
rs.pagesize=20
page=request.QueryString("page")
if cint(page)>cint(rs.pagecount) then page=rs.pagecount
if page="" then page=1
page=cint(page)
session("page")=page
rs.move(page-1)*rs.pagesize '定位记录
i=20
do while not rs.eof and i>0
%>
|
|
<%
i=i-1
rs.movenext
loop
%>
|
