|
 |
<%
if rs.eof then exit for
rs.movenext
next
end sub
function showpage(totalnumber,maxperpage,filename)
dim n
response.write("")
response.write("")
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
if CurrentPage<2 then
response.write " | "
response.write " | "
else
response.write " | "
response.write " | "
end if
for r=1 to n
if r=cint(currentpage) then
response.write("")
response.Write(""&r&"")
response.write (" | ")
if r<>n then response.Write("| | ")
else
response.write("")
response.Write ""&r&""
response.write (" | ")
if r<>n then response.Write("| | ")
end if
next
if n-currentpage<1 then
response.write " | "
response.write " | "
else
response.write " | "
response.write " | "
end if
response.write ("
| ")
end function
%>
|
|
