我要评论<%@ language = vbscript%>
<% response.expires = 0 %>
<html>
<head>
<title>星河影动之动态添加form项</title>
</head>
<body>
<%
if request("action") = "提交列表" then
response.write "<b>提交的项:</b><br>"
' 显示输入的内容.
nitems = request.form("items").count
for i = 1 to nitems
response.write request.form("items")(i) & "<br>"
' 显示提交的项.
next
response.write request("item") & "<br>"
else
' 为所有的项创建form.
%>
<form action=dynaform.asp method=post>
<b>项:</b><br>
<%
nitems = request.form("items").count
for i = 1 to nitems
response.write "<input type=text name=items value=""" & _
trim(request.form("items")(i)) & """><br>"
' 显示前面已提交的项.
next
if request.form("item") <> "" then
response.write "<input type=text name=items value=""" & _
trim(request.form("item")) & """><br>"
' 保存已输入的项,再生成一个新的输入框.
response.write "<p>请输入项,并点击"添加项到列表"按钮提交<br>"
response.write "<input type=text size=50 name=item value="""""">"
else
response.write "<p>请输入项,并点击"添加项到列表"按钮提交please enter an item,<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>
[1]
发表评论