 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
count.asp: <%Server.ScriptTimeout=300 id=Trim(Request.QueryString("id")) fc=Trim(Request.QueryString("fc")) if fc="" then fc="FFFF00" bg=Trim(Request.QueryString("bg")) if bg="" then bg="000000" bc=Trim(Request.QueryString("bc")) if bc="" then bc="00FF00" sername=Request.ServerVariables("SERVER_NAME") scrname=Request.ServerVariables("SCRIPT_NAME") linkurl="http://" & sername & scrname %> <html> <head> <title>实时统计在线人数</title> <META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> \\\'每隔10秒刷新 <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <style TYPE="text/css"> <!-- P {FONT-SIZE: 9pt; font-color: #eeeeee} A {TEXT-DECORATION: none} A:link {COLOR: #0068A3} A:visited {COLOR: #0068A3} A:hover {COLOR: #2f00ff; TEXT-DECORATION: underline} .ourfont {font-size: 9pt } BODY { FONT-SIZE: 9pt} TABLE { FONT-SIZE: 9pt} --> </style> </head> <% countfile=server.mappath("people.asp") Set fs=CreateObject("Scripting.FileSystemObject") n=Year(date()) y=Month(date()) r=Day(date()) s=Hour(time()) f=Minute(time()) m=Second(time()) if len(y)=1 then y="0" & y if len(r)=1 then r="0" & r if len(s)=1 then s="0" & s if len(f)=1 then f="0" & f if len(m)=1 then m="0" & m sj = n & "-" & y & "-" & r & " " & s & ":" & f & ":" & m \\\'格式化日期、时间 dim ly() Set thisfile=fs.OpenTextFile(countfile,1,False) countly=0 do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve ly(countly) ly(countly) = thisline countly = countly + 1 loop \\\'将people.asp中内容读到数组中 thisfile.close sameip=0 for i=1 to (countly-1)/2 if DateDiff("s",ly(i*2),sj)>60 then ly(i*2-1)="" ly(i*2)="" countly=countly-2 end if if Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) then sameip=1 \\\'IP已经存在 ly(i*2)=sj end if next set outfile=fs.CreateTextFile(countfile) for i=0 to countly-1 if ly(i)<>"" then outfile.WriteLine ly(i) end if next if sameip=0 then outfile.WriteLine Request.ServerVariables("REMOTE_ADDR") outfile.WriteLine sj \\\'添加新记录 outfile.Close end if Set thisfile=fs.OpenTextFile(countfile,1,False) countly=0 do while not thisfile.AtEndOfStream thisline = thisfile.readline Redim preserve ly(countly) ly(countly) = thisline countly = countly + 1 loop thisfile.close total=(countly-1)/2 \\\'统计总人数 %> <body> <p><select name="Online" size="1"> <option selected value="Online"><%=total%>人在线上</option> <% for i=1 to total response.write "<option>"&ly(i*2-1)&"</option>" next %> </select></p> </body> </html> people.asp: <%Response.end%> 172.16.20.230\\\'用户IP 2003-06-15 09:53:57\\\'登录时间 返回类别: 教程 上一教程: 使用ASP生成HTML文件的实例代码 下一教程: 加密你的ASP页面-SCRIPT ENCODER初探 您可以阅读与"一个实用的FSO-实时统计在线人数"相关的教程: · 一个实用的FSO－实时统计在线人数 · 统计在线人数、每日访问人数和总人数 · 不用GOLOBAL和SESSION实现在线人数统计 · 一种在线人数统计方式（只用1个APPLICATION） · 不用GLOBAL.ASA实现在线人数统计 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
