【正文】 MM_paramList(MM_paramIndex) End If Next If (。 amp。 from the maintained parametersIf (MM_size 1) Then MM_moveParam = offset If (MM_keepMove ) Then MM_paramList = Split(MM_keepMove, amp。 if the page has a repeated region, remove 39。 Else MM_joinChar = End IfEnd Function%%39。 MM_keepFormIf (MM_keepBoth ) Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) 1)End IfIf (MM_keepURL ) Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) 1)End IfIf (MM_keepForm ) Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) 1)End If39。39。 create the Form + URL string and remove the intial 39。 MM_nextItem amp。 MM_item amp。 add the Form variables to the MM_keepForm stringFor Each MM_item In MM_nextItem = amp。 MM_nextItem amp。 MM_item amp。 add the URL parameters to the MM_keepURL stringFor Each MM_item In MM_nextItem = amp。 MM_paramName amp。 amp。 create the list of parameters which should not be maintainedMM_removeList = amp。 set the boolean used by hide region to check if we are on the last recordMM_atTotal = (MM_rsCount 1 And MM_offset + MM_size = MM_rsCount)%%39。 *** Move To Record: update recordset stats39。 reset the cursor to the beginning If ( 0) Then Else End If 39。 if we walked off the end of the recordset, set MM_rsCount and MM_size If () Then MM_rsCount = MM_index If (MM_size 0 Or MM_size MM_rsCount) Then MM_size = MM_rsCount End If End If 39。 *** Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = 1) Then 39。 move the cursor to the selected record MM_index = 0 While ((Not ) And (MM_index MM_offset Or MM_offset = 1)) MM_index = MM_index + 1 Wend If () Then MM_offset = MM_index 39。 past end or move last If ((MM_rsCount Mod MM_size) 0) Then 39。 use index parameter if defined, otherwise use offset parameter MM_param = (index) If (MM_param = ) Then MM_param = (offset) End If If (MM_param ) Then MM_offset = Int(MM_param) End If 39。offset39。index39。 *** Move To Record and Go To Record: declare variablesDim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefinedDim MM_paramDim MM_indexSet MM_rs = rsMM_rsCount = rs_totalMM_size = rs_numRowsMM_uniqueCol = MM_paramName = MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName ) Then MM_paramIsDefined = ((MM_paramName) )End If%%39。 set the number of rows displayed on this page If (rs_numRows 0 Or rs_numRows rs_total) Then rs_numRows = rs_total End If 39。 count the total records by iterating through the recordset rs_total=0 While (Not ) rs_total = rs_total + 1 Wend 39。 *** Recordset Stats: if we don39。 set the first and last displayed recordrs_first = 1rs_last = rs_first + rs_numRows 139。 set the record countrs_total = 39。 order by tc_id desc)end if%%Dim rs_numRowsrs_numRows = 0%%Dim Repeat1__numRowsDim Repeat1__indexRepeat1__numRows = 10Repeat1__index = 0rs_numRows = rs_numRows + Repeat1__numRows%%39。tc_keyamp。 like 39。,)tc_cond=request(cond)if tc_key= thenset rs=(select tc_id,tc_name,tc_dw from tcinfor order by tc_id desc)elseset rs=(select tc_id,tc_name,tc_dw from tcinfor where amp。39。)。/td /tr/tablecenterimg src=img/ width=778 height=66/center/body/html 查詢模塊實現(xiàn)代碼%LANGUAGE=VBSCRIPT CODEPAGE=936%!include file= %if (flag)loginok then script language=JavaScript{(39。/td /tr /table /form /td /tr tr tdamp。/td /tr /table/td /tr tr td background=img/amp。 input type=reset name=Submit2 value=重置/td tdamp。amp。amp。amp。/td td colspan=2 align=centerinput type=submit name=Submit value=提交amp。/td /tr tr tdamp。/td tdamp。/td tdamp。/td tdamp。/td /tr tr tdamp。/td td width=59 valign=top備注/td td width=579textarea name=txt_bzh cols=78 rows=5 id=txt_bzh/textarea/td td width=46amp。/td /tr tr td width=70amp。/td tdamp。/td tdamp。/td tdamp。/td /tr /table table width=754 border=0 align=center cellpadding=0 cellspacing=0 tr tdimg src=img/ width=754 height=27/td /tr tr td background=img/table width=754 border=0 cellpadding=0 cellspacing=0 tr tdamp。/td /tr /table/td /tr tr td background=img/amp。/td tdamp。/td tdamp。/td tdamp。/td tdamp。/td tdamp。/td /tr tr tdamp。/td tdinput name=txt_shh_shh_zhw3 type=text id=txt_shh_shh_zhw3 size=16/td tdinput name=txt_shh_shh_date3 type=text id=txt_shh_shh_date3 value=200 size=14 maxlength=14/td tdinput name=txt_shh_shh_name3 type=text id=txt_shh_shh_name3 size=32/td tdamp。/td /tr tr tdamp。/td tdinput name=txt_shh_shh_zhw2 type=text id=txt_shh_shh_zhw2 size=16/td tdinput name=txt_shh_shh_date2 type=text id=txt_shh_shh_date2 val