繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 如何使用ASP制作模似动态生长的表单?
- ASP
- isNull(str), isEmpty(str)和 str = 的区别
- 使用ADO批量更新记录（源代码）
- 自己动手，结合javascript和dhtml做一个ubb编辑器
- 检查Email地址的比较完善的正则表达式函数
- 从Access数据库恢复BMP图像并显示在WEB页面(microsoft)
- ASP环境下邮件列表功能的实现 （四）（推荐）
- 在ASP应用中如何限制同一表单被多次提交！！！！好东西
- 了解MSMQ，控制ASP进程 （一）
- 了解MSMQ，控制ASP进程 （二）
- ASP技术在论坛中的运用(一)（吐血推荐！！！！）
- ASP技术在论坛中的运用(二)（吐血推荐！！！！）
- ASP技术在论坛中的运用(三)（吐血推荐！！！！）
- ASP技术在论坛中的运用(四)（吐血推荐！！！！）
- ASP技术在论坛中的运用(五)（吐血推荐！！！！）
- ASP技术在论坛中的运用(六)（吐血推荐！！！！）
- ASP技术在论坛中的运用(七)（吐血推荐！！！！）
- ASP技术在论坛中的运用(八)（吐血推荐！！！！）
- 不用数据源打开数据库（DSNless connection)
- 大部分的ADO的错误码对应的含义
- 好东西，翻页程序，大家可以参考
如何使用ASP制作模似动态生长的表单?
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 117 ::
收藏到网摘: n/a
<%@ 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>
评论 (0) All
