论坛: 编程破解 标题: vbscript中的循环问题（还有其他问题） 复制本贴地址    
作者: lauka [lauka]    论坛用户   登录
我想用一个循环嵌套，外层用whlie....wend
内层用什么都不行，

设了一个变量xxxx，在另一个函数中返回一个这个变量的值，想用它来作为循环条件
于是也了，for i(新变量）=1 to xxxx,可是没有成功，好像用for语句必须是两个数字
用while时，只循环第一层，外层没有反应，请大家帮忙


[此贴被 lauka(lauka) 在 12月18日11时27分 编辑过]

地主 发表时间: 12/17 09:08
回复: 286 [unique]   版主   登录
不可能。把源代码相关部分贴出来。大家看看。

B1层 发表时间: 12/17 09:29
回复: 286 [unique]   版主   登录
我用ASP试的。
<%
a=0
while a<3
b=0
while b<3
response.write CStr(a)+"----"+CStr(b)+"<br>"
b=b+1
wend
a=a+1
wend
%>
结果为：0----0
0----1
0----2
1----0
1----1
1----2
2----0
2----1
2----2


B2层 发表时间: 12/17 09:30
回复: 286 [unique]   版主   登录
<%
a=0
while a<3
for b=0 to 3
response.write CStr(a)+"----"+CStr(b)+"<br>"
next
a=a+1
wend
%>
结果为：
0----0
0----1
0----2
0----3
1----0
1----1
1----2
1----3
2----0
2----1
2----2
2----3


B3层 发表时间: 12/17 09:31
回复: lauka [lauka]   论坛用户   登录
sub xxxx()
sql = "select * from table"
rs.open sql,cn,0,1
rs.movefirst

while not rs.eof

response.Write("<tr>")

    while i < labeljian
    data = "<td>" & rs(""+MyArray(i)+"") & "</td>"
response.Write(data)
        i=i+1
wend



response.Write("</tr>")

   
rs.movenext
wend

end sub

B4层 发表时间: 12/17 11:03
回复: 286 [unique]   版主   登录
sub xxxx()
sql = "select * from table"
rs.open sql,cn,0,1
rs.movefirst

while not rs.eof

'=================================================
i=0
'=================================================
response.Write("<tr>")

    while i < labeljian
    data = "<td>" & rs(""+MyArray(i)+"") & "</td>"
response.Write(data)
        i=i+1
wend



response.Write("</tr>")

   
rs.movenext
wend

end sub

B5层 发表时间: 12/17 11:42
回复: lauka [lauka]   论坛用户   登录
斑竹我忘了说了，已开始我都设了
dim i
dim myarray(50)
dim labeljian
i=0



B6层 发表时间: 12/17 12:49
回复: 286 [unique]   版主   登录
主要是i=0的位置

B7层 发表时间: 12/17 14:41
回复: lauka [lauka]   论坛用户   登录
是啊，太感谢斑竹了，能告诉我为什么吗？位置这么重要吗？

B8层 发表时间: 12/17 15:02
回复: lauka [lauka]   论坛用户   登录
还有，请问斑竹，dim myarray()当括号中没有数时，就显示下标越界: 'MyArray'

我是想这个数组用来储存动态数据，所以怎么办啊　

B9层 发表时间: 12/17 15:06
回复: 286 [unique]   版主   登录
没有i=0，第一轮循环后i已> labeljian，再循环也一样，当然等于循环了一次。

B10层 发表时间: 12/17 17:23
回复: lauka [lauka]   论坛用户   登录
谢谢，能回答我上个问题吗？

还有一个问题：
1.asp中的一个表单<form name="form1" action="2.asp" method="post">
 
  <input type="text" name="dddd">
  <input type="submit" name="Submit" value="提交">
</form>
我想把这个页的这个表单的输入的信息提交给网页2.asp中的一个函数，该怎么办啊
总做不到，如果不用函数就可以，可是一加函数，我在<form>中加入onsubmit="rrr()"还是
不行，请教，谢谢

B11层 发表时间: 12/18 11:41
回复: 286 [unique]   版主   登录
也可用带空圆括号的 Dim 语句来声明动态数组。声明动态数组后，可在过程内使用 ReDim 语句来定义该数组的维数和元素。如果试图重新定义在 Dim 语句中已经显式指定维数的数组，则会发生错误。

在2.asp中得到所输入的数,然后把值作为形参再调用函数.



B12层 发表时间: 12/18 13:04

论坛: 编程破解

20CN网络安全小组版权所有
Copyright © 2000-2010 20CN Security Group. All Rights Reserved.
论坛程序编写：NetDemon

粤ICP备05087286号