 | |||
| |||
 | |||
| 欢迎光临大洋药业（烟台大洋制药有限公司）网站，现在的访问量是 <% '一个简单的计数器程序 Set fs=CreateObject("Scripting.FileSystemObject") Set a=fs.openTextFile(server.mappath("count.txt")) count=a.readline response.write "：" & count count=count+1 Set fs = CreateObject("Scripting.FileSystemObject") Set a=fs.createTextfile(server.mappath("count.txt")) a.writeline (count) %> | |||
