Question

asp计数器代码问题 图片路径出现题。

<% @language="VBScript"%>
<% dim images(20)
'定义一数组，用来存放显示每一位数字图像的语句
CountFile=Server.MapPath("imgcounter.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
countlen=len(counter)
'得到计数器值的位数
for i=1 to countlen
images(i)="<img src="&"http://localhost/leongyang%20web/images/";&"/" & mid(counter,i,1) & ".gif></img>"
'由循环语句得到各个位上数值对应图象的显示代码（html）,并把它存在数组中
'具体使用时请注意图象的实际服务器及目录路径
response.write"document.write('"&images(i)&"');"
'调用函数Document.write输出显示数字图象的HTML代码
next
Out.Close
%>
错误是这样的。
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp，行242

Microsoft VBScript 编译器错误 错误 '800a0401'

语句未结束

/leongyang web/imgcounter.asp，行18

images(i)="<img src="&"http://localhost/leongyang%20web/images/";&"/" & mid(counter,i,1) & ".gif></img>"

急啊
小女子先行谢过了

Answer 1

images(i)="<img src="&"http://localhost/leongyang%20web/images/";&"/" & mid(counter,i,1) & ".gif></img>"

改成
images(i)="<img src=""http://localhost/leongyang%20web/images/"&"/" & mid(counter,i,1) & ".gif></img>"