三、動態(tài)生成表單
　　生成表單時，程序按照Definitons表中的各個輸入域定義記錄，依次生成相應(yīng)的表單HTML代碼和JavaScript代碼。HTML代碼中首先要生成的是文本標(biāo)簽：
以下是引用片段：
　　sHTML = sHTML & vbTab & "< TR >" & vbCrLf & vbTab & vbTab 
　　sHTML = sHTML & "< TD VALIGN=" & Chr(34) & "TOP" & Chr(34) 
　　sHTML = sHTML & " >" & vbCrLf & vbTab & vbTab & vbTab 
　　sHTML = sHTML & "< B >" & RS.Fields("Label") 
　　然后程序檢查當(dāng)前輸入域是否必須輸入。如果必須，則在標(biāo)簽文本之后加一個星號(表示該值必須輸入)，同時對于必須輸入的值，還要生成相應(yīng)的JavaScript代碼來驗證它。對于單選按鈕或選擇列表，需進(jìn)一步檢查用戶確實選擇了某個選項;對于所有其他輸入類型，只要檢查輸入值不為空即可。
　　緊接文本標(biāo)簽的是表單的輸入元素，這些元素的HTML代碼根據(jù)Definitions表中指定的類型和屬性生成。再接下來就是根據(jù)輸入值要求生成執(zhí)行客戶端驗證任務(wù)的JavaScript代碼。對于本例，只有數(shù)字型的值需要進(jìn)一步檢查以保證用戶的輸入確實是數(shù)字，而且數(shù)字值在許可的最大值和最小值之間。生成上述代碼之后，就可以結(jié)束一個表格行(也就是一個輸入域)繼續(xù)處理Definitions表的下一個記錄。一旦所有的數(shù)據(jù)庫記錄處理完畢，下一步就可以加入“提交”按鈕和“清除”按鈕的HTML代碼。如果換個角度來看，程序在這里的任務(wù)就是根據(jù)數(shù)據(jù)庫記錄生成各個輸入域，每個輸入域占用一個表格行，每個表格行二個單元：第一個單元用來顯示文本標(biāo)簽，第二個單元顯示輸入元素本身(代碼見dForm.asp)。
　　上述過程結(jié)束之后，表單的HTML代碼和驗證用JavaScript函數(shù)分別保存到了變量sHTML和sJavaScript中。在把這些內(nèi)容寫入頁面之前，程序檢查客戶端是否要求執(zhí)行JavaScript驗證，如果不要求執(zhí)行這類驗證，則清除sJavaScript變量：
　　If iValType = 0 or iValType = 2 Then sJavaScript = ""
　　在輸出BODY標(biāo)記之后，程序輸出如下JavaScript函數(shù)：
以下是引用片段：
　 < SCRIPT LANGUAGE="JavaScript" >  
　 < !--  
　 function validate(TheForm){  
　 //客戶端表單驗證  
　 < %=sJavaScript% >  
　 return true;  
　 }  
　   
　 function CheckRadio(objRadio){  
　 //單選按鈕中是否有某個值被選中  
　 for(var n = 0; n < objRadio.length; n++){  
　 if(objRadio[n].checked){  
　 return true;  
　 }  
　 }  
　 return false;  
　 }  
　   
　 function CheckList(objList){  
　 //是否已經(jīng)在選擇列表中選擇了某個值  
　 for(var n = 1; n < objList.length; n++){  
　 if(objList.options[n].selected){  
　 return true;  
　 }  
　 }  
　 return false;  
　 }  
　 //-- >  
　 < /Script > 
　　如果客戶端不需要JavaScript驗證，則validate函數(shù)只剩下一個“return true”語句。上面代碼中的后面兩個靜態(tài)JavaScript函數(shù)(CheckRadio和CheckList)用于驗證單選按鈕和下拉列表框，當(dāng)這兩種輸入域需要驗證時validate函數(shù)將調(diào)用它們。
　　現(xiàn)在可以開始把表單寫入頁面：
　　< FORM ACTION="./dform.asp" METHOD="POST" NAME="MyForm" onSubmit="return validate(this)" >
　　在這里，只有當(dāng)validate函數(shù)返回true時才執(zhí)行表單提交操作。因此當(dāng)客戶端JavaScript驗證功能關(guān)閉時，validate函數(shù)將自動返回true。
　　接下來要加入的是名為val的隱藏域。如前所述，該值指示表單的驗證模式。
　　< INPUT TYPE="HIDDEN" NAME="val" VALUE="< %=iValType% >" >
　　當(dāng)用戶提交表單時，處理腳本將根據(jù)該值確定是否執(zhí)行服務(wù)器端驗證。
　　然后輸出的是表格標(biāo)記以及表格標(biāo)題。標(biāo)題保存在變量sTitleLabel中，該值在腳本開始執(zhí)行時初始化：
以下是引用片段：
　 < TABLE BORDER="0" >  
　 < TR >  
　 < TD COLSPAN="2" ALIGN="CENTER" >  
　 < H2 >< %=sTitleLable% >< /H2 >  
　 < /TD >  
　 < /TR > 

最新評論