蔡鸟提个关于显示纪录数的问题
怎么将
共780条记录   18条/页     第1/44页         1   2   3   4   5   6   7   8   9   10   11   12   13   14   15   16   17   18   19   20   21   22   23   24   25   26   27   28   29   30   31   32   33   34   35   36   37   38   39   40   41   42   43   44    
这种格式改成
共5139条记录   5条/页     第1/1028页         1     2     3     4     5     6     7     8     9     10        

不把纪录页数全显示出来
希望把两部分代码都给我
谢谢哈

------解决方案--------------------
我写的一个分10页的方法

<% '===============================//分页
Sub PagePart(URL)
PartSize = 10
If PageCount < 2 Then Exit Sub
Dim Spage,Epage,P
Spage = Page Mod PartSize
If Page > PartSize Then
If Spage = 0 Then Spage = PartSize
Spage = Page - Spage + 1
Else
Spage = 1
End if
Epage = Spage + PartSize - 1
If Epage > PageCount Then Epage = PageCount
'===============================//
Response.Write( " <table width= '100% ' height=20 align= 'center ' border= '0 ' cellpadding= '0 ' cellspacing= '1 '> <tr> ")
'===============================//
Response.Write( " <td width= '10% ' align= 'center '> ")
If Spage <> 1 Then
Response.Write( "[ <A HREF= ' "&URL& "&page=1 '> <U> 第一页 </U> </A> ] ")
End if
Response.Write( " </td> ")
'===============================//
Response.Write( " <td width= '10% ' align= 'center '> ")
If Page > PartSize Then
Response.Write( "[ <A HREF= ' "&URL& "&page= "&Spage-1& " '> <U> 前 "&partsize& "页 </U> </A> ] ")
End if
Response.Write( " </td> ")
'===============================//
Response.Write( " <td align= 'center '> ")
For P = Spage to Epage
If P = Page Then
Response.Write "[ <FONT COLOR= '#CC0000 '> <b> "&P& " </b> </FONT> ] "
Else
response.write " <a href= ' "&URL& "&page= "&P& " '> [ <U> "&P& " </U> ] </a> "
End if
Next
Response.Write( " </td> ")
'===============================//
Response.Write( " <td width= '10% ' align= 'center '> ")
If Epage < PageCount Then
Response.Write( "[ <A HREF= ' "&URL& "&page= "&Epage+1& " '> <U> 后 "&partsize& "页 </U> </A> ] ")
End if
Response.Write( " </td> ")
'===============================//
Response.Write( " <td width= '10% ' align= 'center '> ")
If Epage <> PageCount Then
Response.Write( "[ <A HREF= ' "&URL& "&am