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

          End If
     End Sub

      '*****************************************
      ' 类型：    过程
      ' 目的：    显示分页信息
      ' 输入：    无
      ' 返回：    无
      '*****************************************
      Public Sub Pages(ByVal a_sStr)
          Dim strPages,k,intTemp,intTemp1
          Dim sResult

          If Not IsNone(cls_sErrInfo) Then
              Call ShowErrors()
          End If

          '计算总页数及总记录数
          Call Pagination(a_sStr)

          If cls_lTotalPage = 1 Then Exit Sub
          sResult = sResult & "<table class=""clsShowPage"">" & Chr(10)
          sResult = sResult & "  <tr>" & Chr(10) & "    <td>" & Chr(10)
          sResult = sResult & "      <table width=""100%"">" & Chr(10)
          sResult = sResult & "         <tr>" & Chr(10) & "           <td class=""PageText"">" & Chr(10)

          If cls_lTotalPage >= 1 Then

                  If cls_lPageNo <= 1 Then
                      sResult = sResult & "首页 前页 <a href=""" & cls_sURL & cls_lPageNo+1 & """>后页</a> <a href=""" & cls_sURL & cls_lTotalPage & """>末页</a>" & Chr(10)