<% '****************************************************************************************************************** '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 List

<% 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","Payment") '// ù ÀÚ¸®´Â Ç×»ó Key°¡ µé¾î°¨ objListProperty.ColumnTableWidth = "100%" objListProperty.ColumnAlign = Array("","center","center","center","center","center","center","center") '//Key¸¦ À§ÇØ ÇÒ´çµÈ ÀÚ¸®À̹ǷΠ... objListProperty.TDSize = Array("","10%","15%","15%","15%","15%","15%","15%") '//¹øÈ£¿­À» À§ÇØ Ç×»ó Àüü 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_m_detail.asp?IsSearch="&Request("IsSearch")&"&full_name="&full_name&"&order_cd=" objListProperty.CurrentURL = "./order_m.asp?IsSearch="&Request("IsSearch")&"&full_name="&full_name Else objListProperty.AnchorURL = "./order_m_detail.asp?order_cd=" objListProperty.CurrentURL = "./order_m.asp" End IF objCommonList.funcAddProperty objListProperty Set objListProperty = Nothing Set objCommonList = Nothing %> <%'End =========================================================================================================================%>

<% Function funcListQuery() Dim strQuery strQuery = " SELECT order_cd AS TD0, order_cd AS TD1, Nick_Name AS TD2, userid AS TD3, tel_1 +'-'+ tel_2 +'-'+ tel_3 AS TD4, insert_date AS TD5, " &_ " Case status when 1 then '¿¹¾àÁ¢¼ö' when 2 then 'ÇöÀç ó¸®Áß' when 3 then '󸮿Ϸá' when 4 then '¿¹¾àÃë¼Ò' end AS TD6, " &_ " Case bPay when 'N' then '¹Ì°áÁ¦' when 'Y' then '°áÁ¦¿Ï·á' end AS TD7 " &_ " FROM E_Order_Main " &_ " ORDER BY idx desc" funcListQuery = strQuery End Function Function funcSearchListQuery(ByVal Nick_Name) Dim strQuery strQuery = " SELECT order_cd AS TD0, order_cd AS TD1, Nick_Name AS TD2, userid AS TD3, tel_1 +'-'+ tel_2 +'-'+ tel_3 AS TD4, insert_date AS TD5, " &_ " Case status when 1 then '¿¹¾àÁ¢¼ö' when 2 then 'ÇöÀç ó¸®Áß' when 3 then '󸮿Ϸá' when 4 then '¿¹¾àÃë¼Ò' end AS TD6, " &_ " Case bPay when 'N' then '¹Ì°áÁ¦' when 'Y' then '°áÁ¦¿Ï·á' end AS TD7 " &_ "FROM E_Order_Main WHERE Nick_Name = '"&Nick_Name&"' " &_ " ORDER BY Register_Date desc" 'Response.write strQuery funcSearchListQuery = strQuery End Function %>