<% '****************************************************************************************************************** '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 buyer buyer = Trim(Request("buyer")) %> <%'Start ========================================================================================================================%> "> "> ¿¹¾àÀÚ¸í Search    Clear  <% Dim objCommonList Dim objListProperty Set objCommonList = New CommonListClass Set objListProperty = New CommonListProperty IF IsSearch = "true" Then objListProperty.Query = funcSearchListQuery(buyer) 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","center","center","center") '//Key¸¦ À§ÇØ ÇÒ´çµÈ ÀÚ¸®À̹ǷΠ... objListProperty.TDSize = Array("","10%","12%","12%","11%","11%","5%","15%","10%","15%","5%") '//¹øÈ£¿­À» À§ÇØ Ç×»ó Àüü 95%·Î À¯Áö objListProperty.FontColor = Array("","#426BB5","#333333","#333333","#333333","#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_ticket_detail.asp?IsSearch="&Request("IsSearch")&"&buyer="&buyer&"&idx=" objListProperty.CurrentURL = "./order_ticket.asp?IsSearch="&Request("IsSearch")&"&buyer="&buyer Else objListProperty.AnchorURL = "./order_ticket_detail.asp?idx=" objListProperty.CurrentURL = "./order_ticket.asp" End IF objCommonList.funcAddProperty objListProperty Set objListProperty = Nothing Set objCommonList = Nothing %> <%'End =========================================================================================================================%>

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