如何动态添加Form项？

时间：2021-05-18

<%@ language = vbscript%>
<% Response.Expires = 0 %>
<html>
<head>
<title>星河影动之动态添加Form项</title>
</head>
<body>
<%
If Request("Action") = "提交列表" Then
Response.Write "<B>提交的项:</B><BR>"

' 显示输入的内容.
nItems = Request.Form("Items").Count
For i = 1 To nItems
Response.Write Request.Form("Items")(i) & "<BR>"

' 显示提交的项.
Next
Response.Write Request("Item") & "<BR>"
Else
' 为所有的项创建Form.

%>
<FORM Action=dynaform.asp Method=Post>
<B>项:</B><BR>
<%
nItems = Request.Form("Items").Count
For i = 1 To nItems
Response.Write "<INPUT Type=Text Name=Items Value=""" & _
Trim(Request.Form("Items")(i)) & """><BR>"

' 显示前面已提交的项.
Next

If Request.Form("Item") <> "" Then
Response.Write "<INPUT Type=Text Name=Items Value=""" & _
Trim(Request.Form("Item")) & """><BR>"

' 保存已输入的项,再生成一个新的输入框.

Response.Write "<P>请输入项,并点击"添加项到列表"按钮提交<BR>"
Response.Write "<INPUT Type=Text Size=50 Name=Item Value="""""">"
Else
Response.Write "<P>请输入项,并点击"添加项到列表"按钮提交Please enter an Item,<BR>"
Response.Write "<INPUT Type=Text Size=40 Name=Item Value=""""""><BR>"

' 如果没有项提交,就不显示错误信息.

End If
%>
<P>
<INPUT Type="Submit" Name="Action" Value="添加项到列表Add Item to List">
<INPUT Type="Submit" Name="Action" Value="提交列表Submit the List">
<BR>
<% End If %>

</FORM>
</body></html>

[1]

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章