【正文】 If (MM_editRedirectUrl ) Then (MM_editRedirectUrl) End If End IfEnd If%%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = () = MM_zhxx_STRING = SELECT * FROM 表1 ORDER BY ID ASC = 0 = 2 = 1()Recordset1_numRows = 0%%39。 *** Recordset Stats, Move To Record, and Go To Record: declare stats variablesDim Recordset1_totalDim Recordset1_firstDim Recordset1_last39。 set the record countRecordset1_total = 39。 set the number of rows displayed on this pageIf (Recordset1_numRows 0) Then Recordset1_numRows = Recordset1_totalElseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1End If39。 set the first and last displayed recordRecordset1_first = 1Recordset1_last = Recordset1_first + Recordset1_numRows 139。 if we have the correct record count, check the other statsIf (Recordset1_total 1) Then If (Recordset1_first Recordset1_total) Then Recordset1_first = Recordset1_total End If If (Recordset1_last Recordset1_total) Then Recordset1_last = Recordset1_total End If If (Recordset1_numRows Recordset1_total) Then Recordset1_numRows = Recordset1_total End IfEnd If%%Dim MM_paramName %%39。 *** 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 = Recordset1MM_rsCount = Recordset1_totalMM_size = Recordset1_numRowsMM_uniqueCol = MM_paramName = MM_offset = 0MM_atTotal = falseMM_paramIsDefined = falseIf (MM_paramName ) Then MM_paramIsDefined = ((MM_paramName) )End If%%39。 *** Move To Record: handle 39。index39。 or 39。offset39。 parameterif (Not MM_paramIsDefined And MM_rsCount 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 Ifif we have a record count, check if we are past the end of the recordset If (MM_rsCount 1) Then If (MM_offset = MM_rsCount Or MM_offset = 1) Then 39。 past end or move last If ((MM_rsCount Mod MM_size) 0) Then 39。 last page not a full repeat region MM_offset = MM_rsCount (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount MM_size End If End If End Ifmove 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。 set MM_offset to the last possible record End IfEnd If%%39。 *** Move To Record: if we dont know the record count, check the display rangeIf (MM_rsCount = 1) T walk to the end of the display range for this page MM_index = MM_offset While (Not And (MM_size 0 Or MM_index MM_offset + MM_size)) MM_index = MM_index + 1 Wendif 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 Ifif we walked off the end, set the offset based on page size If ( And Not MM_paramIsDefined) Then If (MM_offset MM_rsCount MM_size Or MM_offset = 1) Then If ((MM_rsCount Mod MM_size) 0) Then MM_offset = MM_rsCount (MM_rsCount Mod MM_size) Else MM_offset = MM_rsCount MM_size End If End If End Ifreset the cursor to the beginning If ( 0) Then Else End Ifmove the cursor to the selected record MM_index = 0 While (Not And MM_index MM_offset) MM_index = MM_index + 1 WendEnd If%%39。 *** Move To Record: update recordset stats set the first and last displayed recordRecordset1_first = MM_offset + 1Recordset1_last = MM_offset + MM_sizeIf (MM_rsCount 1) Then If (Recordset1_first MM_rsCount) Then Recordset1_first = MM_rsCount End If If (Recordset1_last MM_rsCount) Then Recordset1_last = MM_rsCount End IfEnd Ifset 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。 *** Go To Record and Move To Record: create strings for maintaining URL and Form parametersDim MM_keepNoneDim MM_keepURLDim MM_keepFormDim MM_keepBothDim MM_removeListDim MM_itemDim MM_nextItemcreate the list of parameters which should not be maintainedMM_removeList = amp。index=If (MM_paramName ) Then MM_removeList = MM_removeList amp。 amp。 amp。 MM_paramName amp。 =End IfMM_keepURL=MM_keepForm=MM_keepBoth=MM_keepNone=39。 add the URL parameters to the MM_keepURL stringFor Each MM_item In MM_nextItem = amp。 amp。 MM_item amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL amp。 MM_nextItem amp。 ((MM_item)) End IfNext add the Form variables to the MM_keepForm stringFor Each MM_item In MM_nextItem = amp。 amp。 MM_item amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm amp。 MM_nextItem amp。 ((MM_item)) End IfNext39。 create the Form + URL string and remove the intial 39。amp。39。 from each of the stringsMM_keepBoth = MM_keepURL amp。 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。 a utility function used for adding additional parameters to these stringsFunction MM_joinChar(firstItem) If (firstItem ) Then MM_joinChar = amp。 Else MM