1. 데이터베이스 테이블을 만듭니다
테이블 이름은 온라인입니다
다음 필드를 설정하십시오
id '는 세션을 기록하는 데 사용됩니다. 각 액세스의 SessionID
이름이 방문자라면 방문자로 기록됩니다.
온라인으로 방문하는 경우, 멤버 1 인 경우 각각 0입니다.
DateTime'Latest 이벤트
사용자 이름 '회원의 로그인 사용자 이름, 방문자가 비어 있습니다.
모든 로그인 IP에 대한 IP'Record 액세스
Head.asp '는 온라인으로 데이터베이스 테이블에 인원 수를 씁니다. 페이지를 ASP를 탐색하는 데 사용되는 각 페이지에서 페이지를 검색해야합니다.
<%
setrs = server.createobject ( "adodb.recordset")
ifsession ( "username") = ""그런 다음 사용자가 로그인하지 않은지 결정합니다
sql = "select*fromlinewhowsid = '"& session.sessionId & "'" ' "' '이 세션 디자인이 데이터베이스 테이블에 있는지 여부를 결정하십시오.
Rs.Opensql, Conn, 1,3
ifrs.eofthen'visitor의 첫 번째보기
rs.addnew
rs ( "id") = session.sessionId
rs ( "이름") = "게스트"
RS ( "온라인") = 0'0은 사용자가 로그인되지 않았으며 관광객의 신원임을 의미합니다.
rs ( "dateTime") = now ()
userip = request.servervariables ( "http_x_forwarded_for")
ifuserip = ""그런 다음
userip = request.servervariables ( "remote_addr")
endif
RS ( "IP") = userip
그렇지 않으면 방문객이 처음 찾아보십시오
rs ( "dateTime") = now () '활동 시간 업데이트
Rs.update
Rs.Close
endif
또 다른
sql = "select*fromlinewhowsid = '"& session.sessionId & "'oradmin = '"& session ( "username") & "'" "" "SessionID 또는 사용자 이름 레코드가 이미 데이터 테이블에 존재한다고 판단하십시오.
Rs.Opensql, Conn, 1,3
ifrs.eofthen
Rs.AddNew '회원은 처음으로 웹 사이트를 입력합니다 (웹 사이트 홈페이지에서 직접 로그인하여 포럼에 입장 할 수 있음).
rs ( "id") = session.sessionId
rs ( "name") = session ( "show") '사용자 별명에 쓰기
rs ( "username") = session ( "username") '로그인 사용자 이름을 쓰십시오
rs ( "온라인") = 1 '은 사용자가 로그인했으며 회원임을 의미합니다.
rs ( "dateTime") = now () '현재 시스템 시간을 사용자의 로그인 시간으로 설정
userip = request.servervariables ( "http_x_forwarded_for")
ifuserip = ""그런 다음
userip = request.servervariables ( "remote_addr")
endif
RS ( "IP") = userip
else // 회원이 처음으로 웹 사이트를 탐색하지 않고 방문자가 웹 사이트에 로그인합니다.
rs ( "name") = session ( "show") 사용자 별명을 업데이트합니다