<% Dim qryValue ' 선언해줘야 함!! SetWhere 함수 내에서 사용되는 변수.. Dim curCount(24) Dim arrData(24, 2) YY = inputvalue(request("YY")) MM = inputvalue(request("MM")) DD = inputvalue(request("DD")) TT = inputvalue(request("TT")) If YY="" and MM="" and DD="" and TT="" then YY = Year(now) MM = Month(now) DD = Day(now) End if int_YY = "" : If IsNumeric(YY) Then int_yy = Int(YY) int_MM = "" : If IsNumeric(MM) Then int_MM = Int(MM) int_DD = "" : If IsNumeric(DD) Then int_DD = Int(DD) If Len(MM)=1 Then MM = "0"&MM If Len(DD)=1 Then DD = "0"&DD ' where 조건 Call SetWhere() ' $qryValue = ""; ' 카운터 수의 합을 구한다 qry = "select count(vNum) from visit_counter " & qryValue Set Rs = Dbcon.Execute (qry) totalCount = rs(0) rs.close : Set rs = Nothing ' 배열 초기화 For i=1 To 24 curCount(i) = 0 Next ' 일별 카운터를 구한다 qry = "select vHH, count(vNum) as vC from visit_counter "&qryValue&" group by vHH order by vHH" Set Rs = Dbcon.Execute (qry) sumCount = 0 Do While Not rs.eof vHH = Int(rs("vHH")) vC = Int(rs("vC")) curCount(vHH) = vC sumCount = sumCount + vC rs.movenext Loop rs.close : Set rs = Nothing maxCount = 0 minCount = 100000 For i=1 To 24 If sumCount > 0 then curSize = int((curCount(i)/sumCount) * 540) curPer = formatnumber((curCount(i)/sumCount) * 100, 2) else curSize = 0 curPer = 0 End if if maxCount < curCount(i) then maxCount = curCount(i) End if if minCount > curCount(i) then minCount = curCount(i) End if arrData(i,0) = curCount(i) arrData(i,1) = curSize arrData(i,2) = curPer if arrData(i,0)= 0 then arrData(i,0) = "" End if if arrData(i,2) = 0 then arrData(i,2) = "" End if Next %>

시간별 통계

  • :
<% strXML = "<graph caption='' xAxisName='' yAxisName='' showValues='0' decimalPrecision='0' formatNumberScale='0' showAlternateHGridColor='1' AlternateHGridColor='' divLineColor='F0F0F0' divLineAlpha='' alternateHGridAlpha='5' bgcolor='ffffff' canvasBgColor='ffffff' canvasBaseColor='EAEAEA' canvasBaseDepth='1' canvasBgDepth='0' baseFont='verdana' baseFontSize='9' baseFontColor='999999' hoverCapBgColor='ffffff' hoverCapBorderColor='A6A6A6' hoverCapSepChar=' ' chartLeftMargin='0' chartRightMargin='0' chartTopMargin='5' chartBottomMargin='0'>" strXML = strXML & "<set name='0시' value='"&arrData(24,0)&"' color='B1D361' />" strXML = strXML & "<set name='' value='"&arrData(1,0)&"' color='FECC6D' />" strXML = strXML & "<set name='' value='"&arrData(2,0)&"' color='E94646' />" strXML = strXML & "<set name='' value='"&arrData(3,0)&"' color='7BDCC5'/>" strXML = strXML & "<set name='' value='"&arrData(4,0)&"' color='74C2E4'/>" strXML = strXML & "<set name='5시' value='"&arrData(5,0)&"' color='828FE3'/>" strXML = strXML & "<set name='' value='"&arrData(6,0)&"' color='D07CDB'/>" strXML = strXML & "<set name='' value='"&arrData(7,0)&"' color='D8D8D8'/>" strXML = strXML & "<set name='' value='"&arrData(8,0)&"' color='B1D361' />" strXML = strXML & "<set name='' value='"&arrData(9,0)&"' color='FECC6D' />" strXML = strXML & "<set name='10시' value='"&arrData(10,0)&"' color='E94646' />" strXML = strXML & "<set name='' value='"&arrData(11,0)&"' color='7BDCC5'/>" strXML = strXML & "<set name='' value='"&arrData(12,0)&"' color='74C2E4'/>" strXML = strXML & "<set name='' value='"&arrData(13,0)&"' color='828FE3'/>" strXML = strXML & "<set name='' value='"&arrData(14,0)&"' color='D07CDB'/>" strXML = strXML & "<set name='15시' value='"&arrData(15,0)&"' color='D8D8D8'/>" strXML = strXML & "<set name='' value='"&arrData(16,0)&"' color='B1D361' />" strXML = strXML & "<set name='' value='"&arrData(17,0)&"' color='FECC6D' />" strXML = strXML & "<set name='' value='"&arrData(18,0)&"' color='E94646' />" strXML = strXML & "<set name='' value='"&arrData(19,0)&"' color='7BDCC5'/>" strXML = strXML & "<set name='20시' value='"&arrData(20,0)&"' color='74C2E4'/>" strXML = strXML & "<set name='' value='"&arrData(21,0)&"' color='828FE3'/>" strXML = strXML & "<set name='' value='"&arrData(22,0)&"' color='D07CDB'/>" strXML = strXML & "<set name='23시' value='"&arrData(23,0)&"' color='D8D8D8'/>" strXML = strXML & "</graph>" response.write renderChartHTML("/manager/img/swf/main_colum3d.swf", "", strXML, "myNext", 730, 200, "", "", "") %>
전체 <%=totalCount%>명 방문 (최대 <%=maxCount%>명, 최소 <%=minCount%>명)
시간별 방문자 통계 <% td_end = 1 For z=1 To 24 %> <% td_end = td_end + 1 If td_end = 4 then ' 3칸째일때 td_end = 1 If z <>24 Then response.write "" else response.write "" End if next %>
시간별 방문자 통계 서식
시간 방문수 비율(%) 시간 방문수 비율(%) 시간 방문수 비율(%)
<%=z%>시 <%SetDetail(z)%> <%=arrData(z,2)%>