简单的ASP计数器
作者:蛛蛛虎 日期:2010-05-29
代码简单，只有几行：
使用前，需新建：txtcounter.txt，里面输入1。
复制内容到剪贴板
程序代码
程序代码<%
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"您是第"&counter&"位访客"
Out.Close
%>
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"您是第"&counter&"位访客"
Out.Close
%>
上一篇: 在Linux下搭建Nginx+PHP+MySQLWeb服务器
下一篇: windows下批处理自定义IP、子网掩码、网关、dns
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: Asp
相关日志:
评论: 3 | 引用: 0 | 查看次数: -
回复
DUANFK[2010-06-12 06:13 PM | 
| 
| 陕西省 铁通| 
| 取消审核]
发表评论