asp最常用的分页函数

erpage=0 then
n=totalnumber\maxperpage
else
n=totalnumber\maxperpage+1
end if
%>
<div align="center">共有<%=totalnumber%>/<%=maxperpage%>条，

当前页<%=currentpage%>/<%=n%>
<%if currentpage<2 then%>
[首页] []
<%else%>
<a href="<%=filename%>"><font color="red">[首页]</font></a> <a href="<%=filename%>&page=<%=currentpage-1%>"><font color="red">[]</font></a>
<%end if%><% if n-currentpage<1 then%>
[] [尾页]<%else%><a href="<%=filename%>&page=<%=currentpage+1%>"><font color="red">[]</font></a> <a href="<%=filename%>&page=<%=n%>"><font color="red">[尾页]</font></a>
<%end if%>
转到：<select name="dd" class="sle"

onChange="location.href=this.options[this.selectedIndex].value">
<%for j=1 to n
if currentpage=j then
%><option value="<%=filename%>&page=<%=j%>" selected><%=j%></option>
<%
else
%>
<option value="<%=filename%>&page=<%=j%>"><%=j%></option>
<%
end if
next
%>
</select>
</div> </td>
</tr>
<%
end function
%>
<%
function showpage1(totalnumber,maxperpage,filename)
%>
<tr>
<td height="20" colspan="9" bgcolor="#D6DFF7">
<%
dim b
if totalnumber mod maxperpage=0 then
b=totalnumber\maxperpage
else
b=totalnumber\maxperpage+1
end if
%>
<div align="center">共有<%=totalnumber%>/<%=maxperpage%>条，

当前页<%=currentpage%>/<%=b%>
<%
dxystart=currentpage-5
if dxystart<1 then dxystart=1
dxyend=currentpage+5
if dxyend>b then dxyend=b
for dxy=dxystart to dxyend
if dxy=currentpage then
response.write "[<a href="&filename&"&page="&dxy&">"&"<font color=red>"&dxy&"</font>"&"</a>]"&" "
else
response.write "[<a href="&filename&"&page="&dxy&">"&dxy&"</font>"&"</a>]"&" "
end if
next
%>
</div> </td>
</tr>
<%
end function
%>
</form>
</table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>