有关文本计数器的问题
cicii 2003-09-25 11:16:40 我想在页面中放一个ASP的文本计数器,在网上找到的代码,可是在IIS下面,那个ASP文件就是一直在读,不知道为什么,请大家帮我看看。
index.htm的内容:
<p>
你是第<font color=red>
<script language="JavaScript" src="txtcounter.asp">
</script>
</font>
位来访者</p>
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&")"
Out.Close
%>