(100分)怎么使用“支持多风格变换的ASP分页类”？

他就是把分页写成函数了 晕

说实话他这个类编写得不好,还有很多需要改进得地方.
经过我研究,调用代码如下.

<%
'//创建类对象
Set Paged = New Page
'//指定每页数据量,可以不指定
Paged.Pagenum = 2
'//本页面得地址,必须指定,如果没有参数就要加"?"
Paged.Url = "Css.Asp?"
'//当前页面,必须指定
Paged.Currentpage = Request.Querystring("Page")
'//分页模式模版,必须指定
Paged.Temp = "{N1} {N2} {N3} {N4} || 共:{N8}条记录 {N6}页 当前为第{N5}页 每页{N7}条"

'//执行查询
Call Paged.Exec ("Select * From B", Conn )

'//建立Rs对象
Set Rs = Server.Createobject("Adodb.Recordset")
'//得到分页后得数据
Set Rs = Paged.Pagers
If Rs.Bof Or Rs.Eof Then
Response.Write(Errinfo)
Response.End()
Else
'//显示分页链接
Call Paged.Show(1)
For I = 1 To Paged.Pagenum
If Rs.Eof Then
Exit For
Else
Response.Write("<Br>" & Rs(1) & "<Br>")
Rs.Movenext