<% Dim qryValue ' 선언해줘야 함!! SetWhere 함수 내에서 사용되는 변수.. YY = inputvalue(request("YY")) MM = inputvalue(request("MM")) DD = inputvalue(request("DD")) If YY="" Then YY = Year(now) If MM="" Then MM = month(now) If DD="" Then DD = day(now) If Len(MM)=1 Then MM = "0"&MM If Len(DD)=1 Then DD = "0"&DD 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) ' where 조건 SetWhere() ' 카운터 수의 합을 구한다 qry ="select count(vNum) as TCount from visit_counter " & qryValue Set Rs = Dbcon.Execute (qry) totalCount = rs(0) rs.close : Set rs = Nothing qry = "select vIP,vBrowser,vOS,vHH,vMT,vURL from visit_counter "&qryValue&" order by vNum desc" Set Rs = Dbcon.Execute (qry) If rs.eof Then vCnt = -1 Else vData = rs.getrows() vCnt = UBound(vData,2) End If rs.close : Set rs = Nothing %>

방문자 접속위치정보

  • :
전체 <%=totalCount%>명 방문
방문자 접속위치정보 통계 <% If vCnt>-1 Then num = totalCount For j=0 To vCnt Call arr2Value("vIP,vBrowser,vOS,vHH,vMT,vURL", "vData", j) If vURL = "" then vURL_str = "주소직접입력 또는 즐겨찾기를 이용한 방문" else vURL = replace(vURL, "&", "&") wo = "javascript:void(window.open('"&vURL&"'));" vURL_str = ""&StringToHTML(vURL, 60, false )&"" End If %> <% num = num -1 next End if %>
방문자 접속위치정보 통계 서식
번호 링크된페이지(REFER_URL) 운영체제 / 브라우저 방문시각 / 방문자 IP
<%=num%> <%=vURL_str%> <%=SetOS(vOS)%>
<%=SetBrowser(vBrowser)%>		 <%=right("0"&vHH,2)%> : <%=right("0"&vMT,2)%>
<%=vIP%>