간단한 웹 사이트 통계를 만드십시오
디자인 아이디어 : 사용자 웹 페이지의 가장 많은 요청 활동이 Conton.asp 파일을 사용하기 위해 서버 SessionID를 기록합니다 사용자는 20 분, 웹 페이지 요청이 없으면이 사용자를 제거하십시오.
1. 데이터 테이블 : 데이터베이스에 두 개의 테이블을 추가합니다.
라인 테이블 : SessionID 문자 유형 20- 고객 웹 페이지 요청의 고유 한 마크를 기록하는 비트
고객의 마지막 웹 페이지 요청 시간 기록을위한 userDate 날짜 시간 유형
ID 자동 번호 유형
이 표에 계정, IP 및 기타 정보와 같은 다른 정보를 기록 할 수도 있습니다.
카운트 테이블 : userDate 날짜 시간 유형은 날짜를 기록하는 데 사용됩니다.
카운트 디지털 유형은 웹 사이트 클릭 볼륨을 기록하는 데 사용됩니다.
오늘날 디지털 유형은 오늘날의 액세스 볼륨을 기록하는 데 사용됩니다.
Max Digital Type은 오늘의 최대 방문을 기록하는 데 사용됩니다.
이 테이블에서는 한 레코드 만 있기 때문에 ID 필드를 사용할 필요는 없지만 ID 필드를 유지하는 것은 좋은 습관입니다.
2. Con.asp를 사용하여 라인 테이블을 처리하십시오
(1) 데이터베이스를 연결합니다
Dim Conn
Dim Connstr
희미한 DB
DB = "날짜/날짜 .mdb"
set conn = server.createobject ( "adodb.connection")
connstr = "제공자 = microsoft.jet.oledb.4.0; data source ="& server.mappath ( ""& db & "")
CONN.OCEN CONNSTR
(2) 시간 초과 레코드를 명확하게합니다
conn.execute ( "datediff (" "s", userDate, now ())> = 1200 "에서 삭제)
(3) 고객 정보를 라인 테이블에 기록하고 사이트의 통계 처리를 수행합니다.
DIM SQL, SQL1, RS, RS1
set rs = server.createobject ( "adodb.oldset")
sql = "select * from where [sessionid] =" "" "& session.sessionid &" ""고객의 초기 웹 페이지 요청 여부를 결정
Rs.OOPEN SQL, CONN, 1,3
Rs.eof가 아니라면 "원래 웹 페이지 요청 인 경우 고객 정보를 기록하십시오. 그렇지 않으면 요청 시간 만 변경합니다.
rs ( "userDate") = now ()
또 다른
rs1 = server.createobject ( "adodb.oldset")를 설정하십시오. "
sql1 = "select * from [count]"
Rs1. -Open SQL1, Conn, 1,3
Rs.eof "라면"테이블에 레코드가 없으면이 테이블을 초기화하십시오.
rs.addnew
rs ( "count") = 1
rs ( "max") = 1
rs ( "오늘") = 1
rs ( "userDate") = date ()
또 다른
rs1 ( "count") = rs1 ( "count") 1 "웹 사이트 클릭 count count
rs1 ( "userDate") = date () 인 경우 "시스템 날짜가 데이터 레코드의 마지막 날짜와 동일하다면 1 방문 1을 추가하십시오 1
rs1 ( "오늘") = rs1 ( "오늘") 1
다른 경우 '다른 경우 Daily Access Volume 1을 설정하고 데이터 레코드 날짜를 서버 날짜로 변경하십시오.
rs1 ( "오늘") = 1
rs1 ( "userDate") = date ()
끝 If
Rs1.update
rs1 ( "max") <= rs1 ( "today") 인 경우, 하루의 통계가 최대 일일 방문을 초과하면 최대 일일 방문을 업데이트하십시오.
rs1 ( "max") = rs1 ( "오늘")
끝 If
끝 If
Rs1.update
Rs1.Close
RS1 = 아무것도 설정하지 않습니다
Rs.Addnew "다음은 사용자의 정보입니다
rs ( "sessionId") = session.sessionId "SessionId를 데이터 테이블에 작성합니다.
rs ( "userDate") = now () 시스템 날짜를 데이터 테이블에 씁니다.
끝 If
Rs.update
Rs.Close
RS = 아무것도 설정하지 않습니다
위의 처리는 웹 사이트 통계에 사용되는 코드를 다음과 같습니다
<!-#포함 파일 = "conn.asp"->
<% dim count, 오늘, Max, Line
set rs = server.createobject ( "adodb.oldset")
sql = "select * from [count]" ""
Rs.OOPEN SQL, CONN, 1,1
오늘 = Rs ( "오늘")
count = rs ( "count")
max = rs ( "max")
Rs.Close
RS = 아무것도 설정하지 않습니다
set rs = server.createobject ( "adodb.oldset")
sql = "줄에서 count (*)를 선택하십시오"
Rs.OOPEN SQL, CONN, 1,1
line = rs (0)
Rs.Close
RS = 아무것도 설정하지 않습니다
%>
우리는 위의 웹 사이트 통계를 준비하고 오늘, max, line을 .ASP 웹 페이지에서 사용하여 write를 사용하고 hTML 문서를 포함시킬 수 있습니다. 아니요, 따라서 우리는 다음 문장을 사용하여 통계 내용을 출력해야합니다.
document.write ( "웹 사이트 방문 : <%= count%> people <br>")
document.write ( "오늘 : <%= 오늘%> 사람들 이이 사이트를 방문했습니다 <br>")
Document.Write ( "이 사이트의 가장 높은 방문 : <%= max%> 사람 <br>")
document.write ( "현재 온라인 : <%= line%> people")
우리는 <script src = "line.asp"> </script>를 사용 하여이 파일을 인용합니다.