======제작 원리======
사용자가 웹 페이지에 접속하면 사용자의 정보를 데이터베이스에 추가하는 방법입니다. 추가하는 동안 데이터베이스에 사용자의 온라인 기록이 있는지 확인하십시오. 따라서 업데이트하세요. 레코드가 존재하지 않으면 데이터베이스에 추가하세요.
그리고 지정된 시간 내에 활동이 없는 온라인 기록을 삭제합니다. (아마도 그럴 것입니다!)
======데이터 테이블 디자인========
"온라인"이라는 이름의 새 데이터 테이블을 만듭니다.
자동 번호 필드를 삭제하고 다음 필드를 생성합니다. 필드 이름: ID 유형: 숫자 필드 이름: GUESTNAME 유형: 텍스트 필드 이름: STATS 유형: 텍스트 필드 이름: VISITIME 유형: 날짜/시간 필드 이름: OUTIME 유형: 날짜/시간
=======================소스코드의 다음 부분은 참고용으로 잘 작성되지 않은 부분은 정정해주세요====== ====== ===========
<%
sub activeonline()
희미한 ip
'////180초 이내에 비활성화된 온라인 기록을 삭제합니다.
sql="날짜가 지정된 온라인에서 삭제('s',outtime,now())>180"
Conn.Execute sql
if stats="" then'//stats 값이 비어 있으면 다음과 같이 표시됩니다.
stats="무슨 일을 하는지 모르시나요?"
또 다른
통계=통계
end if
IP=replace(Request.ServerVariables("REMOTE_HOST"),".","")'////IP를 가져오고 IP
'////이미 존재하는지 확인하세요
.온라인 테이블 IP 레코드
sql="select id from online where id='"&ip&"'"
set rs=conn.execute(sql)
if rs.eof 또는 rs.bof then'////IP 레코드가 없으면 온라인 레코드를 추가합니다.
sql="insert into online(id,guestname,stats,visitime,outtime) ) 값 ("&ip&",'Guest','"&stats&"',Now(),Now())"
else'////IP 레코드가 온라인 테이블에 이미 있는 경우 레코드를 업데이트합니다.
sql="update 온라인 설정 시간 =Now(),stats='"&stats&"',guestname='guest' where id='"&ip&"'"
end if
conn.execute(sql)
종료 하위
%>
=========================예제======================== ====
위 코드를 수정하여 "Online.asp"로 저장하고 각 웹 페이지 끝에 삽입하세요.
<%
희미한 conn
희미한 연결
오류 발생 시 다음 재개
connstr="DBQ="+server.mappath("데이터베이스 이름.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver(*.mdb)};"
conn=server.createobject("ADODB.CONNECTION")을 설정합니다.
conn.open 연결
'conn.asp 파일로 저장
%>
<!--#INCLUDE FILE="conn.asp" -->
<%
희미한 stats
stats="온라인 보기"
activeonline() 호출
rs = Server.CreateObject("ADODB.Recordset")를 설정합니다.
sql="ID,GuestName,통계,Visitime,Outtime을 온라인에서 선택하세요. 방문 시간 설명으로 주문하세요."
rs.open sql,conn,1,3
total=rs.RecordCount
%>
<table border="1" cellpadding="2" cellpacing="0" style="border-collapse:collapse" bordercolor="#111111" width="100%" height="53">
<tr>
<td width="20%" height="16" align="center">닉네임</td>
<td width="20%" height="16" align="center">작업</td>
<td width="20%" height="16" align="center">방문</td>
<td width="20%" height="16" align="center">마지막 이벤트</td>
</tr>
<%rs.eof가 아닌 동안 수행%>
<tr>
<td width="20%" height="28" align="center"><%=rs(1)%></td>
<td width="20%" height="28" align="center"><%=rs(2)%></td>
<td width="20%" height="28" align="center"><%=rs(3)%></td>
<td width="20%" height="28" align="center"><%=rs(4)%></td>
</tr>
<%
rs.movenext
고리
%>
</table>
온라인 사용자 수:<%=total%>
<%
RS.닫기
rs=nothing
%><!--#INCLUDE FILE="Online.asp" --> 설정
잘 안 쓰여 있는데 말도 안 돼요. 더 좋은 방법이 있으면 제출해 주세요.