Question

关于asp文本记数器的问题!

从网上下了一个可以统计页面访问次数的asp程序.文件有两个:
counter.asp 和counter.cnt,
counter.asp 的内容是:
<%
'******************************************************************************************************
'asp文本记数器
'Powered by myhon
'Date：2006-05-15
'counter.asp：统计点击次数
'counter.cnt：实际是一个文本文件，保存点击的次数
'使用方法：在需要进行记数的页面中加入：<script language="javascript" src="counter.asp"></script>
'注意counter.asp，couner.cnt两个文件引用的路径要正确
'******************************************************************************************************

dim path,myFile,read,write,cntNum
path=server.mappath("counter.cnt")
read=1
write=2
Set myFso = Server.CreateObject("Scripting.FileSystemObject")
set myFile = myFso.opentextfile(path,read)
cntNum=myFile.ReadLine
myFile.close
cntNum=cntNum+1
set myFile = myFso.opentextfile(path,write,TRUE)
myFile.write(cntNum)
myFile.close
set myFile=nothing
set myFso=nothing
%>
document.write('<%=cntNum%>');
counter.cnt的内容:如果把后缀改为.txt 可以看到它的初始值是0.
计数器加入到网页可以正常工作,好,问题来了,现在我们设加了这个文本记数器的页面是:a.htm 我想在另一个网页中显示a.htm的点击次数,也就是用一种方法调用counter.cnt里的值,请问用什么方法,本人菜鸟级,望详细解答,谢谢!

Answer 1

三种方法，在需要的地方插入：
1#
<script language="javascript">
<%
dim path,myFile,read,write,cntNum
path=server.mappath("counter.cnt")
read=1
write=2
Set myFso = Server.CreateObject("Scripting.FileSystemObject")
set myFile = myFso.opentextfile(path,read)
cntNum=myFile.ReadLine
myFile.close
set myFile=nothing
set myFso=nothing
%>
document.write('<%=cntNum%>');
</script>
（网页必须为ASP后缀）
2#<object type="text/html" data="counter.cnt" width=50 height=50></object>
（可以是纯HTM网页）
3#新建一个asp文件，比如counter2.asp
里面是
<%
dim path,myFile,read,write,cntNum
path=server.mappath("counter.cnt")
read=1
write=2
Set myFso = Server.CreateObject("Scripting.FileSystemObject")
set myFile = myFso.opentextfile(path,read)
cntNum=myFile.ReadLine
myFile.close
set myFile=nothing
set myFso=nothing
%>
document.write('<%=cntNum%>');
然后在你需要调用的网页里需要调用地方写：
<script language="JavaScript" src="counter2.asp"></script>

第一种需要服务器执行，但可以做到与网页内容的无缝。
第二种不需要服务器执行，但无法与网页内容无缝。
第三种可以做到网页不必为asp后缀，但同时也能无缝嵌入。
（试试就知道了）

由于我对你的问题还不胜明确，如果有问题可以发百度知道的消息，或者在问题后补充。

Answer 2

\\代码开始
<%
path = "counter.cnt" 'counter.cnt，记数器文本文件的路径
path=server.mappath(path) '获得 counter.cnt 文件的绝对路径
Set myFso = Server.CreateObject("Scripting.FileSystemObject") '建立fso文件读取对象 myFso
set myFile = myFso.opentextfile(path,1) '建立用fso读取 counter.cnt 文件内容的对象 myFile
cntNum=myFile.ReadLine '读取 counter.cnt 文件中的第一行
myFile.close '关闭 myFile 对象
%>
document.write('<%=cntNum%>'); \\这里就是用js显示记数器里面的内容了
\\代码结束

把上面的代码存为一个文件，必须是asp文件 ，比如 ReadNum.asp

然后在要调用的页面写
<script language="javascript" src="ReadNum.asp"></script>
这样就可以调用你之前记录在 counter.cnt 的记数器数字了