<% '****************************************************************************************************************** 'System Name : ELIS Ver 1.0 '****************************************************************************************************************** 'File Name : order_m.asp 'File Description : ELIS Main Summary 'Developer : Taejin Kwon 'Date : 7/10/2009 'Modifier(Date) : None '****************************************************************************************************************** Dim G_MENU G_MENU = "ORDERS" %> <%Call SubGlobalMenu() %>

<% CALL subTabIndexLink("ORDERS") %>

<% CALL subTopMenu() %>

Orders

<% Dim IsSearch IsSearch = Trim(Request("IsSearch")) Dim full_name full_name = Trim(Request("full_name")) %> <%'Start ========================================================================================================================%> ¹ö½º´ë¿© ½Åû "> "> ¿¹¾àÀÚ¸í Search    Clear  <% Dim objCommonList Dim objListProperty Set objCommonList = New CommonListClass Set objListProperty = New CommonListProperty IF IsSearch = "true" Then objListProperty.Query = funcSearchListQuery(full_name) Else objListProperty.Query = funcListQuery() '//Query End If objListProperty.PageRowSize = 15 '//ÆäÀÌÁö »çÀÌÁî objListProperty.ColumnTitle = Array("","¿¹¾àÀÚ¸í","À̸ÞÀÏ","ÀüÈ­","Ãâ¹ßÀÏ", "Àοø", "¿¹¾àÀÏ", "Status") '// ù ÀÚ¸®´Â Ç×»ó Key°¡ µé¾î°¨ objListProperty.ColumnTableWidth = "100%" objListProperty.ColumnAlign = Array("","center","center","center","center","center","center","center") '//Key¸¦ À§ÇØ ÇÒ´çµÈ ÀÚ¸®À̹ǷΠ... objListProperty.TDSize = Array("","10%","15%","10%","10%","5%","15%","10%") '//¹øÈ£¿­À» À§ÇØ Ç×»ó Àüü 95%·Î À¯Áö objListProperty.FontColor = Array("","#426BB5","#333333","#333333","#333333","#333333","#333333","#333333") objListProperty.AnchorColumn = 1'//Link¸¦ °É¾îÁÙ ¹è¿­¹øÈ£... 0ºÎÅÍ ½ÃÀÛÇÔ. objListProperty.DisplayNoMsg = "No Result" '// Result°¡ ¾øÀ» ¶§ ¸Þ½ÃÁö IF Trim(Request("IsSearch")) = "true" Then objListProperty.AnchorURL = "./order_bus3_detail.asp?IsSearch="&Request("IsSearch")&"&full_name="&full_name&"&idx=" objListProperty.CurrentURL = "./order_bus3.asp?IsSearch="&Request("IsSearch")&"&full_name="&full_name Else objListProperty.AnchorURL = "./order_bus3_detail.asp?idx=" objListProperty.CurrentURL = "./order_bus3.asp" End IF objCommonList.funcAddProperty objListProperty Set objListProperty = Nothing Set objCommonList = Nothing %> <%'End =========================================================================================================================%>

<% Function funcListQuery() Dim strQuery strQuery = " SELECT idx AS TD0, full_name AS TD1, email AS TD2, tel AS TD3, start_date AS TD4, person AS TD5, insert_date AS TD6, Case status when '1' then '¿¹¾àÁ¢¼ö' when '2' then 'ÇöÀç ó¸®Áß' when '3' then '󸮿Ϸá' when '4' then '¿¹¾àÃë¼Ò' end AS TD7 " &_ " FROM E_BusRent " &_ " ORDER BY idx desc" funcListQuery = strQuery End Function Function funcSearchListQuery(ByVal full_name) Dim strWhereCondition strWhereCondition = " WHERE full_name = '"&full_name&"' " IF name_last <> "" Then strWhereCondition = strWhereCondition & " AND full_name like '%"&full_name&"%'" End IF Dim strQuery strQuery = " SELECT idx AS TD0, full_name AS TD1, email AS TD2, tel AS TD3, start_date AS TD4, person AS TD5, insert_date AS TD6, Case status when '1' then '¿¹¾àÁ¢¼ö' when '2' then 'ÇöÀç ó¸®Áß' when '3' then '󸮿Ϸá' when '4' then '¿¹¾àÃë¼Ò' end AS TD7 " &_ " FROM E_BusRent " & strWhereCondition &_ " ORDER BY Register_Date desc" 'Response.write strQuery funcSearchListQuery = strQuery End Function %>