count.asp:
<%Server.ScriptTimeout=300
معرف=تريم(Request.QueryString("id"))
fc=Trim(Request.QueryString("fc"))
إذا fc = "" ثم fc = "FFFF00"
bg=Trim(Request.QueryString("bg"))
إذا كان bg = "" ثم bg = "000000"
bc=Trim(Request.QueryString("bc"))
إذا قبل الميلاد = "" ثم قبل الميلاد = "00FF00"
sername=Request.ServerVariables("SERVER_NAME")
scrname=Request.ServerVariables("SCRIPT_NAME")
linkurl = "http://" & sername & scrname
%>
<أتش تي أم أل>
<الرأس>
<title>البحث عن منتجات جديدة</title>
<META HTTP-EQUIV="Refresh" content="10; URL=<%=linkurl%>"> 'الرابط 10
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<نمط النوع = "نص/css">
<!--
ف {حجم الخط: 9pt؛ لون الخط: #eeeeee}
أ {زخرفة النص: لا شيء}
ج: الرابط {اللون: #0068A3}
ج: تمت الزيارة {اللون: #0068A3}
أ:تحوم {اللون: #2f00ff؛ زخرفة النص: تسطير}
.الخط الخاص بنا {حجم الخط: 9pt }
الجسم {حجم الخط: 9pt}
الجدول {حجم الخط: 9pt}
-->
</نمط>
</الرأس>
<%
countfile=server.mappath("people.asp")
تعيين fs=CreateObject("Scripting.FileSystemObject")
ن=السنة(التاريخ())
ص = الشهر (التاريخ ())
ص=اليوم(التاريخ())
ق=ساعة(الوقت())
و=الدقيقة(الوقت())
م=الثانية(الوقت())
إذا 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
استرداد الاحتفاظ بـ ly(countly)
ly(countly) = thisline
العد = العد + 1
حلقة "people.asp中内容读到数组中"
thisfile. Close
نفس IP=0
لأني = 1 إلى (countly-1)/2
إذا كان DateDiff("s",ly(i*2),sj)>60 إذن
لاي (ط * 2-1) = ""
لاي (ط * 2) = ""
عد = عد-2
نهاية إذا
إذا Request.ServerVariables("REMOTE_ADDR")=ly(i*2-1) إذن
Sameip=1 'IP IP
ly(i*2)=sj
نهاية إذا
التالي
تعيين outfile=fs.CreateTextFile(countfile)
لأني=0 إلى العد-1
إذا ly(i)<>"" إذن
outfile.WriteLine ly(i)
نهاية إذا
التالي
إذا كان Sameip=0 إذن
outfile.WriteLine Request.ServerVariables("REMOTE_ADDR")
outfile.WriteLine sj '添加新记录
outfile.Close
نهاية إذا
اضبط هذا الملف=fs.OpenTextFile(countfile,1,False)
العد = 0
افعل بينما لا يكون هذا الملف.AtEndOfStream
thisline = thisfile.readline
استرداد الاحتفاظ بـ ly(countly)
ly(countly) = thisline
العد = العد + 1
حلقة
thisfile. Close
Total=(countly-1)/2 '统计总人数
%>
<body>
<p><select name="Online" size="1">
<option Selected value="Online"><%=total%>القيمة المحددة</option>
<%
لأني = 1 إلى المجموع
Response.write "<option>"&ly(i*2-1)&"</option>"
التالي
%>
</select></p>
</الجسم>
</html>
People.asp:
<%Response.end%>
172.16.20.230'IP
15-06-2003 09:53:57'