文件名称:计数器代码
文件大小:3KB
文件格式:TXT
更新时间:2017-09-15 04:55:30
计数器代码
网站访问量统计代码 1.普通文字计数器 第一步,把以下代码复制到记事本,另存为WOSO.ASP,记的要选所有文件进行保存 <% cnt=0 dnt=0 s=Request.ServerVariables("path_translated") Set objFSO = Server.CreateObject("Scripting.FileSystemObject") cName=Server.MapPath("c.cnt") dName=Server.MapPath("d.cnt") Set objCountFile = objFSO.OpenTextFile(cName,1,True) If Not objCountFile.AtEndOfStream Then cnt=CLng(objCountFile.ReadAll) objCountFile.Close Set objCountFile=Nothing cnt=cnt+1 Set objCountFile=objFSO.CreateTextFile(cName,True) objCountFile.Write cnt objCountFile.Close Set objCountFile=Nothing