asp分页的一个类(2)


        wend
        set PageExecute = MyPage_RS 
    end function

    public function Execute(strSql,strConn,intPageSize)
        conn = strConn
        PageSize = intPageSize
        set Execute = PageExecute(strSql)
    end function

    public function pageDispaly()
        MyPage_Url = ReadMyPage_Url
        firstPageTag = "<font face=webdings>9</font>"  '|<<
        LastPageTag = "<font face=webdings>:</font>"  '>>|
        previewPageTag = "<font face=webdings>7</font>"  '<<
        nextPageTag = "<font face=webdings>8</font>"  '>>
        dim strAnd
        if instr(MyPage_Url,"?")=0 then
            strAnd = "?"
        else
            strAnd = "&"
        end if
        response.write "<table width=100%  border=0 cellspacing=0 cellpadding=0>"
        response.write "<tr>"
        response.write "<td align=left>"
        response.write  "页次:"&MyPage_PageAbsolute&"/"&MyPage_PageTotal&"页 "
        response.write  "主题数:"&MyPage_RecordTotal
        response.write "</td>"
        response.write "<td align=right>"
        response.write  "分页:"
        if MyPage_PageAbsolute>10 then
            response.write  "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo=1'>"&firstPageTag&"</a>"
            response.write  "<a href='"&MyPage_Url&strAnd&"MyPage_PageNo="&(MyPage_PageAbsolute-10)&"'>"&previewPageTag&"</a>"

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

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