当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何使用ASP制作模似动态生长的表单?

ASP
asp中常用的文件处理函数
正确处理ASP动态网页中的容错机制
asp自动生成javascript检验函数
如何避免asp的SQL的执行效率低
编译asp应用程序成为exe文件
ASP完成小偷程序机制和简略示例
ASP技巧:rs.getrows方法
ASP简单实现数字字符混合验证码
ASP技巧 挂QQ的网页源代码ASP/PHP
ASP实例:用ASP判断文件地址是否有效
ASP实例:使用ASP生成图片彩色校验码
ASP如何跳出本次进入下一次循环
ASP读取数据库中数据到数组的类
为你的ASP程序作一个负载测试
如何用ASP来获取客户端真实IP的地址
asp脚本运行超时的解决办法
ASP缓存类 【先锋缓存类】Ver2004
ASP动态包含文件的改进方法
ASP中利用application实现缓存
ASP Application 对象用户手册

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 161 ::
收藏到网摘: n/a

       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>