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

这是一个非常小的片段，用于显示所有表单字段POSTED

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

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

2 个答案: