ute_class_table.inc

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

        "   {" & vbCrLf & _
        "   version = ""n3"";" & vbCrLf & _
        "   }" & vbCrLf & _
        "   else if (browserName == ""Microsoft Internet Explorer"" && browserVer >= 3)" & vbCrLf & _
        "   {" & vbCrLf & _
        "   version = ""n3"";" & vbCrLf & _
        "   }" & vbCrLf & _
        "   else version = ""n2"";" & vbCrLf & _
        vbCrLf & _
        "   if (version == ""n3"")" & vbCrLf & _
        "   {" & vbCrLf & _
        "       // create image objects" & vbCrLf & _
        "       Add_normal              = new Image();" & vbCrLf & _
        "       Add_active              = new Image();" & vbCrLf & _
        "       Edit_normal             = new Image();" & vbCrLf & _
        "       Edit_active             = new Image();" & vbCrLf & _
        "       Delete_normal           = new Image();" & vbCrLf & _
        "       Delete_active           = new Image();" & vbCrLf & _
        "       Database_normal         = new Image();" & vbCrLf & _
        "       Database_up             = new Image();" & vbCrLf & _
        "       Filter_normal           = new Image();" & vbCrLf & _
        "       Filter_up               = new Image();" & vbCrLf & _
        "       Filter_down             = new Image();" & vbCrLf & _
        "       Filter_down_sel         = new Image();" & vbCrLf & _
        "       Down_normal             = new Image();" & vbCrLf & _
        "       Down_up                 = new Image();" & vbCrLf & _
        "       SQL_normal              = new Image();" & vbCrLf & _
        "       SQL_up                  = new Image();" & vbCrLf & _
        "       SQL_down                = new Image();" & vbCrLf & _
        "       SQL_down_sel            = new Image();" & vbCrLf & _
        "       Definition_normal       = new Image();" & vbCrLf & _
        "       Definition_up           = new Image();" & vbCrLf & _
        "       Definition_down         = new Image();" & vbCrLf & _
        "       Definition_down_sel     = new Image();" & vbCrLf & _
        vbCrLf & _
        "       // assign actual images to image objects" & vbCrLf & _
        "       Add_normal.src          = """ & m_sIMAGEDir & "btnAdd.gif"";" & vbCrLf & _
        "       Add_active.src          = """ & m_sIMAGEDir & "btnAddSel.gif"";" & vbCrLf & _
        "       Edit_normal.src         = """ & m_sIMAGEDir & "btnEdit.gif"";" & vbCrLf & _
        "       Edit_active.src         = """ & m_sIMAGEDir & "btnEditSel.gif"";" & vbCrLf & _
        "       Delete_normal.src       = """ & m_sIMAGEDir & "btnDelete.gif"";" & vbCrLf & _
        "       Delete_active.src       = """ & m_sIMAGEDir & "btnDeleteSel.gif"";" & vbCrLf & _
        "       Database_normal.src     = """ & m_sIMAGEDir & "database.gif"";" & vbCrLf & _
        "       Database_up.src         = """ & m_sIMAGEDir & "database_up.gif"";" & vbCrLf & _
        "       Filter_normal.src       = """ & m_sIMAGEDir & "filter.gif"";" & vbCrLf & _
        "       Filter_up.src           = """ & m_sIMAGEDir & "filter_up.gif"";" & vbCrLf & _
        "       Filter_down.src         = """ & m_sIMAGEDir & "filter_down.gif"";" & vbCrLf & _
        "       Filter_down_sel.src     = """ & m_sIMAGEDir & "filter_down_sel.gif"";" & vbCrLf & _
        "       Down_normal.src         = """ & m_sIMAGEDir & "down.gif"";" & vbCrLf & _
        "       Down_up.src             = """ & m_sIMAGEDir & "down_up.gif"";" & vbCrLf & _
        "       SQL_normal.src          = """ & m_sIMAGEDir & "sql.gif"";" & vbCrLf & _
        "       SQL_up.src              = """ & m_sIMAGEDir & "sql_up.gif"";" & vbCrLf & _
        "       SQL_down.src            = """ & m_sIMAGEDir & "sql_down.gif"";" & vbCrLf & _
        "       SQL_down_sel.src        = """ & m_sIMAGEDir & "sql_down_sel.gif"";" & vbCrLf & _
        "       Definition_normal.src   = """ & m_sIMAGEDir & "definition.gif"";" & vbCrLf & _
        "       Definition_up.src       = """ & m_sIMAGEDir & "definition_up.gif"";" & vbCrLf & _
        "       Definition_down.src     = """ & m_sIMAGEDir & "definition_down.gif"";" & vbCrLf & _
        "       Definition_down_sel.src = """ & m_sIMAGEDir & "definition_down_sel.gif"";" & vbCrLf & _

        "   }" & vbCrLf & _
        "" & vbCrLf & _
        "   function SelectImage(img_src, img_name)" & vbCrLf & _
        "   {" & vbCrLf & _
        "       if (version == ""n3"")" & vbCrLf & _
        "       {" & vbCrLf & _
        "           imgOn = eval(img_src + "".src"");" & vbCrLf & _
        "           document [img_name].src = imgOn;" & vbCrLf & _
        "       }" & vbCrLf & _
        "   }" & vbCrLf & _
        "" & vbCrLf & _
        "   function jumpPage(targ, selObj, restore)" & vbCrLf & _
        "   {" & vbCrLf & _
        "       eval(targ + "".location='"" + selObj.options[selObj.selectedIndex].value + ""'"");" & vbCrLf & _
        "       if (restore) selObj.selectedIndex=0;" & vbCrLf & _
        "   }" & vbCrLf & _
        "//-->" & vbCrLf & _
        "</script>" & vbCrLf & _
        vbCrLf & _
        "<p><span class=""ute_headline"">" & m_sHeadline & "</span></p>" & vbCrLf & _
        vbCrLf


    ' add toolbar
    sValue = sValue & getToolBar & vbCrLf

    ' display SQL statement
    if m_bViewSQL then
        sValue = sValue & _
            "<table class=""ute_table"">" & vbCrLf & _
            "<tr><td class=""ute_navigation"">" & vbCrLf & _
            m_sSQL & vbCrLf & _
            "</td></tr></table>"  & vbCrLf
    end if

    ' add naviation bar
    sValue = sValue & getNavigation & vbCrLf

    ' add table
    sValue = sValue & "<table class=""ute_table"">" & vbCrLf
    sValue = sValue & "<tr>" & vbCrLf

    if not m_bReadOnly then
        ' add insert record link
        s = Request.QueryString
        s = getLink(m_sUTEScript, s, sParamMode,     MD_FORM)
        s = getLink(m_sUTEScript, s, sParamFormMode, MD_INSERT)
        sValue = sValue & _
        "<td class=""ute_header"" width=""30"">" & vbCrLf & _
        "<a href=""" & s & """ title=""" & STR_INSERT & """ " & _
            "onMouseover=""SelectImage('Add_active','Add');""" & _
            "onMouseout=""SelectImage('Add_normal','Add');"">" & _
            "<img src=""" & m_sIMAGEDir & "btnAdd.gif"" border=""0"" alt=""" & STR_INSERT & """ " & _
            "name=""Add"" width=""12"" height=""12""></a>" & vbCrLf & _
        "</td>" & vbCrLf
    end if 

    ' add primary keys fields to header
    for i = 1 to UBound(m_PrimaryKeyFields)
        sValue = sValue & _
            "<td class=""ute_header_pk"">" & vbCrLf & _
            InsertField (m_RS.fields(m_PrimaryKeyFields(i))) & _
            "</td>" & vbCrLf
    next

    ' add standard fields to header
    for i = 1 to UBound(m_StandardFields)
        select case m_RS.fields(m_StandardFields(i)).Type
            ' MEMO
            case adLongVarChar, adLongVarWChar
                sValue = sValue & _
                    "<td class=""ute_header"" width=""" & CStr(DEF_MEMO_COL_WIDTH) & """>" & vbCrLf & _
                    InsertField (m_RS.fields(m_StandardFields(i))) & _
                    "</td>" & vbCrLf
            case else
                sValue = sValue & _
                    "<td class=""ute_header"">" & vbCrLf & _
                    InsertField (m_RS.fields(m_StandardFields(i))) & _
                    "</td>" & vbCrLf
        end select
    next

    sValue = sValue & "</tr>" & vbCrLf

    ' insert values
    nCounter = 1
    Do Until m_RS.EOF or (nCounter > m_nPageSize)

        if (nCounter mod 2) = 0 then
            sStyle = "ute_content_even"
        else
            sStyle = "ute_content_odd"
        end if

        sValue = sValue & "<tr class=""" & sStyle & """>" & vbCrLf

        if not m_bReadOnly then
            ' add edit record link
            s = Request.QueryString
            s = getLink(m_sUTEScript, s, sParamMode,     MD_FORM)
            s = getLink(m_sUTEScript, s, sParamFormMode, MD_EDIT)
            s = getLink(m_sUTEScript, s, sParamRecord,   CStr(nCounter + ((m_nPage - 1) * m_nPageSize)))
            sValue = sValue & _
                "<td class=""ute_header"" width=""30"">" & vbCrLf & _
                "<a href=""" & s & """ title=""" & STR_EDIT & """ " & _
                    "onMouseover=""SelectImage('Edit_active','Edit" & CStr(nCounter)& "');""" & _
                    "onMouseout=""SelectImage('Edit_normal','Edit" & CStr(nCounter)& "');"">" & _
                    "<img src=""" & m_sIMAGEDir & "btnEdit.gif"" border=""0"" alt=""" & STR_EDIT & """ " & _
                    "name=""Edit" & CStr(nCounter)& """ width=""12"" height=""12""></a>" & vbCrLf
            ' add delete record link
            s = Request.QueryString
            s = getLink(m_sUTEScript, s, sParamMode,     MD_FORM)
            s = getLink(m_sUTEScript, s, sParamFormMode, MD_DELETE)
            s = getLink(m_sUTEScript, s, sParamRecord,   CStr(nCounter + ((m_nPage - 1) * m_nPageSize)))
            sValue = sValue & _
                "<a href=""" & s & """ title=""" & STR_DELETE & """ " & _
                    "onMouseover=""SelectImage('Delete_active','Delete" & CStr(nCounter)& "');""" & _
                    "onMouseout=""SelectImage('Delete_normal','Delete" & CStr(nCounter)& "');"">" & _
                    "<img src=""" & m_sIMAGEDir & "btnDelete.gif"" border=""0"" alt=""" & STR_DELETE & """ " & _
                    "name=""Delete" & CStr(nCounter)& """ width=""12"" height=""12""></a>" & vbCrLf & _
                "</td>" & vbCrLf
        end if

        ' add primary keys field value
        for i = 1 to UBound(m_PrimaryKeyFields)
            sValue = sValue & _
                "<td class=""" & sStyle & "_pk"">" & _
                InsertFieldValue (m_RS.fields(m_PrimaryKeyFields(i))) & _
                "</td>" & vbCrLf
        next

        ' add standard field value
        for i = 1 to UBound(m_StandardFields)
            select case m_RS.fields(m_StandardFields(i)).Type
                ' MEMO
                case adLongVarChar, adLongVarWChar
                    sValue = sValue & _
                        "<td class=""" & sStyle & """ width=""" & CStr(DEF_MEMO_COL_WIDTH) & """>" & _
                        InsertFieldValue (m_RS.fields(m_StandardFields(i))) & _
                        "</td>" & vbCrLf
                case else
                    sValue = sValue & _
                        "<td class=""" & sStyle & """>" & _
                        InsertFieldValue (m_RS.fields(m_StandardFields(i))) & _
                        "</td>" & vbCrLf
            end select
        next

        sValue = sValue & "</tr>" & vbCrLf

        nCounter = nCounter + 1
        m_RS.MoveNext
    Loop

    sValue = sValue & "</table>" & vbCrLf

    ' add naviation bar
    sValue = sValue & getNavigation & vbCrLf

    ' add "Powered By"
    sValue = sValue & getPoweredBy & vbCrLf


    ' show field definitions if link is enabled and selected
    if (m_bShowDefLink) and (m_bViewDefinitions) and (m_RS.RecordCount > 0) then

        sValue = sValue & _
            "<p><table class=""ute_table"">" & vbCrLf & _
            "<tr>" & vbCrLf & _
            "<td class=""ute_header"">" & STR_DEF_NAME & "</td>" & vbCrLf & _
            "<td class=""ute_header"">" & STR_DEF_TYPE & "</td>" & vbCrLf & _
            "<td class=""ute_header"">" & STR_DEF_DEFINEDSIZE & "</td>" & vbCrLf & _
            "<td class=""ute_header"">" & STR_DEF_PRECISION & "</td>" & vbCrLf & _
            "<td class=""ute_header"">" & STR_DEF_ATTRIBUTES & "</td>" & vbCrLf & _
            "</tr>" & vbCrLf

        m_RS.MoveFirst
        nCounter = 0

        if UBound(m_PrimaryKeyFields) > 0 then
            for i = 1 to UBound(m_PrimaryKeyFields)
                nCounter = nCounter + 1
                if (nCounter mod 2) = 0 then
                    sStyle = "ute_content_even"
                else
                    sStyle = "ute_content_odd"
                end if
                sValue = sValue & InsertFieldDefinition (m_RS.fields(m_PrimaryKeyFields(i)), True, sStyle)
            next
        end if

        if UBound(m_StandardFields) > 0 then
            for i = 1 to UBound(m_StandardFields)
                nCounter = nCounter + 1
                if (nCounter mod 2) = 0 then
                    sStyle = "ute_content_even"
                else
                    sStyle = "ute_content_odd"
                end if
                sValue = sValue & InsertFieldDefinition (m_RS.fields(m_StandardFields(i)), False, sStyle)
            next
        end if

        sValue = sValue & "</table></p>"

    end if

    buildHTML_Table = sValue

End Function

%>