首页 >> Asp教程 >> Asp新手入门>> 可以举出一个最简单的计数器吗?正文

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

Asp新手入门 时间:2009-11-1 

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

<% 
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 %> 次
标签:计数器 asp 

猜你喜欢:

电脑版 asp之家Asp教程
m.aspxhome.com 闽ICP备06017341号