Subversion Repositories DevTools

Rev

Rev 6538 | Rev 6594 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6538 Rev 6579
Line 50... Line 50...
50 
    End If
 50 
    End If
51 
rsQry.Close
 51 
rsQry.Close
52 
Set rsQry = Nothing
 52 
Set rsQry = Nothing
53 
 
 53 
 
54 
' Basic Header
 54 
' Basic Header
55 
'   iTotalRecords = total records without any filtering/limits
 55 
'   recordsTotal = total records without any filtering/limits
56 
'   iTotalDisplayRecords = filtered result count
 56 
'   recordsFiltered = filtered result count
57 
 
 57 
 
58 
oJSON.data("sEcho") = CLng(Request.QueryString("sEcho"))
 58 
oJSON.data("draw") = CLng(Request.QueryString("draw"))
59 
oJSON.data("iTotalRecords") = MaxCount
 59 
oJSON.data("recordsTotal") = CLng(MaxCount)
60 
oJSON.data("iTotalDisplayRecords") = MaxCount
 60 
oJSON.data("recordsFiltered") = CLng(MaxCount)
61 
 
 61 
 
62 
' Assist in debug
 62 
' Assist in debug
63 
oJSON.data("iReqDisplayStart") = CLng(Request.QueryString("iDisplayStart"))
 63 
oJSON.data("start") = CLng(Request.QueryString("start"))
64 
oJSON.data("iReqDisplayLength") = CLng(Request.QueryString("iDisplayLength"))
 64 
oJSON.data("length") = CLng(Request.QueryString("length"))
65 
 
 65 
 
66 
Dim vName
 66 
Dim vName
67 
for each vName in Request.QueryString
 67 
for each vName in Request.QueryString
68 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
 68 
    oJSON.data("sReq_" & vName) = Request.QueryString(vName)
69 
next
 69 
next
70 
 
 70 
 
71 
' Extract selected range
 71 
' Extract selected range
72 
result = 0
 72 
result = 0
73 
dim firstRow,lastRow,noBuildTime
 73 
dim firstRow,lastRow,noBuildTime
74 
firstRow = CLng(Request.QueryString("iDisplayStart"))
 74 
firstRow = CLng(Request.QueryString("start"))
75 
lastRow = firstRow + CLng(Request.QueryString("iDisplayLength"))
 75 
lastRow = firstRow + CLng(Request.QueryString("length"))
76 
 
 76 
 
77 
'   Define array of colums to sort by
 77 
'   Define array of colums to sort by
78 
'       Must match user sort column request
 78 
'       Must match user sort column request
79 
Dim sortCols: sortCols = Array ( _
 79 
Dim sortCols: sortCols = Array ( _
80 
        "UPPER(pj.PROJ_NAME)",_
 80 
        "UPPER(pj.PROJ_NAME)",_
Line 89... Line 89...
89 
 
 89 
 
90 
' Dim determine sorting options
 90 
' Dim determine sorting options
91 
'On Error goto 0
 91 
'On Error goto 0
92 
'Response.Write "<pre>"
 92 
'Response.Write "<pre>"
93 
Dim sortString
 93 
Dim sortString
94 
If Request.QueryString("iSortCol_0") <> "" Then
 94 
If Request.QueryString("order[0][column]") <> "" Then
- 
 
 95 
 
- 
 
 96 
    Dim sortCol : sortCol = CInt(Request.QueryString("order[0][column]"))
- 
 
 97 
    Dim sortDir : sortDir = " " & Request.QueryString("order[0][dir]")
- 
 
 98 
 
95 
    Dim splitArg: splitArg = Split( sortCols(CLng(Request.QueryString("iSortCol_0"))), "," )
 99 
    Dim splitArg: splitArg = Split( sortCols(sortCol), "," )
96 
    Dim splitItem, joiner
 100 
    Dim splitItem, joiner
97 
    joiner = ""
 101 
    joiner = ""
98 
    for each splitItem in splitArg
 102 
    for each splitItem in splitArg
99 
        If splitItem = "NOBUILDTIME" Then
 103 
        If splitItem = "NOBUILDTIME" Then
100 
            noBuildTime = " AND PV.BUILD_TIME is not null"
 104 
            noBuildTime = " AND PV.BUILD_TIME is not null"
101 
        Else
 105 
        Else
102 
            sortString = sortString & joiner & splitItem & " " & Request.QueryString("sSortDir_0")
 106 
            sortString = sortString & joiner & splitItem & " " & sortDir
103 
            joiner = ","
 107 
            joiner = ","
104 
        End If
 108 
        End If
105 
    next
 109 
    next
106 
    sortString = " ORDER BY " & sortString
 110 
    sortString = " ORDER BY " & sortString
107 
End If
 111 
End If
Line 158... Line 162...
158 
' Assist in debug
 162 
' Assist in debug
159 
oJSON.data("BasicSql") = BasicSql
 163 
oJSON.data("BasicSql") = BasicSql
160 
oJSON.data("SqlQry") = SqlQry
 164 
oJSON.data("SqlQry") = SqlQry
161 
 
 165 
 
162 
' Perform the database query
 166 
' Perform the database query
163 
Set oJSON.data("aaData") = oJSON.Collection()
 167 
Set oJSON.data("data") = oJSON.Collection()
164 
On Error Resume Next
 168 
On Error Resume Next
165 
objEH.ErrorRedirect = FALSE
 169 
objEH.ErrorRedirect = FALSE
166 
objEH.TryORA ( OraSession )
 170 
objEH.TryORA ( OraSession )
167 
Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
 171 
Set rsQry = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
168 
objEH.CatchORA ( OraSession )
 172 
objEH.CatchORA ( OraSession )
169 
' Process each row and return required fields to the user
 173 
' Process each row and return required fields to the user
170 
If objEH.Finally Then
 174 
If objEH.Finally Then
171 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 175 
   While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
172 
       Set newitem = oJSON.AddToCollection(oJSON.data("aaData"))
 176 
       Set newitem = oJSON.AddToCollection(oJSON.data("data"))
173 
 
 177 
 
174 
       ' Attempt to speed up access tot he data
 178 
       ' Attempt to speed up access tot he data
175 
       '    Extract all fields for the row
 179 
       '    Extract all fields for the row
176 
       '    Access fields by index
 180 
       '    Access fields by index
177 
       Dim fields
 181 
       Dim fields