怎样用循环接受数据变量 80分

[xlou]

数据的数量不定的，所以在接受的时候应该用循环接受
但我用循环不行
具体代码
dim i,x
i=cstr(request("num"))
for x = 0 to i

sub_t("&x&")=request("text("&x&")")
Response.Write sub_t("&x&")
next
还有在添加的时候是一次添加所有的记录 还是循环一次添加一次比叫好？？

[flyolive]

关注......

[jacklinchen]

dim i,x
i=cint(request("num"))
for x = 0 to i

sub_t(x)=request("text"&x)
Response.Write sub_t(x)
next

[Primer2002cn]

这是我的程序，可能对你有启发:
iControl=split(request("operator"),",") '行和列
strValue=split("Test",",") '初始化
strTtl=split("Test",",") '初始化
for i=1 to cint(iControl(0)) '行
for j=1 to cint(iControl(1)) ' 列
redim preserve strValue(k) ' 重定义,保留值
strC="txt"&i&j '表单元素
strValue(k)=request(strC) '取值
k=k+1 '累加
next
j=j-1
redim preserve strTtl(l) ' 重定义,保留值
'strValue(k)=request("ttlRTotal"&i&j) '表单元素
strTtl(l)=request("ttlRTotal"&i&j) '取值
l=l+1 '累加
next

[nchen123]

sub_t("&x&")=request("text("&x&")")

改成：
sub_t(x)=request("text("&x&")")

[Primer2002cn]

这是我的程序，可能对你有帮助:

iControl=split(request("operator"),",") '行和列
strValue=split("Test",",") '初始化
strTtl=split("Test",",") '初始化
for i=1 to cint(iControl(0)) '行
for j=1 to cint(iControl(1)) ' 列
redim preserve strValue(k) ' 重定义,保留值
strC="txt"&i&j '表单元素
strValue(k)=request(strC) '取值
k=k+1 '累加
next
j=j-1
redim preserve strTtl(l) ' 重定义,保留值
'strValue(k)=request("ttlRTotal"&i&j) '表单元素
strTtl(l)=request("ttlRTotal"&i&j) '取值
l=l+1 '累加
next

[swich]

sub_t(x)=request("text("&x&")")

[skyboy0720]

for each item in request.form
Response.Write item &"="& Request.Form(item) & "
next

[actor2222]

同意楼上的！（深巷明朝卖杏花）好象是的：）

[xlou]

问题解决！ 下面是愿代码！
dim i,x
i=clng(request("num"))
dim sub_t()
redim sub_t(i)
for x = 0 to i
sub_t(x)=request("text"&x)
Response.Write sub_t(x)
next

看来太简单！！

[LunTanZeng]

哈！又学了一招！！

[xlou]

原来我出问题在没有定义sub_t(x) 这个是一个数组 使用的时候应该定义一下！ 而dim一般不让使用变量定义 ！只好再redim了！简单！