计数器文件代码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>'"
response.write"document.write('"&images(i)&"');"
next
%>
调用文件部分代码:
<p>
您是第
<script language="JavaScript" src="count.asp">
</script> 
位来客
</p>

文件都在根下,图片在根下的img中, 哪句错了,请指出.谢谢.