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

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

2009-11-1 来源:中国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 %> 次
Tags:计数器  asp 
相关文章
手机版 Asp新手入门 Asp之家 Aspxhome.com
闽ICP备06017341号