<%
a=server.mappath("count.txt")
set fob=server.createobject("scripting.filesystemobject")
set fsp=fob.opentextfile(a)
application("num")=fsp.readline
if session("ipu")<>request.servervariables("remote_addr") then
application.lock
application("num")=application("num")+1
session("num")=application("num")
application.unlock
end if
set fsc=fob.createtextfile(a)
fsc.writeline application("num")
session("ipu")=request.servervariables("remote_addr")
%>
http://www.phcgzx.com/UploadSoft/diy.asp
