如何使用ASP制作模似动态生长的表单 |
| 作者:佚名 来源:不详 更新:2006-8-25 21:05:35 错误报告 我要投稿 |
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><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> <B>Items:</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 "<P>Please 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 "<P>Please 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>
|
|
| 文章录入:skyuu 责任编辑:skyuu |
|
| 【字体:小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】 |