' Dim CountFile' CouintFile = Server.MapPath("/") & PMM '定义文件存取对象 ' Set FS = Server.CreateObject("Scripting.FileSystemObject") '判断文件是否存在' Do while NOT FS.FileExists(CouintFile)' loop
'设定读取数据的信道'Set InTxtStream = FS.OpenTextFile(CouintFile,2,true)
'将访问计数器的数值读取出来,写入Txt'InTx