网络编程
位置:首页>> 网络编程>> Asp编程>> 可以举出一个最简单的计数器吗?

可以举出一个最简单的计数器吗?

 来源:asp之家 发布时间:2009-11-01 15:37:00 

标签:计数器,asp

简单计数器代码如下所示:

<% 
Set fs = CreateObject("Scripting.FileSystemObject") 
Set a = fs.OpenTextFile("d:\shanliangrizi\aspcounter.txt") 
counter= Clng(a.ReadLine) 
counter = counter + 1 
a.close 
Set a = fs.OpenTextFile("d:\shanliangrizi\aspcounter.txt") 
a.WriteLine(counter) 
a.Close 
Set a=nothing 
Set fs=nothing 
%>

 

 现已点击: <% =ct %> 次

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com