在asp中 for each 语句怎么用，什么意思。说具体点

显示全部楼层 · 2007-5-28 05:30:15

金鹰ASP视频：For Each循环语句http://www.ibook8.com/tech/asp/asp_33.html例子dim saveitem
saveitem=array("Name","address","telephone","fax","QQ","mobile","webpage","email","postCode","birthday")
function savedata(item)
for each item in saveitem
myitem=Replace(Trim(Request.form(item)),"'","")
if myitem"" Then
rs(item)=myitem
end if
next
end function
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.open "Select * from guestbook where id is null",conn,1,3
Rs.AddNew
Application.Lock
Call savedata(item)
Rs.update
Application.UnLock
Call Close()
Response.write ""

千问 · 2007-5-28 05:30:15

For Each...Next: 对于集合中的每项或数组中的每个元素，重复执行一组语句。For Each...Next 循环与 For...Next 循环类似。For Each...Next 不是将语句运行指定的次数，而是对于数组中的每个元素或对象集合中的每一项重复一组语句。这在不知道集合中元素的数目时非常有用。它的语法如下：
For Each element In group [statements] Exit For
[statements]Next [element]如果 group 中有至少一个元素，就会进入 For Each 块执行。一旦进入循环，便首先对 group 中第一个元素执行循环中的所有语句。只要 group 中还有其他的元素，就会对每个元素执行循环中的语句。当 group 中没有其他元素时退出循环，然后从 Next 语句之后的语句继续执行。

千问 · 2007-5-28 05:30:15

精彩～～

千问 · 2007-5-28 05:30:15

不就是几个循环哦!

千问 · 2007-5-28 05:30:15

For Each...Next 语句对数组或集合中的每个元素重复执行一组语句。For Each element In group[statements][Exit For][statements]Next [element]参数element用来枚举集合或数组中所有元素的变量。对于集合，element 可能是 Variant 变量、通用 Object 变量或任意指定的 Automation 对象变量。对于数组，element 只能是 Variant 变量。group对象集合或数组的名称。statements对于 group 中的每一项执行的一条或多条语句。说明如果 group 中有至少一个元素，就会进入 For Each 块执行。一旦进入循环，便首先对 group 中第一个元素执行循环中的所有语句。只要 group 中还有其他的元素，就会对每个元素执行循环中的语句。当 group 中的没有其他元素时退出循环，然后从 Next 语句之后的语句继续执行。Exit For 只能用于 For Each...Next 或 For...Next 控制结构中，提供另一种退出循环的方法。可在循环的任意位置放置任意个 Exit For 语句。Exit For 经常和条件判断语句一起使用（例如 If...Then），并立即将控制权转移到 Next 之后的语句。可以将一个 For Each...Next 循环放置在另一个之中，组成嵌套式 For Each...Next 循环。但是每个循环的 element 必须是唯一的。注意如果省略 Next 语句中的 element，则程序仍会象已包含它一样继续执行。如果 Next 语句在其相应的 For 语句之前出现，则会产生错误。下面例子举例说明如何使用 For Each...Next 语句: Function ShowFolderList(folderspec)Dim fso, f, f1, fc, sSet fso = CreateObject("Scripting.FileSystemObject")Set f = fso.GetFolder(folderspec)Set fc = f.FilesFor Each f1 in fc
s = s & f1.name
s = s & "
"NextShowFolderList = sEnd Function要求版本 2请参阅Do...Loop 语句 | Exit 语句 | For...Next 语句 | While...Wend 语句参考资料：http://dev.w3pub.com/doc/vbscript/html/vsstmForEach.htm

已赞过已踩过<