关于分页出的一个问题,大家看看哪有问题?
<%


Const   Btn_First= " <font   face= " "webdings " "> 9 </font> "     '定义第一页按钮显示样式
Const   Btn_Prev= " <font   face= " "webdings " "> 3 </font> "     '定义前一页按钮显示样式
Const   Btn_Next= " <font   face= " "webdings " "> 4 </font> "     '定义下一页按钮显示样式
Const   Btn_Last= " <font   face= " "webdings " "> : </font> "     '定义最后一页按钮显示样式
Const   XD_Align= "Center "           '定义分页信息对齐方式
Const   XD_Width= "100% "           '定义分页信息框大小

Class   Xdownpage
Private   XD_PageCount,XD_Conn,XD_Rs,XD_SQL,XD_PageSize,Str_errors,int_curpage,str_URL,int_totalPage,int_totalRecord,XD_sURL


'=================================================================
'PageSize   属性
'设置每一页的分页大小
'=================================================================
Public   Property   Let   PageSize(int_PageSize)
  If   IsNumeric(Int_Pagesize)   Then
    XD_PageSize=CLng(int_PageSize)
  Else
    str_error=str_error   &   "PageSize的参数不正确 "
    ShowError()
  End   If
End   Property
Public   Property   Get   PageSize
  If   XD_PageSize= " "   or   (not(IsNumeric(XD_PageSize)))   Then
    PageSize=10          
  Else
    PageSize=XD_PageSize
  End   If
End   Property

'=================================================================
'GetRS   属性
'返回分页后的记录集
'=================================================================
Public   Property   Get   GetRs()
  Set   XD_Rs=Server.createobject( "adodb.recordset ")
  XD_Rs.PageSize=PageSize
  XD_Rs.Open   XD_SQL,XD_Conn,1,1
  If   not(XD_Rs.eof   and   XD_RS.BOF)   Then
    If   int_curpage> XD_RS.PageCount   Then
      int_curpage=XD_RS.PageCount
    End   If
    XD_Rs.AbsolutePage=int_curpage
  End   If
  Set   GetRs=XD_RS
End   Property

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

'================================================================
'GetSQL       得到查询语句
'
'================================================================
Public   Property   Let   GetSQL(str_sql)
  XD_SQL=str_sql
End   Property

 

'==================================================================
'Class_Initialize   类的初始化
'初始化当前页的值
'
'==================================================================  
Private   Sub   Class_Initialize
  '========================
  '设