|
|
|
<%
Const MaxPerPage=9
page=request("page")
if page<>"" then
currentPage=saferequest("page",1)
else
currentPage=1
end if
if request("typeid")<>"" then
typeid=saferequest("typeid",1)
end if
sql="select * from yiren order by rq desc"
set rs=server.CreateObject("Adodb.Recordset")
rs.open sql,conn,1,1
if not rs.eof or not rs.bof then
totalPut=rs.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
showContent
showpage totalput,MaxPerPage,"mxhy.asp"
'showpage totalput,MaxPerPage,"qyyr.asp"
'showContent
else
if (currentPage-1)*MaxPerPage
<%
end if
sub showContent
i=1
j=1
do while not rs.eof
%>
|
<%if i mod 3=0 then response.write" "
i=i+1
Rs.movenext
if j>=MaxPerPage then exit do
j=j+1
loop
%>
<%end sub%> |
|
|