<%
firecount=5
supfireone="1fire1#"
supfiretow="2fire2#"
supfirethrfire="3fire3#"
supfirefour="4fire4#"
supfirefive="5fire5"
Dim firestr '定义数组
firestr = Array(supfireone,supfiretow,supfirethrfire,supfirefour,supfirefive)
'循环控制开始
for i=1 to firecount
supfire=firestr(i-1)
response.write supfire
next
%>