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

 1   
 2'==========================================   
 3'ShowMorePage ASP版本   
 4'Version HuangJM1.00   
 5'Code by maomao   
 6'Create Date 2004-09-28   
 7'QQ:5144707   
 8'http://blog.csdn.net/maomaoysq   
 9'Write for my lover:HuangJM   
10'本程序可以免费使用、修改，但请保留以上信息   
11'   
12'Function   
13'本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，   
14'支持URL多个参数:http://www.***.com/***.asp?aa=1&page=9&bb=2   
15'   
16'   
17'Paramers:   
18'PapgeSize 定义分页每一页的记录数   
19'GetCurPageNum 返回当前页的记录集数目此属性只读   
20'GetRS 返回经过分页的Recordset此属性只读   
21'GetConn 得到数据库连接   
22'GetSQL 得到查询语句   
23'Interface of Class   
24'ShowPage 显示分页导航条,唯一的公用方法   
25'   
26'#############类调用样例#################   
27'创建对象   
28'Set hjmPage=new ShowMorePage   
29'得到数据库连接   
30'hjmPage.getconn=conn   
31'sql语句   
32'hjmPage.getsql="select * from shop_books where newsbook=1 order by bookid desc"   
33'设置每一页的记录条数据为20条,默认显示10条   
34'hjmPage.pagesize=20   
35'显示分页信息,可在任意位置调用，可以调用多次   
36'hjmPage.showpage()   
37'set rs=hjmPage.getrs() '返回Recordset 
38
39'显示数据开始   
40'这里就可以自定义显示方式了   
41'for i=1 to hjmPage.GetCurPageNum '当前页的记录数目   
42'response.write left(trim(rs("bookname")),13)&"...."   
43'rs.movenext   
44'next   
45'显示数据结束   
46'set hjmPage=nothing   
47'#############类调用样例#################   
48'================================================ 
49
50Const Btn_First="

<font face="" webdings""="">9</font>

1" '定义第一页按钮显示样式   
2Const Btn_Prev="

<font face="" webdings""="">3</font>

1" '定义前一页按钮显示样式   
2Const Btn_Next="

<font face="" webdings""="">4</font>

1" '定义下一页按钮显示样式   
2Const Btn_Last="

<font face="" webdings""="">:</font>

 1" '定义最后一页按钮显示样式   
 2Const XD_Align="Center" '定义分页信息对齐方式   
 3Const XD_Width="100%" '定义分页信息框大小 
 4
 5Class ShowMorePage   
 6Private Obj_Conn,Obj_Rs,Str_Sql,int_PageSize,Str_Errors,Int_CurPage,Str_URL,Int_TotalPage,Int_TotalRecord 
 7
 8  
 9'================================================   
10'PageSize 属性   
11'设置每一页的分页大小   
12'================================================   
13Public Property Let PageSize(intvalue)   
14If IsNumeric(intvalue) Then   
15int_PageSize=CLng(intvalue)   
16Else   
17Str_Errors=Str_Errors & "PageSize的参数不正确"   
18ShowError()   
19End If   
20End Property   
21Public Property Get PageSize   
22If int_PageSize="" or (not(IsNumeric(int_PageSize))) Then   
23PageSize=10   
24Else   
25PageSize=int_PageSize   
26End If   
27End Property 
28
29'================================================   
30'GetRS 属性   
31'返回分页后的记录集   
32'================================================   
33Public Property Get GetRs()   
34if Int_TotalRecord= 0 then Call GetPage()   
35If not(Obj_Rs.eof and Obj_Rs.BOF) Then   
36if Int_CurPage<>1 then   
37if Int_CurPage-1

<int_totalpage '="Public" (int_curpage-1)*pagesize="" bookmark="Obj_Rs.bookmark" call="" dim="" else="" end="" get="" getcurpagenum()="" getpage()="" getrs="Obj_Rs" if="" int_curpage="" int_pagenum="int_PageSize" int_totalrecord="0" obj_rs.move="" property="" set="" then="" 返回当前页的记录集数目="">Int_TotalPage Then
Int_CurPage=Int_TotalPage
int_PageNum = Int_TotalRecord-(Int_TotalPage-1)*int_PageSize
ElseIf Int_CurPage=Int_TotalPage Then
int_PageNum = Int_TotalRecord-(Int_TotalPage-1)*int_PageSize
End If
GetCurPageNum = int_PageNum
End Property

'================================================
'GetConn 得到数据库连接
'
'================================================
Public Property Let GetConn(sconn)
Set Obj_Conn=sconn
End Property

'================================================
'GetSQL 得到查询语句
'
'================================================
Public Property Let GetSQL(svalue)
Str_Sql=svalue
End Property

'================================================
'Class_Initialize 类的初始化
'初始化当前页的值
'
'================================================
Private Sub Class_Initialize
'========================
'设定一些参数的黙认值
'========================
int_PageSize=10 '设定分页的默认值为10
Int_TotalRecord= 0
'========================
'获取当前面的值
'========================
If request("page")="" Then
Int_CurPage=1
ElseIf not(IsNumeric(request("page"))) Then
Int_CurPage=1
ElseIf CInt(Trim(request("page")))&lt;1 Then
Int_CurPage=1
Else
Int_CurPage=CInt(Trim(request("page")))
End If

End Sub
'================================================
'openRS 打开数据集
'有首页、前一页、下一页、末页、还有数字导航
'
'================================================
Private Sub openRS()
Set Obj_Rs=Server.createobject("adodb.recordset")
Obj_Rs.Open Str_Sql,Obj_Conn,1,1
End Sub
'================================================
'getPage 创建分页导航条
'有首页、前一页、下一页、末页、还有数字导航
'
'================================================
Private Sub GetPage()
If TypeName(Obj_Rs)&lt;&gt;"Object" Then Call openRS()
Int_TotalRecord=Obj_Rs.RecordCount
If Int_TotalRecord&lt;=0 Then
Str_Errors=Str_Errors &amp; "总记录数为零，请输入数据"
Call ShowError()
End If
If Int_TotalRecord mod PageSize =0 Then
Int_TotalPage = Int_TotalRecord \ int_PageSize
Else
Int_TotalPage = Int_TotalRecord \ int_PageSize+1
End If
If Int_CurPage&gt;Int_TotalPage Then
Int_CurPage=Int_TotalPage
End If
End Sub

'================================================
'ShowPage 创建分页导航条
'有首页、前一页、下一页、末页、还有数字导航
'
'================================================
Public Sub ShowPage()
Dim str_tmp
Str_URL = GetUrl()
if Int_TotalRecord= 0 then Call GetPage()
'================================================
'显示分页信息，各个模块根据自己要求更改显求位置
'================================================
response.write ""
str_tmp=ShowFirstPrv
response.write str_tmp
str_tmp=showNumBtn
response.write str_tmp
str_tmp=ShowNextLast
response.write str_tmp
str_tmp=ShowPageInfo
response.write str_tmp
response.write ""
End Sub

'================================================
'ShowFirstPrv 显示首页、前一页
'www.knowsky.com
'================================================
Private Function ShowFirstPrv()
Dim Str_tmp,int_prvpage
If Int_CurPage=1 Then
str_tmp=Btn_First&amp;" "&amp;Btn_Prev
Else
int_prvpage=Int_CurPage-1
str_tmp="<a """="" "&str_url="" "1"="" &="" href="">" &amp; Btn_First&amp;"</a> <a "="" """="" &="" cstr(int_prvpage)="" href="" str_url="">" &amp; Btn_Prev&amp;"</a>"
End If
ShowFirstPrv=str_tmp
End Function

'================================================
'ShowNextLast 下一页、末页
'
'================================================
Private Function ShowNextLast()
Dim str_tmp,int_Nextpage
If Int_CurPage&gt;=Int_TotalPage Then
str_tmp=Btn_Next &amp; " " &amp; Btn_Last
Else
Int_NextPage=Int_CurPage+1
str_tmp="<a "="" """="" &="" cstr(int_nextpage)="" href="" str_url="">" &amp; Btn_Next&amp;"</a> <a """="" "&="" &="" cstr(int_totalpage)="" href="" str_url="">" &amp; Btn_Last&amp;"</a>"
End If
ShowNextLast=str_tmp
End Function

'================================================
'ShowNumBtn 数字导航
'每次显示10页
'================================================
Private Function showNumBtn()
Dim i,str_tmp,m,n
m = Int_CurPage - 4
n = Int_TotalPage
if n&gt;1 then
for i = 1 to 10
if m &lt; 1 then m = 1
if m &gt; n then
exit for
end if
str_tmp=str_tmp &amp; "[<a "="" """="" &="" cstr(i)="" href="" str_url="">"&amp;i&amp;"</a>] "
m = m + 1
next
end if
showNumBtn=str_tmp
End Function

'================================================
'ShowPageInfo 分页信息
'更据要求自行修改
'================================================
Private Function ShowPageInfo()
Dim str_tmp
str_tmp="页次:"∬_CurPage&amp;"/"∬_TotalPage&amp;"页 共"∬_TotalRecord&amp;"条记录 "∫_PageSize&amp;"条/每页"
ShowPageInfo=str_tmp
End Function
'================================================
'GetURL 得到当前的URL
'更据URL参数不同，获取不同的结果
'================================================
Private Function GetURL()
Dim strUrl,tmp_URL,i,j,search_str,result_url
search_str="page="

strUrl=Request.ServerVariables("URL")
strUrl=split(strUrl,"/")
i=UBound(strUrl,1)
tmp_URL=strUrl(i)'得到当前页文件名

str_params=Trim(Request.ServerVariables("QUERY_STRING"))
If str_params="" Then
result_url=tmp_URL &amp; "?page="
Else
If InstrRev(str_params,search_str)=0 Then
result_url=tmp_URL &amp; "?" &amp; str_params &amp;"&amp;page="
Else
j=InstrRev(str_params,search_str)-2
If j=-1 Then
result_url=tmp_URL &amp; "?page="
Else
str_lparams=Left(str_params,j)
str_rparams=right(str_params,len(str_params)-j-1)
if InStr(str_rparams,"&amp;")&lt;&gt;0 then
str_rparams=right(str_rparams,len(str_rparams)-InStr(str_rparams,"&amp;")+1)
else
str_rparams = ""
end if
result_url=tmp_URL &amp; "?" &amp; str_lparams&amp;str_rparams&amp;"&amp;page="
End If
End If
End If
GetURL=result_url
End Function

'================================================
' 设置 Terminate 事件。
'================================================
Private Sub Class_Terminate
Obj_Rs.close
Set Obj_Rs=nothing
Obj_Conn.close
set Obj_Conn = nothing
End Sub
'================================================
'ShowError 错误提示
'================================================
Private Sub ShowError()
If Str_Errors &lt;&gt; "" Then
Response.Write("" &amp; Str_Errors &amp; "")
Response.End
End If
End Sub

End class

1
2  
3<!--#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(" ")
for i=1 to hjmPage.GetCurPageNum '当前页的记录数目
'这里就可以自定义显示方式了

Published At
Categories with Web编程
Tagged with
comments powered by Disqus