解決方案： 1。使用hidden變量傳遞參數 2。使用POST方式，不使用GET方式，因為這種方式受長度限制 3。每一個頁面都必須有一個用來讀取提交值的函數 4。每一個頁面（除了第一個頁面外）都必須要有一個hidden form 來向前一頁傳遞參數
如果在你的頁面中使用了Checkboxes或則使用了radio buttons，請使用以下代碼讀數值： <% For Each Item in Request.Form If Request.Form(Item).Count Then For intLoop = 1 to Request.Form(Item).Count Response.Write "Item = " & Item & " Index = " & intLoop & "<BR>" Next Else Response.Write "Item = " & Item & "<BR>" End If Next %>
具體實現方法： 第N個頁面應該有： 1。第一個form:它的ACTION= page(N+1).asp和它底部必須有Next按鈕 2。第二個form:它的ACTION= page(N-1).asp和Back按鈕 3。變量命名規則：舉例：N_<page no> 后綴是控件類型. <INPUT TYPE = RADIO NAME = RADIO_P2> 是表示第二頁的一個name是radio的東西 4。一個用來讀取提交的函數
頁面根據一個循環來判斷當前的控件是屬于哪一頁的。 代碼如下： <%@LANGUAGE="VBSCRipT %> <HTML> <HEAD> </HEAD> <BODY> <!-- NEXT按鈕模塊編程開始 --> <FORM ACTION="page03.asp" METHOD="POST" > <!-------------------------------------------------------------> <!--讀入函數開始 --> <!-------------------------------------------------------------> <% pageno = "_P2" For Each Item in Request.Form WhichPage = InStr(1,CStr(Item), pageno,1) If ((Request.Form(Item).Count) AND (WhichPage = 0)) Then strCount = Request.Form(Item).Count strItem = Request.Form(Item)(strCount) Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""" & Item & """ VALUE=""" & strItem & """>" &VbCrLf ElseIf (NOT(Request.Form(Item).Count) AND (WhichPage = 0)) Then Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""" & Item & """ VALUE=""" & strItem & """>" &VbCrLf End If Next %> <!------------------------------------------------------------> <1-- 讀入函數結束 --> <!------------------------------------------------------------>
<!-- #include file = "Check_UnCheck.txt" --> <% Function Check_UnCheck(ctrlName, ctrlValue) Dim ctrlName_in Dim ctrlValue_in Dim ctrlValue_actual Dim outStr
If Request.Form(ctrlName_in).Count Then strCount = Request.Form(ctrlName_in).Count ctrlValue_actual = Request.Form(ctrlName_in)(strCount) If ctrlValue_actual = ctrlValue_in Then outStr = "CHECKED" End If Else ctrlValue_actual = Request.Form(ctrlName_in) If ctrlValue_actual = ctrlValue_in Then outStr = "CHECKED" End If End If Check_UnCheck = outStr End Function %>
<!-- Back按鈕模塊開始 -->
<% strItem1 = "" strItem1a = "" For Each Item1 in Request.Form If Request.Form(Item1).Count Then strCount1 = Request.Form(Item1).Count strItem1 = Request.Form(Item1)(strCount1) Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""" & Item1 & """ VALUE=""" & strItem1 & """>" &VbCrLf strCount1 = "" strItem1 = "" Else strItem1a = Request.Form(Item1) Response.Write "<INPUT TYPE=""HIDDEN"" NAME=""" & Item1 & """ VALUE=""" & strItem1a & """>" &VbCrLf End If Next
