최초등록
This commit is contained in:
sp1000je
@@ -0,0 +1,283 @@
|
||||
<!--#include virtual="/manager/common/file/stats_top.asp"-->
|
||||
|
||||
<%
|
||||
Dim qryValue ' 선언해줘야 함!! SetWhere 함수 내에서 사용되는 변수..
|
||||
Dim arrValue(31)
|
||||
Dim arrData(33,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)
|
||||
|
||||
End If
|
||||
|
||||
|
||||
int_YY = "" : If IsNumeric(YY) Then int_yy = Int(YY)
|
||||
int_MM = "" : If IsNumeric(MM) Then int_MM = Int(MM)
|
||||
|
||||
If Len(MM)=1 Then MM = "0"&MM
|
||||
|
||||
|
||||
' where 조건
|
||||
SetWhere()
|
||||
|
||||
|
||||
' 카운터 수의 합을 구한다
|
||||
qry ="select count(vNum) as TCount from visit_counter " & qryValue
|
||||
Set Rs = Dbcon.Execute (qry)
|
||||
sumCount = Rs("TCount")
|
||||
rs.close : Set rs = Nothing
|
||||
|
||||
If YY<>"" And MM<>"" Then
|
||||
temp_d = DateAdd("m",1, YY&"-"&MM&"-01")
|
||||
dataLength = Right(DateAdd("d", -1, temp_d ),2)
|
||||
Else
|
||||
dataLength = 31
|
||||
End If
|
||||
|
||||
|
||||
For i=1 To dataLength
|
||||
arrValue(i) = 0
|
||||
next
|
||||
|
||||
|
||||
' 카운터 수의 합을 구한다
|
||||
qry ="select vDD,count(vNum) as VCount from visit_counter "&qryValue&" group by vDD order by vDD"
|
||||
Set Rs = Dbcon.Execute (qry)
|
||||
|
||||
Do While Not rs.eof
|
||||
arrValue(rs("vDD")) = rs("VCount")
|
||||
rs.movenext
|
||||
Loop
|
||||
rs.close : Set rs = Nothing
|
||||
|
||||
|
||||
|
||||
|
||||
maxCount = 0
|
||||
minCount = 100000
|
||||
|
||||
|
||||
|
||||
For j=1 To dataLength
|
||||
|
||||
arrData(j,0) = arrValue(j) ' 카운터
|
||||
|
||||
If sumCount > 1 then
|
||||
arrData(j,1) = (arrValue(j)/sumCount)* 100
|
||||
if arrData(j,1) > 0 then arrData(j,1) = formatnumber(arrData(j,1),2)
|
||||
|
||||
arrData(j,2) = (arrValue(j)/sumCount) * 550
|
||||
else
|
||||
arrData(j,1) = 0
|
||||
arrData(j,2) = 0
|
||||
End if
|
||||
|
||||
If minCount > arrValue(j) then minCount = arrValue(j)
|
||||
If maxCount < arrValue(j) then maxCount = arrValue(j)
|
||||
|
||||
|
||||
if arrData(j,0) = 0 then
|
||||
arrData(j,0) = ""
|
||||
End if
|
||||
|
||||
if arrData(j,2) = 0 then
|
||||
arrData(j,2) = ""
|
||||
End if
|
||||
|
||||
Next
|
||||
|
||||
%>
|
||||
|
||||
<!-- 내용영역 -->
|
||||
<div id="contents">
|
||||
|
||||
<div id="contents_head">
|
||||
<div id="contents_title">
|
||||
<img src="/manager/img/tit_ic08.gif" width="22" height="21" class="<%=skin%> center" alt="" /> <h1><span>일별 통계</span></h1>
|
||||
</div>
|
||||
<div id="location">
|
||||
<a href="/manager/" tabindex="<%=getTabIndex()%>">Home</a> > <a href="/manager/content/05stats/h.asp" tabindex="<%=getTabIndex()%>">통계자료</a> > <a href="/manager/content/05stats/h.asp" tabindex="<%=getTabIndex()%>">방문자 통계</a> > <a href="/manager/content/05stats/d.asp" class="now" tabindex="<%=getTabIndex()%>">일별</a>
|
||||
</div>
|
||||
</div>
|
||||
|
||||
<!-- 내용들어가는곳 -->
|
||||
<div id="contents_area">
|
||||
|
||||
|
||||
<h2 class="space"></h2>
|
||||
|
||||
|
||||
<div class="write_info">
|
||||
|
||||
<div class="write_form pt7">
|
||||
<form id="frm" action="d.asp" method="post">
|
||||
|
||||
<ul>
|
||||
<li class="search"><label for="YY">일별검색</label> :</li>
|
||||
<li>
|
||||
<select id="YY" name="YY" title="해당 년도 선택" class="stats" tabindex="<%=getTabIndex()%>">
|
||||
<option value="">전체</option>
|
||||
<% For z=2009 To Year(now)%>
|
||||
<option value="<%=z%>" <%If z=int_YY Then response.write "selected='selected'" End If %>><%=z%>년</option>
|
||||
<%next%>
|
||||
</select>
|
||||
</li>
|
||||
<li>
|
||||
<select id="MM" name="MM" title="해당 월 선택" class="stats" tabindex="<%=getTabIndex()%>">
|
||||
<option value="">전체</option>
|
||||
<% For z=1 To 12%>
|
||||
<option value="<%=z%>" <%If z=int_MM Then response.write "selected='selected'" End if%>><%=z%>월</option>
|
||||
<%next%>
|
||||
</select>
|
||||
</li>
|
||||
<li><div id="<%=skin%>_bt"><span class="button"><input type="submit" value="보기" tabindex="<%=getTabIndex()%>" /></span></div></li>
|
||||
<li class="pl10"><div id="w01_bt"><span class="button"><input type="button" value="전체보기" onclick="page_go1('d.asp?TT=Y');" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="<%=Year(now)%>년" class="stats" onclick="page_go1('d.asp?YY=<%=Year(now)%>');" tabindex="<%=getTabIndex()%>" /></span> <span class="button"><input type="button" value="이번달" onclick="page_go1('d.asp?YY=<%=Year(now)%>&MM=<%=month(now)%>');" tabindex="<%=getTabIndex()%>" /></span></div></li>
|
||||
</ul>
|
||||
|
||||
</form>
|
||||
</div>
|
||||
|
||||
</div>
|
||||
|
||||
|
||||
<div class="chart1">
|
||||
<!--#include virtual = "/common/lib/FusionCharts.asp"-->
|
||||
<%
|
||||
strXML = 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='1日' value='"&arrData(1,0)&"' color='B1D361' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(2,0)&"' color='FECC6D' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(3,0)&"' color='E94646' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(4,0)&"' color='7BDCC5'/>"
|
||||
strXML = strXML & "<set name='5日' value='"&arrData(5,0)&"' color='74C2E4'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(6,0)&"' color='828FE3'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(7,0)&"' color='D07CDB'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(8,0)&"' color='D8D8D8'/>"
|
||||
|
||||
strXML = strXML & "<set name='' value='"&arrData(9,0)&"' color='B1D361' />"
|
||||
strXML = strXML & "<set name='10日' value='"&arrData(10,0)&"' color='FECC6D' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(11,0)&"' color='E94646' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(12,0)&"' color='7BDCC5'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(13,0)&"' color='74C2E4'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(14,0)&"' color='828FE3'/>"
|
||||
strXML = strXML & "<set name='15日' value='"&arrData(15,0)&"' color='D07CDB'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(16,0)&"' color='D8D8D8'/>"
|
||||
|
||||
strXML = strXML & "<set name='' value='"&arrData(17,0)&"' color='B1D361' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(18,0)&"' color='FECC6D' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(19,0)&"' color='E94646' />"
|
||||
strXML = strXML & "<set name='20日' value='"&arrData(20,0)&"' color='7BDCC5'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(21,0)&"' color='74C2E4'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(22,0)&"' color='828FE3'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(23,0)&"' color='D07CDB'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(24,0)&"' color='D8D8D8'/>"
|
||||
|
||||
strXML = strXML & "<set name='25日' value='"&arrData(25,0)&"' color='B1D361' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(26,0)&"' color='FECC6D' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(27,0)&"' color='E94646' />"
|
||||
strXML = strXML & "<set name='' value='"&arrData(28,0)&"' color='7BDCC5'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(29,0)&"' color='74C2E4'/>"
|
||||
strXML = strXML & "<set name='30日' value='"&arrData(30,0)&"' color='828FE3'/>"
|
||||
strXML = strXML & "<set name='' value='"&arrData(31,0)&"' color='D07CDB'/>"
|
||||
|
||||
strXML = strXML & "</graph>"
|
||||
|
||||
response.write renderChartHTML("/manager/img/swf/main_colum3d.swf", "", strXML, "myNext", 730, 200,"","","")
|
||||
|
||||
%>
|
||||
</div>
|
||||
|
||||
<div class="list_count pb2">
|
||||
전체 <strong><%=sumCount%></strong>명 방문 (최대 <%=maxCount%>명, 최소 <%=minCount%>명)
|
||||
</div>
|
||||
|
||||
<fieldset>
|
||||
<legend>일별 방문자 통계</legend>
|
||||
<table cellspacing="0" class="bbs_<%=skin%>" summary="일별 방문자를 확인합니다.">
|
||||
<caption>일별 방문자 통계 서식</caption>
|
||||
<colgroup>
|
||||
<col width="60" />
|
||||
<col />
|
||||
<col width="90" />
|
||||
<col width="3" />
|
||||
<col width="60" />
|
||||
<col />
|
||||
<col width="90" />
|
||||
<col width="3" />
|
||||
<col width="60" />
|
||||
<col />
|
||||
<col width="90" />
|
||||
</colgroup>
|
||||
|
||||
<thead>
|
||||
<tr>
|
||||
<th scope="col">일자</th>
|
||||
<th scope="col">방문수</th>
|
||||
<th scope="col">비율(%)</th>
|
||||
<th scope="col"></th>
|
||||
<th scope="col">일자</th>
|
||||
<th scope="col">방문수</th>
|
||||
<th scope="col">비율(%)</th>
|
||||
<th scope="col"></th>
|
||||
<th scope="col">일자</th>
|
||||
<th scope="col">방문수</th>
|
||||
<th scope="col">비율(%)</th>
|
||||
</tr>
|
||||
</thead>
|
||||
|
||||
<tbody>
|
||||
<tr>
|
||||
<%
|
||||
|
||||
td_end = 1
|
||||
|
||||
For z=1 To 33
|
||||
|
||||
%>
|
||||
|
||||
<td scope="row" class="center"><%If z<=Int(dataLength) Then response.write z&"일" End If %></td>
|
||||
<td scope="row" class="center"><% SetDetail(z)%></td>
|
||||
<td scope="row" class="center"><%=arrData(z,1)%></td>
|
||||
|
||||
|
||||
<%
|
||||
|
||||
td_end = td_end + 1
|
||||
|
||||
If td_end = 4 Then ' 3칸째일때
|
||||
|
||||
td_end = 1
|
||||
|
||||
If z <> 33 Then response.write "</tr><tr>"
|
||||
|
||||
else
|
||||
response.write "<td scope='row' class='center'></td>"
|
||||
End if
|
||||
|
||||
next
|
||||
%>
|
||||
|
||||
|
||||
</tr>
|
||||
|
||||
</tbody>
|
||||
</table>
|
||||
</fieldset>
|
||||
|
||||
|
||||
</div>
|
||||
<!-- 내용들어가는곳 -->
|
||||
|
||||
</div>
|
||||
<!-- ' 내용영역 -->
|
||||
|
||||
|
||||
<!--#include virtual="/manager/common/file/sub_bottom.asp"-->
|
||||
Reference in New Issue
Block a user