超级ASP大分页_我的类容我做主(6)

End If 
End Sub 
End class  
%> 

<!--#include file="include/function.asp"--> 
<% 
dim conn 
call dbconnect() 
'#############类调用样例################# 
'创建对象 
Set hjmPage=new ShowMorePage 
'得到数据库连接 
hjmPage.getconn=conn 
'sql语句 
hjmPage.getsql="select Top 6 * from shop_books where newsbook=1 order by bookid desc" 
'设置每一页的记录条数据为5条 
hjmPage.pagesize=2 
set rs=hjmPage.getrs() '返回Recordset 
'显示分页信息，这个方法可以，在set rs=hjmPage.getrs()以后,可在任意位置调用，可以调用多次 
hjmPage.showpage() 
'显示数据 
Response.Write("<br/>") 
for i=1 to hjmPage.GetCurPageNum '当前页的记录数目 
'这里就可以自定义显示方式了 
%>