asp最常用的分页函数

"datetime")
yname=year(datetime)
mname=month(datetime)
if len(mname)<2 then mname="0"&mname
dname=month(datetime)
if len(dname)<2 then dname="0"&dname
foldername=yname&mname
%>
<td bgcolor="#D6DFF7"><div align="center"><a href="<%=htmlfolder%><%=foldername%>/<%=rs("id")%>.htm" title="查看生成的静态页面" target="_blank"><%=rs("datetime")%></a></div></td>
<td bgcolor="#D6DFF7"><div align="center"><%=rs("hits")%></div></td>
<td bgcolor="#D6DFF7"><div align="center"><%=rs("author")%></div></td>
<td bgcolor="#D6DFF7"><div align="center"><a href="news_edit.asp?dxy_id=<%=rs("id")%>">修改</a></div></td>
<td bgcolor="#D6DFF7"><div align="center"><a href="javascript:delxx(<%=rs("id")%>)">删除</a></div></td>
<td bgcolor="#D6DFF7"><div align="center"><a href="javascript:makehtml(<%=rs("id")%>)">生成(<a href="javascript:void(null)" onClick="window.open(''cshengcheng.asp?id=<%=rs("id")%>'','''',''width=0,height=0'')"><%=rs("shengcheng")%>)</a></div></td>
</tr>
<%
i=i+1
if i>maxperpage then exit do
rs.movenext
loop
%>
<tr>
<td height="20" class="blueback2"><div align="center">ID</div></td>
<td class="blueback2"><div align="center"><a href="javascript:selectall()"><font color="#FFFFFF">选择</font></a></div></td>
<td class="blueback2"><div align="center">信息标题</div></td>
<td class="blueback2"><div align="center">更新日期</div></td>
<td class="blueback2"><div align="center">点击</div></td>
<td class="blueback2"><div align="center">添加人</div></td>
<td class="blueback2"><div align="center">编辑</div></td>
<td class="blueback2"><div align="center">删除</div></td>
<td class="blueback2"><div align="center">生成</div></td>
</tr>
<%
end sub
%>

<tr>
<td height="20" colspan="9" bgcolor="#D6DFF7"><label>
<input type="button" name="dxydo" value="全选" onClick="javascript:selectall()">
<input type="submit" name="dxydo" value="删除" onClick="{if(confirm(''确定要删除选择的信息吗'')){document.formselect.submit();return true;}return false;}">
<input type="submit" name="dxydo" value="生成">
<input type="submit" name="dxydo" value="移动">
</label></td>
</tr>
<%
function showpage(totalnumber,maxperpage,filename)
%>
<tr>
<td height="20" colspan="9" bgcolor="#D6DFF7">
<%
dim n
if totalnumber mod maxp