Question

ASP数组循环输出赋值的问题

aliang=Rs("Content")
'读取数组数据 格式为:你好,不好,一般,很差,难过......不会超过50个数组
dim str(50)
a=Split(aliang,", ")
i=-1
For Each Strs In a
i=i+1
str(i)= "<li>"&Strs&"<li />"
'------------------------------
str= "<li>"&Strs&"<li />"
response.Write str
'这样已经能够输出所有数据,但是我要赋值到一个变量里 也就是下面的mStr ,直接打印输出不行!
next
mStr = str(i)
'或
mStr = str
都只会输出一条数据 错在哪里? 放循环内 也一样
'mStr = str(0)& str(1)& str(2)&str(3)& str(4)& str(5)&str(6)& str(7)& str(8)&str(9)& str(10)& str(11) &str(12)&str(13)& str(14)& str(15)&str(16)& str(17)& str(18)&str(19))

这个笨办法是可以让数据出来,但是因为是外面还有一个循环 数组长的会赋值,下一个数组如果小于上个数组 多余的str(i) 数组会把上面数组的值 也带下来 肯定不行

求 mStr = 当前数据内的所有数据 按照 str= "<li>"&Strs&"<li />" 这样的格式分割即可 无需照顾首尾

以上为我自己解决的思路,实验已经错误,求解决

50分不多,问题已经说明得非常清楚 求高手解答!

Answer 1

a=Split(aliang,"洞陪, ")
for i=0 to ubound(a)
str= "<li>"&a(i)&"<纳搭蠢枝雹/li >"
response.Write str
next