主题:计数器问题请大俠帮看以下
在网上下了一段图片计数器代码,不用图片可以显示数字,通过了.用了图片就不能显示.不知道是哪一句有病,请指教.
计数器文件代码count.asp:
<%
dim images(20)
CountFile=Server.MapPath("counter.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
countlen=len(counta)
for i=1 to countlen
images(i)="<img src='img/&mid(counter,i,1)&'.gif></img>'"
[u]response.write"document.write('"&images(i)&"'[/u]);"
next
%>
调用文件部分代码:
<p>
您是第
<script language="JavaScript" src="count.asp">
</script>
位来客
</p>
文件都在根下,图片在根下的img中, 哪句错了,请指出.谢谢.
计数器文件代码count.asp:
<%
dim images(20)
CountFile=Server.MapPath("counter.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
countlen=len(counta)
for i=1 to countlen
images(i)="<img src='img/&mid(counter,i,1)&'.gif></img>'"
[u]response.write"document.write('"&images(i)&"'[/u]);"
next
%>
调用文件部分代码:
<p>
您是第
<script language="JavaScript" src="count.asp">
</script>
位来客
</p>
文件都在根下,图片在根下的img中, 哪句错了,请指出.谢谢.