一种比较方便的ASP分页程序

    <a href=srch.asp>高级查询</a>
                    </td>
                </tr>
   <tr>
     <td align=center>
       <span class="style45">
       <%
if requestpage-1 mod 10=0 then
 p=(requestpage-1) \ 10
else
 p=(requestpage-1) \ 10
end if
if requestpage=1 then
 response.write "<font face=webdings color=""#FF0000"">9</font>"
else
 response.write "<a href=index.asp?page=1 title=首页><font face=webdings>9</font></a>"
end if
if p*10>0 then response.write "<a href=index.asp?page="&p*10&" title=上十页><font face=webdings>7</font></a>"
response.write "<b>"
for ii=p*10+1 to P*10+10
   if ii=requestpage then
  response.write "<font color=""#FF0000"">"&ii&"</font> "
 else
  response.write "<a href=index.asp?page="&ii&">"&ii&"</a>   "
 end if
 if ii=maxpage then exit for
next
response.write "</b>"
if ii<maxpage then response.write "<a href=index.asp?page="&ii&" title=下十页><font face=webdings>8</font></a>"
if requestpage=maxpage then
 response.write "<font face=webdings color=""#FF0000"">:</font>   "
else
 response.write "<a href=index.asp?page="&maxpage&" title=尾页><font face=webdings>:</font></a>"
end if
response.write"    总共有"&maxpage&"页   共"&totalrecord&"个记录   每页"&shownum&"个"
end if
%>
       </span></td>
   </tr>
</TABLE>
<span class="style45">
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

关键词：一种比较方便的ASP分页程序