ute_class_table.inc

UTE - (U)niversal ASP (T)able (E)ditor 万能数据管理（管理后台）

    else
        sNavPage = sNavPage & "<span class=""ute_navigation_passive"">&gt;&gt;</span>" & vbCrLf
    end if

    sNavPage = sNavPage & _
        "</td>" & vbCrLf & _
        "</tr></table>" & vbCrLf


    ' statistics
    sNavStatistic = Replace(STR_RECORDS,   "%1", CStr(nFrom))
    sNavStatistic = Replace(sNavStatistic, "%2", CStr(nTo))
    sNavStatistic = Replace(sNavStatistic, "%3", CStr(m_RS.RecordCount))


    ' page size
    sNavPageSize = _
        "<table><tr>" & vbCrLf & _
        "<td class=""ute_navigation"">" & STR_REC_COUNT & "</td>" & vbCrLf & _
        "<td class=""ute_navigation"">" & vbCrLf

    sNavPageSize = sNavPageSize & "<select class=""ute_navigation"" name=""psize"" onChange=""jumpPage('parent', this, 0)"">" & _
                    vbCrLf 

    s = Request.QueryString
    if m_RS.RecordCount > 10 then
        s = getLink(m_sUTEScript, s, sParamPage,     "1")
        s = getLink(m_sUTEScript, s,  sParamPageSize, "10")
        if b10 then
            sNavPageSize = sNavPageSize & "<option value='" & s & "'>10</option>" & vbCrLf
        else
            sNavPageSize = sNavPageSize & "<option value='" & s & "' selected>10</option>" & vbCrLf
        end if
    end if
        
    if m_RS.RecordCount > 25 then
        s = getLink(m_sUTEScript, s, sParamPage,     "1")
        s = getLink(m_sUTEScript, s,  sParamPageSize, "25")
        if b25 then
            sNavPageSize = sNavPageSize & "<option value='" & s & "'>25</option>" & vbCrLf
        else
            sNavPageSize = sNavPageSize & "<option value='" & s & "' selected>25</option>" & vbCrLf
        end if
    end if
        
    if m_RS.RecordCount > 50 then
        s = getLink(m_sUTEScript, s, sParamPage,     "1")
        s = getLink(m_sUTEScript, s,  sParamPageSize, "50")
        if b50 then
            sNavPageSize = sNavPageSize & "<option value='" & s & "'>50</option>" & vbCrLf
        else
            sNavPageSize = sNavPageSize & "<option value='" & s & "' selected>50</option>" & vbCrLf
        end if
    end if

    if m_RS.RecordCount <> 0 then
        s = getLink(m_sUTEScript, s, sParamPage,     "1")
        s = getLink(m_sUTEScript, s,  sParamPageSize, CStr(m_RS.RecordCount))
        if bAll then
            sNavPageSize = sNavPageSize & "<option value='" & s & "'>" & STR_ALL & "</option>" & vbCrLf
        else
            sNavPageSize = sNavPageSize & "<option value='" & s & "' selected>" & STR_ALL & "</option>" & vbCrLf
        end if
    end if

    sNavPageSize = sNavPageSize & "</select>" & vbCrLf

    sNavPageSize = sNavPageSize & _
        "</td>" & vbCrLf & _
        "</tr></table>" & vbCrLf


    ' build everything
    sValue = _
        "<table class=""ute_table"">" & vbCrLf & _
        "<tr><td class=""ute_navigation"" colspan=""" & CStr(nColCount) & """>" & vbCrLf & _
        "<table width=""100%""><tr>" & vbCrLf & _
        "<td width=""33%"" class=""ute_navigation"" align=""left"">"   & sNavPage      & "</td>" & vbCrLf & _
        "<td width=""33%"" class=""ute_navigation"" align=""center"">" & sNavStatistic & "</td>" & vbCrLf & _
        "<td width=""33%"" class=""ute_navigation"" align=""right"">"  & sNavPageSize  & "</td>" & vbCrLf & _
        "</tr></table>" & vbCrLf & _
        "</td></tr>" & vbCrLf & _
        "</table>"

    getNavigation = sValue

End Function


''--------------------------------------------------------------------------
'' Name:     getToolBar
''           ==========
'' 
'' Returns HTML code for the toolbar on top of the table.
''
'' Parameter: 
''      none
''
'' return value:
''      string      HTML code
''
''--------------------------------------------------------------------------
Private Function getToolBar()
    Dim s, sValue

    sValue = ""

    if m_bListTables or _
       m_bFilters or _
       m_bShowExportLink or _
       m_bShowSQL or _
       m_bShowDefLink then

        sValue = _
            "<table class=""ute_table"">" & vbCrLf & _
            "<tr><td class=""ute_toolbar"">" & vbCrLf

        ' list all tables within database
        if m_bListTables then
            s = Request.QueryString
            s = getLink(m_sUTEScript, s, sParamTable, "")
            s = getLink(m_sUTEScript, s, sParamMode,  MD_DATABASE)
            s = RemoveParameter(s, sParamPage)
            s = RemoveParameter(s, sParamPageSize)
            s = RemoveParameter(s, sParamSQL)
            s = RemoveParameter(s, sParamDefs)
            s = RemoveParameter(s, sParamSort)
            s = RemoveParameter(s, sParamSortDir)
            s = RemoveParameter(s, sParamSubmitted)
            s = RemoveParameter(s, sParamFilterCount)
            s = RemoveCountedParameters(s, sParamSort,          1)
            s = RemoveCountedParameters(s, sParamSortDir,       1)
            s = RemoveCountedParameters(s, sParamPKey,          1)
            s = RemoveCountedParameters(s, sParamFilterField,   1)
            s = RemoveCountedParameters(s, sParamFilterCompare, 1)
            s = RemoveCountedParameters(s, sParamFilterValue,   1)
            s = RemoveCountedParameters(s, sParamFilterCombine, 1)

            sValue = sValue & _
                "<a href=""" & s & """ " & _
                    "onMouseover=""SelectImage('Database_up','Database');""" & _
                    "onMouseout=""SelectImage('Database_normal','Database');"">" & _
                        "<img src=""" & m_sIMAGEDir & "database.gif"" name=""Database"" border=""0"" " & _
                        "height=""25"" width=""25"" title=""" & STR_LIST_TABLES & """>" & _
                "</a>" & vbCrLf
        end if

        ' define filter
        if m_bFilters then
            if UBound(m_FilterCompares) <> 0 then
                s = Request.QueryString
                s = getLink(m_sUTEScript, s, sParamMode, MD_FILTER)
                sValue = sValue & _
                    "<a href=""" & s & """ " & _
                        "onMouseover=""SelectImage('Filter_down','Filter');""" & _
                        "onMouseout=""SelectImage('Filter_down_sel','Filter');"">" & _
                        "<img src=""" & m_sIMAGEDir & "filter_down_sel.gif"" name=""Filter"" border=""0"" " & _
                        "height=""25"" width=""25"" title=""" & STR_FILTER & """>" & _
                    "</a>" & vbCrLf
            else
                s = Request.QueryString
                s = getLink(m_sUTEScript, s, sParamMode, MD_FILTER)
                sValue = sValue & _
                    "<a href=""" & s & """ " & _
                        "onMouseover=""SelectImage('Filter_up','Filter');""" & _
                        "onMouseout=""SelectImage('Filter_normal','Filter');"">" & _
                        "<img src=""" & m_sIMAGEDir & "filter.gif"" name=""Filter"" border=""0"" " & _
                        "height=""25"" width=""25"" title=""" & STR_FILTER & """>" & _
                    "</a>" & vbCrLf
            end if
        end if

        ' export data link
        if m_bShowExportLink then
            s = Request.QueryString
            s = getLink(m_sUTEScript, s, sParamMode, MD_EXPORT)
            sValue = sValue & _
                "<a href=""" & s & """ " & _
                    "onMouseover=""SelectImage('Down_up','Down');""" & _
                    "onMouseout=""SelectImage('Down_normal','Down');"">" & _
                    "<img src=""" & m_sIMAGEDir & "down.gif"" name=""Down"" border=""0"" " & _
                    "height=""25"" width=""25"" title=""" & STR_EXPORT & """>" & _
                "</a>" & vbCrLf
        end if

        ' show/hide sql statement
        if (m_bShowSQL) and (m_RS.RecordCount > 0) then
            if m_bViewSQL then
                s = Request.QueryString
                s = getLink(m_sUTEScript, s, sParamSQL, "0")
                sValue = sValue & _
                    "<a href=""" & s & """ " & _
                        "onMouseover=""SelectImage('SQL_down','SQL');""" & _
                        "onMouseout=""SelectImage('SQL_down_sel','SQL');"">" & _
                            "<img src=""" & m_sIMAGEDir & "sql_down_sel.gif"" name=""SQL"" border=""0"" " & _
                            "height=""25"" width=""25"" title=""" & STR_SQL_HIDE & """>" & _
                    "</a>" & vbCrLf
            else
                s = Request.QueryString
                s = getLink(m_sUTEScript, s, sParamSQL, "1")
                sValue = sValue & _
                    "<a href=""" & s & """ " & _
                        "onMouseover=""SelectImage('SQL_up','SQL');""" & _
                        "onMouseout=""SelectImage('SQL_normal','SQL');"">" & _
                            "<img src=""" & m_sIMAGEDir & "sql.gif"" name=""SQL"" border=""0"" " & _
                            "height=""25"" width=""25"" title=""" & STR_SQL_SHOW & """>" & _
                    "</a>" & vbCrLf
            end if
        end if

        ' show/hide field definitions
        if (m_bShowDefLink) and (m_RS.RecordCount > 0) then
            if m_bViewDefinitions then
                s = Request.QueryString
                s = getLink(m_sUTEScript, s, sParamDefs, "0")
                sValue = sValue & _
                    "<a href=""" & s & """ " & _
                        "onMouseover=""SelectImage('Definition_down','Definition');""" & _
                        "onMouseout=""SelectImage('Definition_down_sel','Definition');"">" & _
                            "<img src=""" & m_sIMAGEDir & "definition_down_sel.gif"" name=""Definition"" border=""0"" " & _
                            "height=""25"" width=""25"" title=""" & STR_DEF_HIDE & """>" & _
                    "</a>" & vbCrLf
            else
                s = Request.QueryString
                s = getLink(m_sUTEScript, s, sParamDefs, "1")
                sValue = sValue & _
                    "<a href=""" & s & """ " & _
                        "onMouseover=""SelectImage('Definition_up','Definition');""" & _
                        "onMouseout=""SelectImage('Definition_normal','Definition');"">" & _
                            "<img src=""" & m_sIMAGEDir & "definition.gif"" name=""Definition"" border=""0"" " & _
                            "height=""25"" width=""25"" title=""" & STR_DEF_SHOW & """>" & _
                    "</a>" & vbCrLf
            end if
        end if

        sValue = sValue & _
            "</td></tr>" & vbCrLf & _
            "</table>"
    end if

    getToolBar = sValue

End Function


''--------------------------------------------------------------------------
'' Name:     buildHTML_Table
''           ===============
'' 
'' Creates entire UTE HTML code for table view mode.
''
'' Parameter: 
''      none
''
'' return value:
''      string      HTML code
''
''--------------------------------------------------------------------------
Private Function buildHTML_Table()
    Dim i
    Dim nCounter
    Dim s
    Dim sStyle
    Dim sValue

    ' add javascript code
    sValue = _
        "<script language=""JavaScript"">" & vbCrLf & _
        "<!--" & vbCrLf & _
        "   browserName = navigator.appName;" & vbCrLf & _
        "   browserVer = parseInt(navigator.appVersion);" & vbCrLf & _
        vbCrLf & _
        "   if (browserName == ""Netscape"" && browserVer >= 3)" & vbCrLf & _