% set fs = CreateObject("Scripting.FileSystemObject") set ts = fs.OpenTextFile(Server.MapPath("\") & "/18dfcc/visitor.txt") Do While not ts.AtEndOfStream visitor = ts.ReadAll Loop ts.Close visitor = visitor + 1 set ts = fs.CreateTextFile(Server.MapPath("\") & "/18dfcc/visitor.txt", True) ts.write visitor ts.Close set ts = Nothing set fs= Nothing %>
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|