【文件属性】:
文件名称:计数器(Counter)
文件大小:7KB
文件格式:RAR
更新时间:2017-09-15 02:57:41
计数器
计数器(Counter)
<%
Function Counts(CounterFile)
Dim objFSO, objTS
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then '检查是否到达文件结尾
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
End Function
【文件预览】:
count
----gif()
--------5.gif(219B)
--------2.gif(219B)
--------1.gif(213B)
--------8.gif(223B)
--------3.gif(219B)
--------6.gif(224B)
--------0.gif(221B)
--------9.gif(223B)
--------7.gif(217B)
--------4.gif(218B)
--------Thumbs.db(7KB)
----jishu.txt(5B)
----css.css(4KB)
----count.asp(1KB)