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

ASP
从文本文件中读取信息并存储入数据库
文本搜索
FileSystemObject处理文件
设计 FileSystemObject
处理驱动器和文件夹
用ASP做一个TOP COOL的站内搜索
怎样读取一个文本文件的内容?
在线用表单建立文件夹
filesystemobject组件的用法示例
ASP中文本文件与数据库文件的数据交换(FSO)
读取目录下的所有文件(包括子目录下的所有文件)
ASP中FSO的神奇功能 - FSO不能做到的
ASP中FSO的神奇功能 - 用FSO进行内容管理
ASP中FSO的神奇功能 - 使用FSO进行搜索
ASP中FSO的神奇功能 - 权限许可
ASP中FSO的神奇功能 - 文件读取
ASP中FSO的神奇功能 - 写文件
ASP中FSO的神奇功能 - 简介
读取目录下的文件得到一个数组
奇妙的文件系统对象组件

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-11-03   浏览: 246 ::
收藏到网摘: 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>