| 您是第：<%
CounterFile = Server.MapPath ("/kjsk/jsq/count.cnt")
Set fs = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
Set a = fs.OpenTextFile(CounterFile, 1, 0, 0)
usercnt = a.Readline
set fs = Nothing
usercnt = FormatNumber(usercnt + 1,0)
Set fs = CreateObject("Scripting.FileSystemObject")
set b = fs.CreateTextFile (CounterFile, 1, 0)
b.WriteLine usercnt
Set b = Nothing
Response.Write usercnt
%>
<% startdate = DateDiff("d",Now,"02/17/2006")
if startdate < 0 then startdate = startdate * -1
avgvpd= Int((usercnt)/startdate)
%>位访问者，日均：
<% Response.Write(avgvpd) %>次
<%#@~^HAEAAA==@#@&/nDPM/F{/.\D ZM+COr4NnmD`Jm[GN(RM+^W.[k+OJ*@#@&k;sxr/+sn1Y~mKUD+UDP6DWsP nhkPAtDn~bN'+E@#@&D/8 Gwx,/5VS^KxU~8SF@#@&rW,xWO~M/qRG6PO4+ @#@&1W O+ YxDkFcT*@#@&s/@#@&1GUYxD'E资料更新中，请稍侯再来访问，感谢您的支持！J@#@&x[PbW@#@&DdqcmVGd@#@&/O,Dd8' WY4k L@#@&mGx R^sK/+@#@&/YP1GUx{xKY4kUL@#@&q00AAA==^#~@%>
|
