简单的ASP网页计数器代码asp
1、在网站目录下新建一个文本文件：txtcounter.txt，在文本填写1或其他数字
2、新建一个asp文件：count.asp，加入以下代码：
<%
CountFile=Server.MapPath("txtcounter.txt")
Set FileObject=Server.CreateOb...
1、在网站目录下新建一个文本文件：txtcounter.txt，在文本填写1或其他数字
2、新建一个asp文件：count.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
%>
3、在需要计数的网页加入一下代码：
2、新建一个asp文件：count.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
%>
3、在需要计数的网页加入一下代码：
总访问<script language="JavaScript" src="count.asp"></script >次
上一篇：手动分页方式显示文章内容
下一篇：简单的ASP网页图片计数器代码
我要评论