Question

请教一个ASP计数器的问题

我要在http://www.lanlan-hr.com/image/kongjian/index.htm中插入一个ASP的计数器，我制作的方法如下：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。在需要计数的网页加入：总访问<script language="JavaScript" src="count.asp">次
完毕以后计数器无法显示，麻烦您看看哪里有问题?
我做了好几年的网页了一直停留在HTML阶段,纯属自学,无人指导,总感觉突破不了ASP这瓶颈,希望此自亲身制作一个ASP计数器来做为开端,哪位大大能够详细指点下,不盛感激,希望能有详细的1、2、3的制作步骤，只需要纯文本的计数器，如果效果满意将补赠高分。

Answer 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

Out.Close
%>

document.write("<%=counter%>")

Answer 2

你要学ASP，以其做这个计数器，不如自己弄一个ASP+ACESS的留言板
因为计数器仅用到FSO，而留言板则可以和数据库连接
－－－－－－－
你以上代码是ASP的代码，但是调用的时候用JS了，怎么可能正常？
<script language="VBScript" src="count.asp">可能也不行
因为ASP是服务器脚本，VBscript是页面脚本

Answer 3

你从文本里读取的“1”是字符串，你做counter + 1 前应该将counter保存的字符串“1”转为整数型1。

Answer 4

我按照你的代码测试是没有问题的。请检查：1txtcounter.txt 和count.asp是否在同一目录下；2空间是否支持FSO