<% '****************************************************************************************************************** 'System Name : ELIS Ver 1.0 '****************************************************************************************************************** 'File Name : main_m.asp 'File Description : ELIS Main Summary 'Developer : Taejin Kwon 'Date : 7/10/2009 'Modifier(Date) : None '****************************************************************************************************************** Dim G_MENU G_MENU = "MAIN" %> <%Call SubGlobalMenu() %>
<% CALL subTabIndexLink("MAIN") %>
<% CALL subTopMenu() %>
Main Summary
<%'Start ========================================================================================================================%> <% dim row set row = objQuery.execute("select count(Login_ID) from E_Member") '총회원수 total_member = row(0) row.close set row = nothing set row = objQuery.execute("select count(idx) from E_log_visit") '총방문자수 total_counter = row(0) row.close set row = Nothing set row = objQuery.execute("select count(idx) from E_log_visit where lyear = '"& Year(Date()) &"' and lmonth = '"& Month(Date()) &"' and lday = '"& Day(Date()) &"' ") '금일총방문자수 total_counter_today = row(0) row.close set row = nothing set row = objQuery.execute("select count(distinct userip) from E_log_visit")'아이피별 총방문자수 total_ip_counter = row(0) row.close set row = Nothing set row = objQuery.execute("select count(distinct userip) from E_log_visit where lyear = '"& Year(Date()) &"' and lmonth = '"& Month(Date()) &"' and lday = '"& Day(Date()) &"' ")' 오늘 아이피별 총방문자수 total_ip_counter_today = row(0) row.close set row = nothing set row = objQuery.execute("select count(idx) from E_Order_Main where status=0 or status in (1, 2) ")'주문접수,결제확인수 total_status1 = row(0) row.close set row = nothing Dim strDate strDate = FuncCurDateOrder() set row = objQuery.execute("select count(order_cd) from E_Order_Main where (order_cd LIKE '"&strDate&"%') and status in(1, 2) ") '오늘의 주문건수 total_reserve = row(0) If total_reserve = "" Or IsNull(total_reserve) Then total_reserve = 0 End if row.close set row = Nothing set row = objQuery.execute("select count(idx) from E_Order_Main where status in(1, 2) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()))'월별주문건수 total_status5 = row(0) If total_status5 = "" Or IsNull(total_status5) Then total_status5 = 0 End if row.close set row = Nothing set row = objQuery.execute("select count(idx) from E_Order_Main where status in(4) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()))'주문취소건수 total_status6 = row(0) If total_status6 = "" Or IsNull(total_status6) Then total_status6 = 0 End if row.close set row = Nothing set row = objQuery.execute("select count(idx) from E_Ticket where status in(1) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()) &" and Day(insert_date) = " & Day(Date()) )'티켓 건 total_ticket = row(0) if isnull(total_ticket) then total_ticket = 0 end if row.close set row = Nothing set row = objQuery.execute("select count(idx) from E_Bus where status in(1) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()) &" and Day(insert_date) = " & Day(Date()) )'bus 건 total_bus = row(0) if isnull(total_bus) then total_bus = 0 end if row.close set row = Nothing set row = objQuery.execute("select count(idx) from E_BusRent where status in(1) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()) &" and Day(insert_date) = " & Day(Date()) )'bus 건 total_busrent = row(0) if isnull(total_busrent) then total_busrent = 0 end if row.close set row = Nothing %>
Online Purchase Order
회원총계
<%=total_member%>
방문자총계
<%=total_counter%>
방문자총계 (IP Addrss)
<%=total_ip_counter%>
Processing(여행상품)
<%=total_status1%>
이달의 예약 건수(여행상품)
<%=total_status5%>
이달의 취소 건수(여행상품)
<%=total_status6%>
오늘의 예약(여행상품)
<%=total_reserve%>
오늘의 티켓 예약
<%=total_ticket%>
오늘의 버스 예약
<%=total_bus%>
오늘의 버스 렌트
<%=total_busrent%>

금일 방문자
<%=total_counter_today%>
금일 방문자 IP
<%=total_ip_counter_today%>
월별 여행상품 예약 (Except Refund and Cancel)
<% Dim rsV, totM, bOn, bO2 set rsV = objQuery.execute("select sum(bPay_amount) from E_Order_Main where status in(3) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()) - 2 )'주문건수 totM = rsV(0) If totM = "" Or IsNull(totM) Then totM = 0 End If rsV.close set rsV = Nothing set rsV = objQuery.execute("select count(idx) from E_Order_Main where status in(3) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()) - 2 )'주문건수 bOn = rsV(0) If bOn = "" Or IsNull(bOn) Then bOn = 0 End If bO2 = bOn / 3 rsV.close set rsV = Nothing %> <% set rsV = objQuery.execute("select sum(bPay_amount) from E_Order_Main where status in(3) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()) - 1 )'주문건수 totM = rsV(0) If totM = "" Or IsNull(totM) Then totM = 0 End If rsV.close set rsV = Nothing set rsV = objQuery.execute("select count(idx) from E_Order_Main where status in(3) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()) - 1 )'주문건수 bOn = rsV(0) If bOn = "" Or IsNull(bOn) Then bOn = 0 End If bO2 = bOn / 3 rsV.close set rsV = Nothing %> <% set rsV = objQuery.execute("select sum(bPay_amount) from E_Order_Main where status in(3) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()) )'주문건수 totM = rsV(0) If totM = "" Or IsNull(totM) Then totM = 0 End If rsV.close set rsV = Nothing set rsV = objQuery.execute("select count(idx) from E_Order_Main where status in(3) and Year(insert_date) = " & Year(Date()) &" and Month(insert_date) = " & Month(Date()) )'주문건수 bOn = rsV(0) If bOn = "" Or IsNull(bOn) Then bOn = 0 End If bO2 = bOn / 3 rsV.close set rsV = Nothing %>
<%=Month(Date()) - 2%> / <%=Year(Date())%>
$ <%=PriceFormat(totM)%>
On-line
<%=bOn%>
<%=Month(Date()) - 1%> / <%=Year(Date())%>
$ <%=PriceFormat(totM)%>
On-line
<%=bOn%>
<%=Month(Date())%> / <%=Year(Date())%>
$ <%=PriceFormat(totM)%>
On-line
<%=bOn%>


<%'End =========================================================================================================================%>