回复28楼的
Private Function showNumBtn()
Dim i,str_tmp
For i=1 to int_totalpage
str_tmp=str_tmp & "[<a href=""" & XD_sURL & Cint(i) & """>"&i&"</a>] "
Next
showNumBtn=str_tmp
End Function
28楼的代码中这个部分应该是数字导航部分，
其实28楼的分页代码的ShowPage()编写的不灵活，
把分页代码直接在过程中Response.Write，所以无法控制出现位置。
而我的分页类是把导航部分可以单独提取出来，这样只要在页面初始化代码的下面的任意一个位置都可以用导航功能。
只要在需要的地方调用一下导航方法即可完成，这样做要灵活很多。