Description
图形标记 ll="counter/" For i = 1 to Len(S) G = G & "
" Next GCounter = G End Function Sub IncrementCounter() ' 建立一 FileSystemObject 对象 Set fs = Server.CreateObject("Scripting.FileSystemObject") counter_file = Server.MapPath("counter/counter.txt") ' 启动 /counter.txt 文件,并且读取记录在文件中的 counter Set txt = fs.OpenTextFile( counter_file ) Counter = txt.ReadLine txt.Close ' 将计数器加一 Counter = Counter + 1 ' 将计数器写入 /counter.txt 文件之中 Set txt = fs.CreateTextFile( counter_file, True ) txt.WriteLine(Counter) txt.Close End Sub Application.Lock IncrementCounter ' 将访问者计数器加一,并写入文件中 Application.UnLock %>
哈药集团世一堂制药厂
Languages
中文 (Chinese)
Additional Information