count.asp

来自「嘉缘人才6.0精简 ,很好用的人才系统」· ASP 代码 · 共 35 行

<%
Option Explicit

dim fs,sortfiles,file_names,visitor_s,index_s,right_s,max_s,tim_s,out,types
types=trim(request("type"))
if types="" or isnull(types) or not(isnumeric(types)) then
  types=1
else
  types=int(types)
end if

Set fs = CreateObject("Scripting.FileSystemObject")
sortfiles=server.mappath("index.inc")
Set file_names = fs.OpenTextFile(sortfiles)
index_s=file_names.readline

visitor_s=int(left(index_s,(Instr(index_s,"|")-1)))
right_s=right(index_s,(len(index_s)-len(visitor_s)-1))
max_s=int(left(right_s,(Instr(right_s,"=")-1)))
tim_s=right(right_s,(len(right_s)-len(max_s)-1))
visitor_s=visitor_s+types
if int(Application("OnLine"))>max_s then
  max_s=int(Application("OnLine"))
  tim_s=now
end if
index_s=visitor_s & "|" & max_s & "=" & tim_s
file_names.close
    
Set out=fs.CreateTextFile(sortfiles)
out.WriteLine(index_s)
out.close
set fs=nothing
%>