创建一个ASP通用分页类（二）代码部分

<% '===================================================================== 'XDOWNPAGE ASP版本 '版本

<% '===================================================================== 'XDOWNPAGE ASP版本 '版本

<% dim Conn,RS,sqlStr,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd

<% dim Conn,RS,sqlStr,PageSize,RowCount,TotalPages,PageNo,Position,PageBegin,PageEnd

<%''本程序文件名为：Pages.ASP%> <%''包含ADO常量表文件adoVBs.inc，可从"\Program Files\Common Files\System\A

有时候，大家是不是因为写一些重复的代码而感到烦恼呢？由于在做ASP程序时，很多时候都要用到分页，重复作分页程序错误多不说了，而且影响到作程序的积极性，故写一分页函数，方便大家调用。如下：

有时候，大家是不是因为写一些重复的代码而感到烦恼呢？由于在做ASP程序时，很多时候都要用到分页，重复作分页程序错误多不说了，而且影响到作程序的积极性，故写一分页函数，方便大家调用。如下：