<%@ language = vbscript%><% Response.Expires = 0 %><html><head><title>星河影动之动态添加Form项</title></head><body><%If Request(\”Action\”) = \”提交列表\” ThenResponse.Write \”<B>提交的项:</B><BR>\”
\’ 显示输入的内容.nItems = Request.Form(\”Items\”).CountFor i = 1 To nItemsResponse.Write Request.Form(\”Items\”)(i) & \”<BR>\”
\’ 显示提交的项.NextResponse.Write Request(\”Item\”) & \”<BR>\”Else\’ 为所有的项创建Form.
%><FORM Action=dynaform.asp Method=Post><B>项:</B><BR><%nItems = Request.Form(\”Items\”).CountFor i = 1 To nItemsResponse.Write \”<INPUT Type=Text Name=Items Value=\”\”\” & _Trim(Request.Form(\”Items\”)(i)) & \”\”\”><BR>\”
\’ 显示前面已提交的项.NextIf Request.Form(\”Item\”) <> \”\” ThenResponse.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=\”\”\”\”\”\”>\”ElseResponse.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]