静态网页计数器（高分---200分）

静态网页计数器（高分---200分）

1.一个asp文件，一个计数的count.txt文件

asp文件

==========

<%

CountFile=Server.MapPath("count.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&")"

Out.Close

%>

==========

保存为count.asp，同目录下放一文本文件count.txt，初始数值为任意数字

2.在需要计数的网页加入：

<script language="JavaScript" src="count.asp"></script>

也可以再加一些修饰性的文字，如

你是本站的第 <script language="JavaScript" src="count.asp"></script> 个访问者

可以加在网页的任何你想要出现的地方

标签：---,高分