为什么,我的计数器用不了,请高手指教

[avl1981]

我参照网上的示范,在ASP网页上写了一个计数器;代码如下:
<!-- 插入ASP计数器语句开始 -->
<iframe src="counter.asp" frameborder="0"
scrolling="no" >
</iframe>
<!-- 插入ASP计数器语句结束 -->

counter.asp 代码
<%
dim fso,f,no,I '定义变量
Set fso = CreateObject("Scripting.FileSystemObject") '建立对象的实例
Set f = fso.OpenTextFile(Server.MapPath("count.no"), 1, True) '建立文本文件
if f.AtEndOfStream then '判断这个文件是否不存在
no=1
else
no=f.ReadLine
no=no+1
end if
f.Close
set f=fso.OpenTextFile(Server.MapPath("count.no"),2,True) '准备写
f.Write(no) '写入
f.Close '改进标志1
no=CStr(no) '整齐数字
for i=1 to 5-len(no)
no="0"&no
next
%>
<center>
<font color=green><% =no%></font></center>

运行后,在网页上显示:
技术信息（用于支持人员）

错误类型：
Microsoft VBScript 运行时错误 (0x800A0046)
没有权限
/bys/counter.asp, 第 4 行


浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Poco 0.31)

网页：
GET /bys/counter.asp

时间：
2006年1月17日, 9:33:46

[xueshi]

这是我的 count.asp

<% Function Counts(CounterFile)
Dim objFSO,objTS
Application.lock
Set objFSO=Server.CreateObject("Scripting.FileSystemObject")
Set objTs =objFSO.OpenTextFile(Server.MapPath(CounterFile),1,True)
If Not ObjTS.AtEndOfStream Then
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts +1
objTS.Close
Set objTS=objFSO.OpenTextFile(Server.MapPath(CounterFile),2,True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
End Function %>

[avl1981]

能否把整个写给我.谢谢
包括计数器显示部分.

[avl1981]

大家都回去过年了吗,怎么没有人回答呢???
帮忙呀.速度

[avl1981]

大家帮忙呀