您所在位置：主题：vbscript代码，请高手修改哈，那里错了 谢谢
lipenggege
[专家分：0] 发布于 2008-04-28 11:40:00
计数器代码：
你是第
<%
dim visitors
whichfile=server.mappath("counter/counter.txt")
set fs=server.createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to 5-countlen
response.write "<img src=counter/0.gif>"
next
for i=1 to countlen
response.write "<img src=counter/" & mid(visitors,i,1) & ".gif></img>"
next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%>
位访问者
提示错误：Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/DEFAULT.ASP，行 31
请高手修改下 谢谢
你是第
<%
dim visitors
whichfile=server.mappath("counter/counter.txt")
set fs=server.createobject("Scripting.FileSystemObject")
set thisfile=fs.opentextfile(whichfile)
visitors=thisfile.readline
thisfile.close
countlen=len(visitors)
for i=1 to 5-countlen
response.write "<img src=counter/0.gif>"
next
for i=1 to countlen
response.write "<img src=counter/" & mid(visitors,i,1) & ".gif></img>"
next
visitors=visitors+1
set out=fs.createtextfile(whichfile)
out.writeline(visitors)
out.close
set fs=nothing
%>
位访问者
提示错误：Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/DEFAULT.ASP，行 31
请高手修改下 谢谢
