<%Dim A(10)Dim iDim StrFor i=0 To 10 A(i)=i&".jpg" Str=Str&A(i)&"|"NextStr=Mid(Str,1,Len(Str)-1)Response.Write Str%>
谢谢 BZ