您是第 <% CountFile=Server.MapPath("imgcounter.txt") Set FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) counter=Out.ReadLine Out.Close SET FileObject=Server.CreateObject("Scripting.FileSystemObject") Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) Application.lock counter= counter + 1 Out.WriteLine(counter) Application.unlock countlen=len(counter) if countlen<8 then for i=1 to 8-countlen response.write"" next End if for i=1 to countlen count=mid(counter,i,1) response.write"" next Out.Close %> 位来访者