<%set rs=server.CreateObject("ADODB.Recordset")
strsql="select * from xilie order by xilieid desc"
rs.open strsql,conn,1,2
rs.pagesize=12
n=rs.pagecount
if request("page")="" or isempty(request("page")) or cint(request("page"))<1 then
page=1
else
if cint(request("page"))>=n then
page=n
else
page=cint(request("page"))
end if
end if
if not rs.eof then
rs.AbsolutePage=page
end if
counts=rs.recordcount
for i=0 to 11
if rs.eof then
exit for
end if
if i mod 4=0 and i<>0 then
response.Write(" ")
end if
%>
|
|
<%rs.movenext
next
if i mod 4<>0 then
for j=0 to 3-(i mod 4)
response.Write(" | ")
next
end if
call closedata()
%>
|