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

<% CALL subTabIndexLink("MEMBER") %>

<% CALL subTopMenu() %>

Members

<% Dim IsSearch IsSearch = Trim(Request("IsSearch")) Dim userid Dim name_last userid = Trim(Request("userid")) name_last = Trim(Request("name_last")) %> <%'Start ========================================================================================================================%> "> "> E-mail Last Name Search    Clear  <% Dim objCommonList Dim objListProperty Set objCommonList = New CommonListClass Set objListProperty = New CommonListProperty IF IsSearch = "true" Then objListProperty.Query = funcSearchListQuery(userid, name_last) Else objListProperty.Query = funcListQuery() '//Query End If objListProperty.PageRowSize = 15 '//ÆäÀÌÁö »çÀÌÁî objListProperty.ColumnTitle = Array("","ID / Email","Name","State","Tel / Cel", "Visit", "Registration") '// ù ÀÚ¸®´Â Ç×»ó Key°¡ µé¾î°¨ objListProperty.ColumnTableWidth = "100%" objListProperty.ColumnAlign = Array("","center","center","center","center","center","center") '//Key¸¦ À§ÇØ ÇÒ´çµÈ ÀÚ¸®À̹ǷΠ... objListProperty.TDSize = Array("","30%","15%","5%","15%","15%","15%") '//¹øÈ£¿­À» À§ÇØ Ç×»ó Àüü 95%·Î À¯Áö objListProperty.FontColor = Array("","#426BB5","#333333","#333333","#333333","#333333","#333333") objListProperty.AnchorColumn = 1'//Link¸¦ °É¾îÁÙ ¹è¿­¹øÈ£... 0ºÎÅÍ ½ÃÀÛÇÔ. objListProperty.DisplayNoMsg = "No Result" '// Result°¡ ¾øÀ» ¶§ ¸Þ½ÃÁö IF Trim(Request("IsSearch")) = "true" Then objListProperty.AnchorURL = "./member_detail.asp?IsSearch="&Request("IsSearch")&"&userid="&userid&"&name_last="&name_last&"&Login_GUID=" objListProperty.CurrentURL = "./member_m.asp?IsSearch="&Request("IsSearch")&"&userid="&userid&"&name_last="&name_last Else objListProperty.AnchorURL = "./member_detail.asp?Login_GUID=" objListProperty.CurrentURL = "./member_m.asp" End IF objCommonList.funcAddProperty objListProperty Set objListProperty = Nothing Set objCommonList = Nothing %> <%'End =========================================================================================================================%>

<% Function funcListQuery() Dim strQuery strQuery = " SELECT Login_GUID AS TD0, Login_ID AS TD1, Nick_Name AS TD2, State AS TD3, Tel_1 + '-' + Tel_2 + '-' + Tel_3 AS TD4, " &_ " Visit_Cnt AS TD5, Register_Date AS TD6 " &_ " FROM E_Member " &_ " ORDER BY Register_Date desc" funcListQuery = strQuery End Function Function funcSearchListQuery(ByVal userid, ByVal name_last) Dim strWhereCondition strWhereCondition = " WHERE Login_ID IS NOT NULL" IF userid <> "" Then strWhereCondition = strWhereCondition & " AND Login_ID like '%"&userid&"%'" End IF IF name_last <> "" Then strWhereCondition = strWhereCondition & " AND Name_Last like '%"&name_last&"%'" End IF Dim strQuery strQuery = " SELECT Login_GUID AS TD0, Login_ID AS TD1, Nick_Name AS TD2, State AS TD3, Tel_1 + '-' + Tel_2 + '-' + Tel_3 AS TD4, " &_ " Visit_Cnt AS TD5, Register_Date AS TD6 " &_ " FROM E_Member " & strWhereCondition &_ " ORDER BY Register_Date desc" 'Response.write strQuery funcSearchListQuery = strQuery End Function %>