hen
'/*此时表示用户首次打开此ASP页，所以所得的num为空，并显示出相应的输入界面供用户输入信息
'其中的num值是为来记录类型为text的form元素的数目，与第一个代码文件中的 'request.form("items").Count效果一样.*/
'/*First time open this page.*/
Response.Write "<td align=center valign=top>1.</td>"
Response.Write "<input type=hidden name=num value=1>"
Response.Write "<td align=center valign=top >"
Response.Write "&nbsp;&nbsp;<input type=text size=40 name=url1></td>"
Response.Write "<td align=center valign=top >&nbsp;&nbsp;<input type=text size=12 id=text1 name=user_var1></td>" & vbcrlf
Response.Write "<td align=center valign=top >&nbsp;&nbsp;<input type=text size=12 id=text2 name=pw_var1></td>"
Response.Write "<td align=center valign=top >&nbsp;&nbsp;<input type=text size=12 id=text2 name=sitename1></td><tr>"
else
'/*Add new*/
'Response.Write "<td align=center valign=top>" & trim(Request.Form("num")) & ".</td>"
'/*Loop Start*/
Response.Write "<td colspan=5 valign=top>"
for I = 1 to cint(trim(Request.Form("num")))+1
%>
<%=I%>.
<%if I<10 then
'/*此处的目的是为了保证前10个元素与后89个元素缩进相同的宽度*/%>
&nbsp;&nbsp;
<%elseif I<100 and I>9 then%>
&nbsp;
<%end if%>
<%if I<>cint(trim(Request.Form("num")))+1 then
url="url" & I '/*生成如url1,url2......的字符串*/
user_var = "user_var" & I
pw_var = "pw_var" & I
sitename = "sitename" & I
if trim(request.form(url))<>"" and trim(Request.Form(user_var))<>"" and_ trim(Request.Form(pw_var))<>"" and trim(Request.Form(sitename))<>"" then %>
&nbsp;&nbsp;&nbsp;<input type=text size=40 name=<%=url%> value=<%=trim(request.form(url))%>>&nbsp;&nbsp;&nbsp;
<input type=text size=12 id=text1 name=<%=user_var%> value=<%=trim(Request.Form(user_var))%>>&nbsp;
&nbsp;&nbsp;&nbsp;<input type=text size=12 id=text2 name=<%=pw_var%> value=<%=trim(Request.Form(pw_var))%>>
&nbsp;&nbsp;&nbsp;<input type=text size=12 id=text2 name=<%=sitename%> value=<%=trim(Request.Form(sitename))%>>
<br>
<% else
%>
<script>
alert("邮件服务器URL、用户名参数变量、密码参数变量、站点名称中有空值！")
window.history.back()
</script>
<% exit for
end if
else%>
&nbsp;&nbsp;&nbsp;<input type=text size=40 name=url<%=I%>>
&nbsp;&nbsp;&nbsp;&nbsp;
<input type=text size=12 id=text1 name=user_var<%=I%>>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type=text size=12 id=text2 name=pw_var<%=I%>>&nbsp;&nbsp;&nbsp;
<input type=text size=12 id=text2 name=sitename<%=I%>>
<br>
<%end if
next
'/*Loop End*/
end if
%>
</td>
<tr>
<td colspan=5 align=center height=20>
<input type=button value="追加" style="font-size:11pt"
onclick="{document['form1'].action='DynamicAddForm.ASP';
document.form1.submit();}">&nbsp;&nbsp;&nbsp;
<input type=Button value="保存" style="font-size:11pt"
onclick="document['form1'].action='SaveNew.asp';
document.form1.submit();">
&nbsp;&nbsp;&nbsp;
<input type=button value="返回控制台" style="font-size:11pt"
onClick="window.location='PostOfficeConsole.asp'">
</td>
</table>
<%if trim(Request.Form("num"))<>"" then
'/*当开始给第一个类型为text的form元素添加了值的时候开始记录text类型元素的数目*/%>
<input type=hidden name=num value=<%=cint(trim(Request.Form("num")))+1%>>
<%end if%>
</form>
</BODY>
</HTML>
'/*DynamicAddForm2.asp文件的源代码结束点*/

　　现在大家都看到了这两种方法各自实现的程序源代码了。您有什么想法呢？呵呵，是不是觉得第一个程序代码要比第二个程序代码简洁的多呢。我们在第一个程序代码中是在得到同名类型为text的form元素的值时用到了request.form("TextFieldName")的Count属性来统计到目前为止一共有多少个这样的form元素。而在第二个程序代码中，我们是通过<form></form>中类型为hidden的元素来保存和得到这个数的。还有一点值得再提一次，那就是把这些类型为text的form元素的名字都命名成同一名字。这就可以避免在第二个程序代码中诸如“url="url" & I”的部分了。当然了，这个做法在是知道request.form("TextFieldName")有Count这个属性的前提下才会想到的了。所以第一个程序代码的优点在于它充分利用了在获取同名同类型的form元素的值时的Count属性和值的取法。呵呵，解决问题的好思路与方法是基于对所用工具有着充分了解的基础之上的。。所有这些的关键是我们要不断的去做，这样我们才能更好的领悟和了解，学习到、有着更好更妙的方法。

上一页  [1] [2]