 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
<%@ 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> 返回类别: 教程 上一教程: 在不刷新页面的情况下调用远程ASP脚本 下一教程: 在ASP中使用数据库 您可以阅读与"动态添加FORM项"相关的教程: · 如何实现动态添加HTML文档中FORM项 · 在ASP网页中实现DROPDOWN控件动态添加选项 · WEBWORK中使用动态FORM字段 · 如何在页面上动态的生成 WEBFORM控件 · 怎么添加验证码的解决方式 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
