自己根据“XDOWNPAGE ASP版本”分页程序修改（添加前十页，后十页功能）

1. <%
2. '===================================================================
3. 'XDOWNPAGE   ASP版本
4. '版本   1.00
5. 'Code by  zykj2000
6. 'Email:   zykj_2000@163.net
7. 'BBS:   http://bbs.513soft.net
8. '本程序可以免费使用、修改，希望我的程序能为您的工作带来方便
9. '但请保留以上请息
10. '
11. '程序特点
12. '本程序主要是对数据分页的部分进行了封装，而数据显示部份完全由用户自定义，
13. '支持URL多个参数
14. '
15. '使用说明
16. '程序参数说明
17. 'PapgeSize      定义分页每一页的记录数
18. 'GetRS       返回经过分页的Recordset此属性只读
19. 'GetConn      得到数据库连接
20. 'GetSQL       得到查询语句
21. '程序方法说明
22. 'ShowPage      显示分页导航条,唯一的公用方法
23. '
24. '===================================================================
26. Const Btn_First="<font face=""webdings"">9</font>"  '定义第一页按钮显示样式
27. Const Btn_Prev="前一页"  '定义前一页按钮显示样式
28. Const Btn_Next="后一页"  '定义下一页按钮显示样式
29. Const Btn_Last="<font face=""webdings"">:</font>"  '定义最后一页按钮显示样式
30. Const XD_Align="Center"     '定义分页信息对齐方式
31. Const XD_Width="100%"     '定义分页信息框大小
33. Class Xdownpage
34. Private XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL
37. '=================================================================
38. 'PageSize 属性
39. '设置每一页的分页大小
40. '=================================================================
41. Public Property Let PageSize(int_PageSize)
42.  If IsNumeric(Int_Pagesize) Then
43.   XD_PageSize=CLng(int_PageSize)
44.  Else
45.   str_error=str_error & "PageSize的参数不正确"
46.   ShowError()
47.  End If
48. End Property
49. Public Property Get PageSize
50.  If XD_PageSize="" or (not(IsNumeric(XD_PageSize))) Then
51.   PageSize=10     
52.  Else
53.   PageSize=XD_PageSize
54.  End If
55. End Property
57. '=================================================================
58. 'GetRS 属性
59. '返回分页后的记录集
60. '=================================================================
61. Public Property Get GetRs()
62.  Set XD_Rs=Server.createobject("adodb.recordset")
63.  XD_Rs.PageSize=PageSize
64.  XD_Rs.Open XD_SQL,XD_Conn,1,1
65.  If not(XD_Rs.eof and XD_RS.BOF) Then
66.   If int_curpage>XD_RS.PageCount Then
67.    int_curpage=XD_RS.PageCount
68.   End If
69.   XD_Rs.AbsolutePage=int_curpage
70.  End If
71.  Set GetRs=XD_RS
72. End Property
74. '================================================================
75. 'GetConn  得到数据库连接
76. '
77. '================================================================ 
78. Public Property Let GetConn(obj_Conn)
79.  Set XD_Conn=obj_Conn
80. End Property
82. '================================================================
83. 'GetSQL   得到查询语句
84. '
85. '================================================================
86. Public Property Let GetSQL(str_sql)
87.  XD_SQL=str_sql
88. End Property
92. '==================================================================
93. 'Class_Initialize 类的初始化
94. '初始化当前页的值
95. '
96. '================================================================== 
97. Private Sub Class_Initialize
98.  '========================
99.  '设定一些参数的黙认值
100.  '========================
101.  XD_PageSize=10  '设定分页的默认值为10
102.  '========================
103.  '获取当前面的值
104.  '========================
105.  If request("page")="" Then
106.   int_curpage=1
107.  ElseIf not(IsNumeric(request("page"))) Then
108.   int_curpage=1
109.  ElseIf CInt(Trim(request("page")))<1 Then
110.   int_curpage=1
111.  Else
112.   Int_curpage=CInt(Trim(request("page")))
113.  End If
114.   
115. End Sub
117. '====================================================================
118. 'ShowPage  创建分页导航条
119. '有首页、前一页、下一页、末页、还有数字导航
120. '
121. '====================================================================
122. Public Sub ShowPage()
123.  Dim str_tmp
124.  XD_sURL = GetUrl()
125.  int_totalRecord=XD_RS.RecordCount
126.  If int_totalRecord<=0 Then
127.   str_error=str_error & "总记录数为零，请输入数据"
128.   Call ShowError()
129.  End If
130.  If int_totalRecord="" then
131.      int_TotalPage=1
132.  Else
133.   If int_totalRecord mod PageSize =0 Then
134.    int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1
135.   Else
136.    int_TotalPage = CLng(int_TotalRecord / XD_PageSize * -1)*-1+1
137.   End If
138.  End If
140.  If Int_curpage>int_Totalpage Then
141.   int_curpage=int_TotalPage
142.  End If
144.  '==================================================================
145.  '显示分页信息，各个模块根据自己要求更改显求位置
146.  '==================================================================
147.  response.write ""
148.  str_tmp=ShowFirstPrv
149.  response.write str_tmp
150. ' str_tmp=showNumBtn
151. ' response.write str_tmp
152.  str_tmp=ShowNextLast
153.  response.write str_tmp
154.  str_tmp=ShowPageInfo
155.  response.write str_tmp
157.  response.write ""
158. End Sub
160. '====================================================================
161. 'ShowFirstPrv  显示首页、前一页、前十页
162. '
163. '
164. '====================================================================
165. Private Function ShowFirstPrv()
166.  Dim Str_tmp,int_prvpage
168.   PageMerCout=10 '每次可翻的最大页数
169.    '取得记录的最大页码段
170.    if int_TotalPage mod PageMerCout=0 then
171.     MaxPageFiled=int_TotalPage/PageMerCout
172.    else
173.     MaxPageFiled=int_TotalPage/PageMerCout+1
174.    end if
175.    '判断当前页所在的页码段
176.    if int_curpage mod PageMerCout =0 then
177.     CurrPageFiled=int_curpage/PageMerCout
178.    else
179.     CurrPageFiled=int_curpage/PageMerCout+1
180.    end if
181.    '取得当前页码段的最大页码和最小页码
182.    MaxPageNo=CurrPageFiled*PageMerCout
183.    MinPageNo=(CurrPageFiled-1)*PageMerCout+1
185.  If int_curpage<=1 Then
186.   str_tmp=Btn_First" "&Btn_Prev " "& " "
187.  Else
188.   if CurrPageFiled<=1 then
189.   int_prvpage=int_curpage-1
190.   str_tmp="<a href="""&XD_sURL & "1" & """>" & Btn_First"</a> <a href=""" & XD_sURL & CStr(int_prvpage) & """>" & Btn_Prev"</a> "
191.   else
192.   int_prvpage=int_curpage-1
193.   str_tmp="<a href="""&XD_sURL & "1" & """>" & Btn_First"</a> <a href="""& XD_sURL &MinPageNo-PageMerCout""">前十页</a> <a href=""" & XD_sURL & CStr(int_prvpage) & """>" & Btn_Prev"</a> "
194.   end if
195.   
196.  End If
198. '=================================
199. '显示数字导航
200.    for i=MinPageNo to MaxPageNo
201.     if i<=int_TotalPage then
202.      if cstr(i)=cstr(int_curpage) then
203.       str_tmp=str_tmp & "<font color=#ff0000>"&i"</font>"" "&Separator" "
204.       else
205.       str_tmp=str_tmp & "[<a href=""" & XD_sURL & CStr(i)""">"&i"</a>]  "  
206.      end if
207.     end if
208.    next
210. '====================================================================
211. ' 下一页、后十页、末页
213.  If Int_curpage>=int_totalpage Then
214.   str_tmp=str_tmp & Btn_Next & " " & Btn_Last
215.  Else
216.   if CurrPageFiled>=MaxPageFiled then
217.     Int_NextPage=int_curpage+1
218.     str_tmp=str_tmp & "<a href=""" & XD_sURL & CStr(int_nextpage) & """>" & Btn_Next"</a> <a href="""& XD_sURL & CStr(int_totalpage) & """>" &  Btn_Last"</a>"
219.   else
220.     Int_NextPage=int_curpage+1
221.     str_tmp=str_tmp & "<a href=""" & XD_sURL & CStr(int_nextpage) & """>" & Btn_Next"</a> <a href=""" & XD_sURL & MaxPageNo+1 & """>后十页</a> <a href="""& XD_sURL & CStr(int_totalpage) & """>" &  Btn_Last"</a>"
222.   end if
223.  End If
225.  ShowFirstPrv=str_tmp
226. End Function
228. '====================================================================
229. 'ShowNextLast  下一页、末页
230. '
231. '
232. '====================================================================
233. Private Function ShowNextLast()
234.  Dim str_tmp,int_Nextpage
236.  ShowNextLast=str_tmp
237. End Function
240. '====================================================================
241. 'ShowNumBtn  数字导航
242. '
243. '
244. '====================================================================
245. Private Function showNumBtn()
246. ' Dim i,str_tmp
247. ' For i=1 to int_totalpage
248. '  str_tmp=str_tmp & "[<a href=""" & XD_sURL & CStr(i) & """>"&i&"</a>] "
249. ' Next
250. ' showNumBtn=str_tmp
253.    
254. End Function
256. '====================================================================
257. 'ShowPageInfo  分页信息
258. '更据要求自行修改
259. '
260. '====================================================================
261. Private Function ShowPageInfo()
262.  Dim str_tmp
263.  str_tmp="  页次:"&int_curpage"/"&int_totalpage"页 共"&int_totalrecord"条记录 "&XD_PageSize"条/每页"
264.  ShowPageInfo=str_tmp
265. End Function
266. '==================================================================
267. 'GetURL  得到当前的URL
268. '更据URL参数不同，获取不同的结果
269. '
270. '==================================================================
271. Private Function GetURL()
272.  Dim strurl,str_url,i,j,search_str,result_url
273.  search_str="page="
275.  strurl=Request.ServerVariables("URL")
276.  Strurl=split(strurl,"/")
277.  i=UBound(strurl,1)
278.  str_url=strurl(i)'得到当前页文件名
280.  str_params=Trim(Request.ServerVariables("QUERY_STRING"))
281.  If str_params="" Then
282.   result_url=str_url & "?page="
283.  Else
284.   If InstrRev(str_params,search_str)=0 Then
285.    result_url=str_url & "?" & str_params "&page="
286.   Else
287.    j=InstrRev(str_params,search_str)-2
288.    If j=-1 Then
289.     result_url=str_url & "?page="
290.    Else
291.     str_params=Left(str_params,j)
292.     result_url=str_url & "?" & str_params "&page="
293.    End If
294.   End If
295.  End If
296.  GetURL=result_url
297. End Function
299. '====================================================================
300. ' 设置 Terminate 事件。
301. '
302. '====================================================================
303. Private Sub Class_Terminate  
304.  XD_RS.close
305.  Set XD_RS=nothing
306. End Sub
307. '====================================================================
308. 'ShowError  错误提示
309. '
310. '
311. '====================================================================
312. Private Sub ShowError()
313.  If str_Error <> "" Then
314.   Response.Write("" & str_Error & "")
315.   Response.End
316.  End If
317. End Sub
318. End class
321. %>