'/*DynamicAddForm.asp文件的源代碼開始點(diǎn)*/<%@ Language=VBScript %><%'----------------------------------------------'Author : WaiWai(歪歪)'Created Date : 2000-2-20'File Name : DynamicAddForm.ASP'Description : Dynamic Add Form's Text Fields.'All Rights Reserved.所有權(quán)歸City Club.'----------------------------------------------%><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"><title>Dynamic Add Form Text Elements.</title><style type="text/css"><!--td { font-size: 9pt}body { font-size: 9pt}select { font-size: 9pt}A {text-decoration: none; color: #003366; font-size: 9pt}A:hover {text-decoration: underline; color: #FF0000; font-size: 9pt}--></style></HEAD><BODY><table border="1" cellspacing="0" height=400 width=98% bordercolorlight="#5E5E00" bordercolordark="#FFFFEC" bgcolor=LightGrey align=center valign=top> <%if trim(Request.Form("List")) = "顯示已有項(xiàng)" then '/*其中的trim()函數(shù)是去掉Request.Form("List")兩邊的空格*/ '/*當(dāng)您點(diǎn)擊了名為"顯示已有項(xiàng)"的按鈕時(shí),我們將會(huì)看到所有已經(jīng)有值的類型為text的form項(xiàng)*/Response.Write "<td><form><center>已經(jīng)存的元素內(nèi)容是:" & "</td><tr>" for I = 1 to Request.Form("items").Count '/*已經(jīng)存在的Text類型的數(shù)目*/Response.Write "<td align=center>" & Request.Form("items")(I) & "</td><tr>"nextif trim(Request.Form("newItem"))<>"" thenResponse.Write "<td align=center>" & trim(Request.Form("newItem")) Response.write "<input type=button name='Back' value='Back' Response.write "style='font-size:12pt' onClick='window.history.back()'>'/*點(diǎn)擊了<Back>按鈕后就會(huì)返回上一頁,也就是添加類型為text的Form項(xiàng)所在的頁*/Response.write "</form></td><tr>"end ifelse '/*此時(shí)表明用戶是點(diǎn)擊了名為"添加"按鈕,要進(jìn)行添加操作*/Response.Write "<td align=center><form action=DynamicAddForm.asp method=post></td>"for I = 1 to Request.Form("items").Count '/*此時(shí)的操作是循環(huán)顯示出已經(jīng)存在且產(chǎn)有值的類型為text的form元素*/'/*Request.Form("items").Count為已經(jīng)存在的Text類型的數(shù)目*/'/*我們可以在此處加入對(duì)所添加內(nèi)容的條件判斷。如判斷所添加內(nèi)容的長度是否小于3等.*/Response.Write "<td align=center><input type=text name=items value='"Response.write Request.Form("items")(I) & "'></td><tr>"'/*此步是將所得到某一有值的類型為text的form元素的值顯示出來*/nextif trim(Request.Form("newItem")) <> "" then'/*此步的目的是檢查是否用戶在添加新的類型為text的form元素處有沒有添加新值,*/'/*有則將此值賦給name=items的類型為text的form元素,并顯示出來。*/Response.Write "<td align=center><input type=text name=items value='"Response.Write trim(Request.Form("newItem")) & "'"Response.Write "><br></td><tr>"Response.Write "<td align=center><input type=text name=newItem" Response.write "value=''></td><tr>"'/*此處是添加一個(gè)名為newItem類型為text的form元素,讓用戶可以繼續(xù)進(jìn)行添加操作。*/else '/*此時(shí)表明用戶在添加新的類型為text的form元素處并沒有添加新的值,所以就只能列出*/'/*一個(gè)名為newItem類型為text的form元素,讓用戶可以繼續(xù)進(jìn)行添加操作。*/Response.Write "<td align=center><input type=text name=newItem value=''></td>"end if%><tr><td align=center><br><input type=submit name="List" value="顯示已有項(xiàng)" style="font-size:12pt"><input type=submit name="Add" value="添加" style="font-size:12pt"> </form></td><%end if%></table></BODY></HTML>'/*DynamicAddForm.asp文件的源代碼結(jié)束點(diǎn)*/ |
'/*DynamicAddForm2.asp文件的源代碼開始點(diǎn)*/<%@ Language=VBScript %><%'----------------------------------------------------'Author : WaiWai(歪歪)'Created Date : 2000/1/13'File Name : DynamicAddForm.ASP'Description : Dynamic Add Form's Text Fields.'All Rights Reserved.所有權(quán)歸City Club'----------------------------------------------------%><HTML><HEAD><META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0"></HEAD><style type="text/css"><!--td { font-size: 9pt}body { font-size: 9pt}select { font-size: 9pt}A {text-decoration: none; color: #003366; font-size: 9pt}A:hover {text-decoration: underline; color: #FF0000; font-size: 9pt}--></style><title>Add new mail server site. All Rights Reserved.</title><script language=javascript>function mycheck(tt) {alert("afd")return false}</script><BODY topmargin=12><form name=form1 method=post><table border="1" cellspacing="0" height=400 width=98% bordercolorlight="#5E5E00" bordercolordark="#FFFFEC" bgcolor=LightGrey align=center valign=top><td align=center colspan=5 valign=top height=30><h4>追加新郵件服務(wù)器信息</h4></td><tr><td align=center valign=top height=10><font style="font-size:11pt">條數(shù)</font></td><td align=center valign=top height=10 width=43%><font style="font-size:11pt">郵件服務(wù)器URL</font></td><td align=center valign=top height=20 width=17%><font style="font-size:11pt">用戶名參數(shù)變量</font></td><td align=center valign=top height=20 width=17%><font style="font-size:11pt">密碼參數(shù)變量</font></td><td align=center valign=top height=20 width=17%><font style="font-size:11pt">站點(diǎn)名稱</font></td><tr><td colspan=5 valign=top height=30><font color=blue>[ * * * Example: * * * ]<br>0. 990.net/prog/login? user pass 990.net</font></td><tr><%if trim(Request.form("num"))="" then '/*此時(shí)表示用戶首次打開此ASP頁,所以所得的num為空,并顯示出相應(yīng)的輸入界面供用戶輸入信息'其中的num值是為來記錄類型為text的form元素的數(shù)目,與第一個(gè)代碼文件中的 '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 " <input type=text size=40 name=url1></td>"Response.Write "<td align=center valign=top > <input type=text size=12 id=text1 name=user_var1></td>" & vbcrlfResponse.Write "<td align=center valign=top > <input type=text size=12 id=text2 name=pw_var1></td>"Response.Write "<td align=center valign=top > <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個(gè)元素與后89個(gè)元素縮進(jìn)相同的寬度*/%> <%elseif I<100 and I>9 then%> <%end if%><%if I<>cint(trim(Request.Form("num")))+1 thenurl="url" & I '/*生成如url1,url2......的字符串*/user_var = "user_var" & Ipw_var = "pw_var" & Isitename = "sitename" & Iif trim(request.form(url))<>"" and trim(Request.Form(user_var))<>"" and_ trim(Request.Form(pw_var))<>"" and trim(Request.Form(sitename))<>"" then %> <input type=text size=40 name=<%=url%> value=<%=trim(request.form(url))%>> <input type=text size=12 id=text1 name=<%=user_var%> value=<%=trim(Request.Form(user_var))%>> <input type=text size=12 id=text2 name=<%=pw_var%> value=<%=trim(Request.Form(pw_var))%>> <input type=text size=12 id=text2 name=<%=sitename%> value=<%=trim(Request.Form(sitename))%>><br><% else%><script>alert("郵件服務(wù)器URL、用戶名參數(shù)變量、密碼參數(shù)變量、站點(diǎn)名稱中有空值!")window.history.back()</script><% exit forend ifelse%> <input type=text size=40 name=url<%=I%>> <input type=text size=12 id=text1 name=user_var<%=I%>> <input type=text size=12 id=text2 name=pw_var<%=I%>> <input type=text size=12 id=text2 name=sitename<%=I%>><br> <%end ifnext'/*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();}"> <input type=Button value="保存" style="font-size:11pt"onclick="document['form1'].action='SaveNew.asp';document.form1.submit();"> <input type=button value="返回控制臺(tái)" style="font-size:11pt"onClick="window.location='PostOfficeConsole.asp'"></td></table><%if trim(Request.Form("num"))<>"" then '/*當(dāng)開始給第一個(gè)類型為text的form元素添加了值的時(shí)候開始記錄text類型元素的數(shù)目*/%><input type=hidden name=num value=<%=cint(trim(Request.Form("num")))+1%>><%end if%></form></BODY></HTML>'/*DynamicAddForm2.asp文件的源代碼結(jié)束點(diǎn)*/ |