count.asp:
<%Server.ScriptTimeout=300
id=Trim(Request.QueryString("id"))
fc=Trim(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://" & นามสกุล & 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 {การตกแต่งข้อความ: ไม่มี}
A:link {สี: #0068A3}
A:เยี่ยมชมแล้ว {COLOR: #0068A3}
A:โฮเวอร์ {สี: #2f00ff; การตกแต่งข้อความ: ขีดเส้นใต้}
.ourfont {แบบอักษรขนาด: 9pt }
เนื้อความ { ขนาดตัวอักษร: 9pt}
ตาราง { ขนาดตัวอักษร: 9pt}
-
</สไตล์>
</หัว>
-
countfile=server.mappath("people.asp")
ตั้งค่า fs=CreateObject("Scripting.FileSystemObject")
n=ปี(วันที่())
y=เดือน(วันที่())
r=วัน(วันที่())
s=ชั่วโมง(เวลา())
f=นาที(เวลา())
ม.=วินาที(เวลา())
ถ้า 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 & : & ;: & ม.
'格式化日期、时间
สลัว ly()
ตั้งค่า thisfile=fs.OpenTextFile(countfile,1,False)
นับ=0
ทำในขณะที่ไม่ใช่ thisfile.AtEndOfStream
thisline = thisfile.readline
Redim รักษา ly(นับ)
ly(นับ) = บรรทัดนี้
นับ = นับ + 1
วนซ้ำ '将people.asp中内容读到数组中
ไฟล์นี้.ปิด
เดียวกัน = 0
สำหรับ i=1 ถึง (นับ-1)/2
ถ้า DateDiff("s",ly(i*2),sj)>60 แล้ว
ลี่(i*2-1)=""
ลี่(i*2)=""
นับ=นับ-2
สิ้นสุดถ้า
ถ้า Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) แล้ว
Sameip=1 'IP 已经存在
ลี่(i*2)=sj
สิ้นสุดถ้า
ต่อไป
ตั้งค่า outfile = fs.CreateTextFile (countfile)
สำหรับ i=0 ถึงนับ-1
ถ้า ly(i)<>"" แล้ว
outfile.WriteLine ly (i)
สิ้นสุดถ้า
ต่อไป
ถ้า Sameip=0 แล้ว
outfile.WriteLine Request.ServerVariables ("REMOTE_ADDR")
outfile.WriteLine sj 'ใหม่'
outfile.ปิด
สิ้นสุดถ้า
ตั้งค่า thisfile=fs.OpenTextFile(countfile,1,False)
นับ=0
ทำในขณะที่ไม่ใช่ thisfile.AtEndOfStream
thisline = thisfile.readline
Redim รักษา ly(นับ)
ly(นับ) = บรรทัดนี้
นับ = นับ + 1
วนซ้ำ
ไฟล์นี้.ปิด
Total=(countly-1)/2 '统计总人数
-
<body>
<p><select name="ออนไลน์" size="1">
<option select value="Online"><%=total%>人在线上</option>
-
สำหรับ i=1 ถึงผลรวม
response.write "<option>"&ly(i*2-1)&"</option>"
ต่อไป
-
</select></p>
</ร่างกาย>
</html>
people.asp:
<%Response.end%>
172.16.20.230'IP
2003-06-15 09:53:57'登录时间