count.asp:
<%Server.ScriptTimeout=300
id=Trim(Request.QueryString("id"))
fc=트림(Request.QueryString("fc"))
fc=""이면 fc="FFFF00"
bg=Trim(Request.QueryString("bg"))
bg=""이면 bg="000000"
bc=Trim(Request.QueryString("bc"))
bc=""이면 bc="00FF00"
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl="http://" & sername & scrname
%>
<html>
<머리>
<title>현재 온라인에서</title>
<META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> '每隔10秒刷新
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<스타일 TYPE="텍스트/css">
<!--
P {글꼴 크기: 9pt; 글꼴 색상: #eeeeee}
A {TEXT-DECORATION: 없음}
답변:링크 {색상: #0068A3}
A:방문했습니다. {COLOR: #0068A3}
답변:hover {COLOR: #2f00ff; 텍스트 장식: 밑줄}
.ourfont {글꼴 크기: 9pt }
본문 { 글꼴 크기: 9pt}
표 { 글꼴 크기: 9pt}
-->
</style>
</head>
<%
countfile=server.mappath("people.asp")
fs=CreateObject("Scripting.FileSystemObject")를 설정합니다.
n=연도(날짜())
y=월(날짜())
r=일(날짜())
s=시간(시간())
f=분(시간())
m=초(시간())
len(y)=1이면 y="0" & y
len(r)=1이면 r="0" & r
len(s)=1이면 s="0" & s
len(f)=1이면 f="0" & f
len(m)=1이면 m="0" & m
sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m
'格式化日期、时间'
희미한 리()
이 파일=fs.OpenTextFile(countfile,1,False)을 설정하십시오.
개수=0
이 파일이 아닌 동안 수행하십시오.AtEndOfStream
thisline = thisfile.readline
Redim 보존 ly(countly)
ly(개수) = thisline
카운티 = 카운티 + 1
루프 '将people.asp中内容读到数组中
이 파일.닫기
같은ip=0
i=1에서 (countly-1)/2까지
if DateDiff("s",ly(i*2),sj)>60 그러면
ly(i*2-1)=""
ly(i*2)=""
카운티=카운트-2
종료하면
if Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) 그러면
sameip=1 'IP 주소가 현재 있습니다.
ly(i*2)=sj
종료하면
다음
outfile=fs.CreateTextFile(countfile) 설정
i=0에서 count-1까지
ly(i)<>""이면
outfile.WriteLine ly(i)
종료하면
다음
sameip=0이면
outfile.WriteLine Request.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '添加新记录
아웃파일.닫기
종료하면
이 파일=fs.OpenTextFile(countfile,1,False)을 설정하십시오.
개수=0
이 파일이 아닌 동안 수행하십시오.AtEndOfStream
thisline = thisfile.readline
Redim 보존 ly(countly)
ly(개수) = thisline
카운티 = 카운티 + 1
고리
이 파일.닫기
total=(county-1)/2 '统计总人数
%>
<body>
<p><select name="Online" size="1">
<옵션 선택 값="온라인"><%=total%>인재상태</option>
<%
i=1에서 합계까지
response.write "<옵션>"&ly(i*2-1)&"</option>"
다음
%>
</선택></p>
</body>
</html>
people.asp:
<%Response.end%>
172.16.20.230'사용户IP
2003-06-15 09:53:57'登录时间