佳世客

<% ''====================== 20070214 zhengyun========================= dim SessionKey dim count count=0 SessionKey="IndexMain" if (Session(SessionKey)="") then dim path dim a dim fs path=server.mappath("count/" & SessionKey & ".txt") Set fs=CreateObject("Scripting.FileSystemObject") if fs.FileExists(path) then Set a=fs.openTextFile(path) count=a.readline a.Close() else end if count=count+1 set ts=fs.createtextfile(path,true) ts.writeline(count) ts.close Session(SessionKey)=count else count=Session(SessionKey) end if ''================================================================ %> 佳世客