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]="”#"“

按照这个思路，，但还是写不出来

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

<%
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变量结果就和你给出的上面代码一样，格式也一样，可以直接应用
%>

如果1990-9-22是记录在数据库日期时间字段的话，那很简单了，不用split函数

假设 rs("datatime")=1990-9-22

y=year(rs("datatime"))

m=month(rs("datatime"))

d=day(rs("datatime"))

year、month、day分段是获取时间字符串里的年、月、日函数的