【 tulaoshi.com - ASP 】
FILE: DYNAFORM.ASP
<%@ language = vbscript%
<% Response.Expires = 0 %
<HTML
<HEAD
<TITLEDynamically Growing Form</TITLE
</HEAD
<BODY
<%
If Request("Action") = "Submit the List" Then
' Show what was entered.
Response.Write "<BHere are the Items submitted:</B<BR"
nItems = Request.Form("Items").Count
For I = 1 To nItems
' Show submitted Items
Response.Write Request.Form("Items")(I) & "<BR"
Next
Response.Write Request("Item") & "<BR"
Else
' Create the form from all items. %
<FORM Action=dynaform.asp Method=Post
<BItems:</B<BR
<%
nItems = Request.Form("Items").Count
For I = 1 To nItems
' Show previously submitted Items
Response.Write "<INPUT Type=Text Name=Items Value=""" & _
Trim(Request.Form("Items")(I)) & """<BR"
Next
If Request.Form("Item") < "" Then
' paint a new input box, and store the old Item in Items collection
Response.Write "<INPUT Type=Text Name=Items Value=""" & _
Trim(Request.Form("Item")) & """<BR"
Response.Write "<PPlease enter an Item,<BR"
Response.Write "and submit them one at a time<BR"
Response.Write "by pressing the Add Item button.<BR"
Response.Write "<INPUT Type=Text Size=50 Name=Item Value="""""""
Else
' No Item was submitted, don't show an error
Response.Write "<PPlease enter an Item,<BR"
Response.Write "and submit them one at a time<BR"
Response.Write "by pressing the Add Item button.<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
