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

</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="http://www.knowsky.com/index.asp?page=1" title=首页><font face=webdings>9</font></a>"

end if

if p*10>0 then response.write "<a href="http://www.knowsky.com/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="http://www.knowsky.com/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="http://www.knowsky.com/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="http://www.knowsky.com/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

%>