Question

asp程序，把循环输出的结果赋给一个变量

bannerAD[0]="images/0.jpg";
bannerADlink[0]="#"
bannerAD[1]="images/1.jpg";
bannerADlink[1]="#"
bannerAD[2]="images/2.jpg";
bannerADlink[2]="#"
——————————————
怎样通过循环输出这些代码后然后赋给一个变量呢？
定义一个变量str
str=“bannerAD[0]=“"images/0.jpg"”; ”&vbcrlf& _
“bannerADlink[0]="”#"“

按照这个思路，，但还是写不出来
想把循环输出的内容都赋给一个变量，这是一个图片展示代码，前后还有其它的一些代码，目的就是最后通过一个变量来输出整个图片展示特效。

Answer 1

<%
Dim strTemp, i, StartNum, EndNum
StartNum = 0
EndNum = 2
strTemp = ""
For i = StartNum To endNum
strTemp = strTemp & "bannerAD["& i &"]=""images/"& i &".jpg"";"& vbCrLf & "bannerADlink["& i &"]=""#"""& vbCrLf & ""
Next
Response.Write strTemp
'运行后，浏览器菜单栏--查看--查看源代码，这里输出的strTemp变量结果就和你给出的上面代码一样，格式也一样，可以直接应用
%>

Answer 2

str="images/0.jpg|images/1.jpg|images/2.jpg"
strkey=split(str,"|")
for i=0 to ubound(strkey)
response.write "bannerAD["&i&"]=""" &strkey(i)& """;"&vbcrlf
response.write "bannerADlink["&i&"]=""#"""&vbcrlf
next