循环通过表单获取字段名称和归档值问题(经典ASP)

Question

在提交表单时,我想捕获表单的字段名称和值,我希望它们在浏览器中都没有显示(Response.Write使它们在浏览器中可见).我该怎么办？我正在使用此代码:

    For Each Item In Request.Form
    fieldName = Item
    fieldValue = Request.Form(Item)

    Response.Write(""& fieldName &" = Request.Form("""& fieldName &""")")       
    Next 

Answer 1

您的代码基本上是正确的,所以只是删除Response.Write和做别的事情与fieldName和fieldValue你填充变量.完成操作数据(将数据插入数据库或发送电子邮件)后,您可以将用户重定向到成功/感谢页面.

要测试您是否收到了正确的输入,可以将您更改Response.Write为

Response.Write fieldName & " = " & fieldValue & "<br>"

更新

以下是使用Dictionary对象将字段名称和字段值放在一起的方法:

Dim Item, fieldName, fieldValue
Dim a, b, c, d

Set d = Server.CreateObject("Scripting.Dictionary")

For Each Item In Request.Form
    fieldName = Item
    fieldValue = Request.Form(Item)

    d.Add fieldName, fieldValue
Next

' Rest of the code is for going through the Dictionary
a = d.Keys  ' Field names  '
b = d.Items ' Field values '

For c = 0 To d.Count - 1
    Response.Write a(c) & " = " & b(c)
    Response.Write "<br>"
Next

Answer 2

这是一个非常小的片段，我用它来显示所有已发布的表单字段

<% 
For x = 1 to Request.Form.Count 
  Response.Write x & ": " _ 
    & Request.Form.Key(x) & "=" & Request.Form.Item(x) & "<BR>" 
Next 
%>