网络编程
位置:首页>> 网络编程>> Asp编程>> 如何做一个可以让人家申请使用的计数器?

如何做一个可以让人家申请使用的计数器?

  发布时间:2010-07-11 21:17:00 

标签:计算器,asp

如何做一个可以让人家申请使用的计数器?


    好了,我们来做一个与页面分离的计数器,是文本型的啦。这也很简单,只要照前写好了计数器,再在页面加入一句JavaScript语句引用它就行了:

txtcounter.asp

<% 
CountFile=Server.MapPath("txtcounter.txt") 
Set FileObject=Server.CreateObject("Scripting.FileSystemObject") 
Set Out=FileObject.OpenTextFile(CountFile,1,FALSE,FALSE) 
counter=Out.ReadLine 
Out.Close 
SET FileObject=Server.CreateObject("Scripting.FileSystemObject") 
Set Out=FileObject.CreateTextFile(CountFile,TRUE,FALSE) 
Application.lock 
counter= counter + 1 
Out.WriteLine(counter) 
Application.unlock 
Response.Write"document.write("&counter&")"
' 为正确显示计数器的值,调用VBScript函数Document.write
Out.Close
%> 
我们在要计数的页面加入如下的代码引用:
<p>
欢迎光临精彩春风,您是第<font color=red>
<script language="JavaScript" src="http://202.202.202.202/chunfeng/counter/txtcounter.asp">
//计数器所在的服务器及目录路径
</script>
</font>
位来访者!
</p>

0
投稿

猜你喜欢

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