Category List

<% Call subMain() Sub subMain() Dim objQuery Set objQuery = GetDBConn() '//Script List CALL subVBScript() CALL subJAVAScript() '//Print List CALL subPagePrint(objQuery) Call CloseDBConn(objQuery) End Sub Sub subVBScript() %> <% End Sub Sub subJAVAScript() %> <% End Sub Function funcGetCategory(byRef objQuery) Dim strQuery strQuery = " SELECT idx_cat, category_cd, category_name, active_YN, category_type " &_ " FROM E_Category WHERE cat_lev = 1" &_ " ORDER BY order_by, idx_cat asc " funcGetCategory = arrGetDBResult(objQuery, strQuery) End Function Sub subPagePrint(byRef objQuery) %> <%'=========================================================================================================================================%>

<%'==========================================================================================================================================%> <% Dim arrCategory Dim arrActivity Dim arrDetail Dim pNum Dim i, pNo Dim isActive arrCategory = funcGetCategory(objQuery) IF isArray(arrCategory) Then pNo = 0 pNum = 0 For i = 0 to Ubound(arrCategory, 2) pNo = pNo + 1 Select Case Len(pNo) Case 1 pNo = "0" & pNo End Select IF arrCategory(3, i) = "Y" Then isActive = "Act" Else isActive = "None" End IF %>

<%'// 최상위 트리%>

[<%=pNo%>] <%If arrCategory(4, i) = "S" Then%><%=arrCategory(2, i)%><%ElseIf arrCategory(3, i) = "N" Then%><%=arrCategory(2, i)%><%Else%><%=arrCategory(2, i)%><%End IF%>

<% pNum = pNum + 1 Next End IF %>

<% End Sub %>