CJJ专用ASP类库中的某个class(7)


      ' 类型:    属性
      ' 目的:    设定或显示URL。
      ' 输入:    a_sURL:   需要分页的文件地址。
      ' 返回:    无
      '*****************************************
      Public Property Let URL(ByVal a_sURL)
          cls_sURL = a_sURL
      End Property

      '*****************************************
      ' 类型:    过程
      ' 目的:    统计总记录数、计算总页数
      ' 输入:    无
      ' 返回:    无
      '*****************************************
      Private Sub Pagination(ByVal a_sStr)
          Dim iPosition,cls_sErrInfo,i,oRS_Temp,lTotalRecord

          If cls_sErrInfo <> "" Then
             Call ShowErrors()
             Exit Sub
          End If

          If cls_oRS.Eof And cls_oRS.Bof Then
             cls_sErrInfo = cls_sErrInfo & "<li>库中无任何记录</li>"
          End If

          '计算总计录数
          Select Case LCase(TypeName(a_sStr))
          Case "string"
               Set oRS_Temp = cls_oConn.Execute(a_sStr)
               lTotalRecord = CLng(oRS_Temp(0).Value)
          Case "integer"
              Select Case (Int(Trim(a_sStr)))
              Case gbl_iPagination_UseRcdCount '使的RecordCount方法进行分页

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/3482.html