通过循环表单，获取字段名称和值

1. 
   
2. '//核心代码
   
3. For x = 1 to Request.Form.Count
   
4.   Response.Write x & ": " _
   
5.     & Request.Form.Key(x) & "=" & Request.Form.Item(x) & "<BR>"
   
6. Next
   
7. 
   
8. 
   
9. '//方法二 、使用Dictionary对象将字段名称和字段值放在一起
   
10. <%
    
11. Dim Item, fieldName, fieldValue
    
12. Dim a, b, c, d
    
13. 
    
14. Set d = Server.CreateObject("Scripting.Dictionary")
    
15. 
    
16. For Each Item In Request.Form
    
17.     fieldName = Item
    
18.     fieldValue = Request.Form(Item)
    
19. 
    
20.     d.Add fieldName, fieldValue
    
21. Next
    
22. 
    
23. ' 遍历 Dictionary
    
24. a = d.Keys  ' 字段名  '
    
25. b = d.Items ' 字段值 '
    
26. 
    
27. For c = 0 To d.Count - 1
    
28.     Response.Write a(c) & " = " & b(c)
    
29.     Response.Write "<br>"
    
30. Next
    
31. 
    

复制代码

完整演示：


2.rar (1.42 KB, 下载次数: 1, 售价: 2 个ASP币)

2019-4-22 21:53 上传

点击文件名下载附件