如何做一个可以让人家申请使用的计数器?
时间:2010-07-11 21:17:00
如何做一个可以让人家申请使用的计数器?
好了,我们来做一个与页面分离的计数器,是文本型的啦。这也很简单,只要照前写好了计数器,再在页面加入一句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>
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
谈切图优化加速图片显示—淘宝实例
![](https://img.aspxhome.com/file/UploadPic/20081/30/200813012349773s.gif)
xhtml+css VS div+css
解决IIS出现Active Server Pages错误“ASP 0201”
![](https://img.aspxhome.com/file/UploadPic/20093/9/200939182949746s.jpg)
条件CSS的使用[译]
![](https://img.aspxhome.com/file/UploadPic/20093/12/01-51s.jpg)
Linux ORCLE数据库增量备份脚本
Oracle的数据字典技术简析
浅谈SQL Server中统计对于查询的影响分析
![](https://img.aspxhome.com/file/UploadPic/20126/6/201266202523378.png)
asp 延时 页面延迟的三种方法
如何让IIS支持wap,让ASP生成wml
如何把数据库的记录输出到表格去?
使用IP地址来统计在线人数方法
Oracle数据操作和控制语言详解
Array.prototype.slice
HTML 5新增的元素
mysql使用LOAD语句批量录入数据
成为一个顶级设计师的第三准则
![](https://img.aspxhome.com/file/UploadPic/20099/15/01-52s.jpg)
Asp下Access无法更新的解决方法
VBScript中变量作用域
CSS编写过程中常见的10个错误
手工打造极酷的分离式滑动门导航菜单
![](https://img.aspxhome.com/file/UploadPic/20095/25/mt1-26s.gif)