ASP数组/集合遍历示范

在Asp中如何遍历数组？

1. 
   
2. ' 创建一个固定数组
   
3. dim companies(2)
   
4. 
   
5. ' 填充数组
   
6. set companies(0) = Company1
   
7. set companies(1) = Company2
   
8. set companies(2) = Company3
   
9. 
   
10. ' 遍历数组方法1
    
11. dim company
    
12. for each company in companies
    
13.     response.write company   '公司名
    
14. next
    
15. 
    
16. ' 遍历数组方法2
    
17. dim i
    
18. for i = 0 to ubound(companies)
    
19.     response.write companies(i)  '公司名
    
20. next
    

复制代码

在ASP中如何遍历集合？

1. 
   
2. 方法1：
   
3. dim cars(2),x
   
4. cars(0)="Volvo"
   
5. cars(1)="Saab"
   
6. cars(2)="BMW"
   
7. 
   
8. For Each x in cars
   
9.   response.write(x & "<br ")
   
10. Next
    
11. 
    

复制代码

在ASP中如何遍历字典：

1. 
   
2. dim Cars
   
3. set Cars = server.createObject("Scripting.Dictionary")
   
4. 
   
5. ' 新增cars
   
6. Cars.add "电动车", "蔚蓝"
   
7. Cars.add "油电混合", "吉利"
   
8. Cars.add "新能源", "比亚迪"
   
9. 
   
10. ' 遍历方法1：
    
11. dim key
    
12. for each key in Cars.keys
    
13.     response.write key & " = " & Cars(key)&VBCRLF
    
14. next
    
15. 
    
16. 
    
17. ' 遍历方法2：
    
18. Dim objKeys, objItems, i
    
19.   objKeys = Cars.Keys
    
20.   objItems = Cars.Items
    
21. For i = 0 To Cars.Count -1
    
22. response.Write "Key=" & objKeys(i) &_
    
23.                  " AND Value=" & objItems(i)&vbcrlf
    
24. Next
    

复制代码

Join 函数返回一个由数组中若干子字符串组成的字符串。

参数	描述
list	必需。一维数组，其中包含需被连接的子字符串。
delimiter	可选。用于在返回的字符串中分割子字符串的字符。默认是空格字符。

1. days=Array("Sun","Mon","Tue","Wed","Thu","Fri","Sat")
   
2. document.write(Join(days) & "<br />")
   
3. document.write(Join(days,",") & "<br />")
   
4. document.write(Join(days," ### "))

复制代码

结果：

1. Sun Mon Tue Wed Thu Fri Sat
   
2. Sun,Mon,Tue,Wed,Thu,Fri,Sat
   
3. Sun ### Mon ### Tue ### Wed ### Thu ### Fri ### Sat

复制代码