response.write str_tmpstr_tmp=ShowPageInforesponse.write str_tmpresponse.write ""end Sub到这里类的功能才算完整（为了节省版面，我有些方法没有放上去，再下面附上全部完整代码）写一个简单页面测试一下
<% '把分页类包含进来set conn = server.CreateObject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq=" & server.Mappath("pages.mdb")'#############类调用样例#################'创建对象Set mypage=new xdownpage'得到数据库连接mypage.getconn=conn'sql语句mypage.getsql="select * from [test] order by id asc"'设置每一页的记录条数据为5条mypage.pagesize=5'返回Recordsetset rs=mypage.getrs()'显示分页信息，这个方法可以，在set rs=mypage.getrs()以后,可在任意位置调用，可以调用多次
