Question

ASP网页计数器问题

我想在公司的首页上显示访问统计,我的做法分为以下几步,可是显示不出数字来．希望大家帮助一下~

1.网页所在的文件夹里建了一个txtcounter.txt 里面写入的数字为1000
2.用以下代码在相同文件夹里建了个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
%>

3.之后又在主页上的代码中输入以下代码：

<p class="style2 style3">
您是第

<script language="JavaScript" src="http://202.101.209.75/Xhdoc/txtcounter.asp">
</script>

位来客
</p>

上传到公司网站后，只显示：您是第 位来客．没显示那1000，也没有提示．
哪里出错了啊？？
公司的网站是静态HTML

Answer 1

这个是我网站中的程序
=============================
这个相当与你的txtcounter.asp
注意你修改一下读取记数的文件位
置,我的是在/count/counter.txt
中
=============================

<% AbsoluteFile = Server.MapPath("/count/counter.txt")
Set objFso = Server.CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile(AbsoluteFile)
Num = objFile.ReadLine
objFile.close
Set objFile = Nothing
For i=1 To Len(Num)
Response.Write Mid(Num, i, 1)
Next
If IsEmpty(Session.Value("Num")) Then
Num = Num + 1
Num = Right("000000" & Num, 6)
Set objFile = objFso.CreateTextFile(AbsoluteFile)
objFile.WriteLine(Num)
objFile.Close
Set objFile = Nothing
End If
Set objFso = Nothing
Session.Value("Num") = True %>

============================
这个是我在主页中加的代码
============================
<td width="228" height="27" bgcolor="CFCFCF" align="center">您是第 <!-- #include file="count/counter.asp" --> 位访客</td>

补充:我的也是静态HTML

Answer 2

Response.Write"document.write("&counter&")"
这句错了，改一下：
Response.Write "document.write('"&counter&"')"