如何使用ASP制作模似动态生长的表单?

2022-07-15 80酷酷网 80kuku.com

　　FILE: DYNAFORM.ASP
<% language = vbscript%>
<% Response.Expires = 0 %>
<HTML>
<HEAD>
<TITLE>Dynamically Growing Form</TITLE>
</HEAD>
<BODY>
<%
If Request("Action") = "Submit the List" Then
' Show what was entered.
Response.Write "<B>Here are the Items submitted:</B>
"
nItems = Request.Form("Items").Count
For I = 1 To nItems
' Show submitted Items
Response.Write Request.Form("Items")(I) & "
"
Next
Response.Write Request("Item") & "
"

Else

' Create the form from all items. %>
<FORM Action=dynaform.asp Method=Post>
<B>Items:</B>

<%
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)) & """>
"
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")) & """>
"

Response.Write "<P>Please enter an Item,
"
Response.Write "and submit them one at a time
"
Response.Write "by pressing the Add Item button.
"
Response.Write "<INPUT Type=Text Size=50 Name=Item Value="""""">"
Else
' No Item was submitted, don't show an error
Response.Write "<P>Please enter an Item,
"
Response.Write "and submit them one at a time
"
Response.Write "by pressing the Add Item button.
"
Response.Write "<INPUT Type=Text Size=40 Name=Item Value="""""">

"
End If

%>

<P>
<INPUT Type="Submit" Name="Action" Value="Add Item to List">
<INPUT Type="Submit" Name="Action" Value="Submit the List">

<% End If %>

</FORM>
</BODY>
</HTML>