global.asa

来自「医药进销存管理系统 全代码 很详细 可惜没有数据库 可供参考」· ASA 代码 · 共 40 行

<script language="vbscript" runat="server">
sub application_onstart
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
if not fs.fileexists(filename) then
  fs.createtextfile(filename)
    set f=fs.getfile(filename)
           s=1
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline(cstr(s))
ts.close
else
    set f=fs.getfile(filename)
    Set ts = f.OpenAsTextStream(1, -2)
    s=ts.readline
    ts.close
end if
application("visitor")=s
end sub
sub Application_onEnd
end sub
sub session_onstart
application.Lock()
session.timeout=5
application("visitor")=application("visitor")+1
filepath=server.mappath("/count")
filename=filepath+"\counter.txt"
set fs=createobject("scripting.filesystemobject")
set f=fs.getfile(filename)
Set ts = f.OpenAsTextStream(2, -2)
ts.writeline (cstr(application("visitor")))
ts.close
application.UnLock()
end sub
sub session_onEnd
application("visitor")=application("visitor")-1
end sub
</script>