asp简单文本计数器
摘要:Numberofhits:人数在您的文件将增加到每一次您的网页访问。最后一行在此脚本可以让您将显示的点击次数在您的回复页面。
<%
Set fs = CreateObject("Scripting.FileSystemObject")
Wfile=server.mappath("") & "cgi-/asp/asp.html.txt"
on error resume next
Set a = fs.OpenTextFile(Wfile)
hits = Clng(a.ReadLine)
hits = hits + 1
a.close
if error then
hits = 1
end if
Set a = fs.CreateTextFile(Wfile,True)
a.WriteLine(hits)
a.Close
%>
Number of hits: <% =hits %>
人数在您的文件将增加到每一次您的网页访问。最后一行在此脚本可以让您将显示的点击次数在您的回复页面。
【asp简单文本计数器】相关文章:
上一篇:
asp入门:asp如何保存数据
下一篇:
asp 在线人数统计代码