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

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

Else

' Create the form from all items. %%26gt;
%26lt;FORM Action=dynaform.asp Method=Post%26gt;
%26lt;B%26gt;Items:%26lt;/B%26gt;%26lt;BR%26gt;
%26lt;%
nItems = Request.Form(%26quot;Items%26quot;).Count
For I = 1 To nItems
' Show previously submitted Items
Response.Write %26quot;%26lt;INPUT Type=Text Name=Items Value=%26quot;%26quot;%26quot; %26amp; _
Trim(Request.Form(%26quot;Items%26quot;)(I)) %26amp; %26quot;%26quot;%26quot;%26gt;%26lt;BR%26gt;%26quot;
Next

If Request.Form(%26quot;Item%26quot;) %26lt;%26gt; %26quot;%26quot; Then
' paint a new input box, and store the old Item in Items collection
Response.Write %26quot;%26lt;INPUT Type=Text Name=Items Value=%26quot;%26quot;%26quot; %26amp; _
Trim(Request.Form(%26quot;Item%26quot;)) %26amp; %26quot;%26quot;%26quot;%26gt;%26lt;BR%26gt;%26quot;

Response.Write %26quot;%26lt;P%26gt;Please enter an Item,%26lt;BR%26gt;%26quot;
Response.Write %26quot;and submit them one at a time%26lt;BR%26gt;%26quot;
Response.Write %26quot;by pressing the Add Item button.%26lt;BR%26gt;%26quot;
Response.Write %26quot;%26lt;INPUT Type=Text Size=50 Name=Item Value=%26quot;%26quot;%26quot;%26quot;%26quot;%26quot;%26gt;%26quot;
Else
' No Item was submitted, don't show an error
Response.Write %26quot;%26lt;P%26gt;Please enter an Item,%26lt;BR%26gt;%26quot;
Response.Write %26quot;and submit them one at a time%26lt;BR%26gt;%26quot;
Response.Write %26quot;by pressing the Add Item button.%26lt;BR%26gt;%26quot;
Response.Write %26quot;%26lt;INPUT Type=Text Size=40 Name=Item Value=%26quot;%26quot;%26quot;%26quot;%26quot;%26quot;%26gt;
%26lt;BR%26gt;%26quot;
End If

%%26gt;

%26lt;P%26gt;
%26lt;INPUT Type=%26quot;Submit%26quot; Name=%26quot;Action%26quot; Value=%26quot;Add Item to List%26quot;%26gt;
%26lt;INPUT Type=%26quot;Submit%26quot; Name=%26quot;Action%26quot; Value=%26quot;Submit the List%26quot;%26gt;
%26lt;BR%26gt;

%26lt;% End If %%26gt;

%26lt;/FORM%26gt;
%26lt;/BODY%26gt;
%26lt;/HTML%26gt;