【正文】 ndex = 0 To UBound(MM_paramList) MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),=) 1) If (StrComp(MM_nextParam,MM_moveParam,1) 0) Then MM_keepMove = MM_keepMove amp。offset39。 *** Move To Record: set the strings for the first, last, next, and previous links Dim MM_keepMove Dim MM_moveParam Dim MM_moveFirst Dim MM_moveLast Dim MM_moveNext Dim MM_movePrev Dim MM_urlStr Dim MM_paramList Dim MM_paramIndex Dim MM_nextParam MM_keepMove = MM_keepBoth MM_moveParam = index 39。 a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem ) Then MM_joinChar = amp。 from each of the strings MM_keepBoth = MM_keepURL amp。amp。 ((MM_item)) End If Next 39。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm amp。 amp。 ((MM_item)) End If Next 39。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL amp。 amp。 = End If MM_keepURL= MM_keepForm= MM_keepBoth= MM_keepNone= 39。 amp。index= If (MM_paramName ) Then MM_removeList = MM_removeList amp。 *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem 39。 set the first and last displayed record rs1_first = MM_offset + 1 rs1_last = MM_offset + MM_size If (MM_rsCount 1) Then If (rs1_first MM_rsCount) Then rs1_first = MM_rsCount End If If (rs1_last MM_rsCount) Then rs1_last = MM_rsCount End If End If 39。 move the cursor to the selected record MM_index = 0 While (Not And MM_index MM_offset) MM_index = MM_index + 1 Wend End If % % 39。 if 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 If 39。 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 Wend 39。 set MM_offset to the last possible record End If End If % % 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 If 39。 if 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。 parameter if (Not MM_paramIsDefined And MM_rsCount 0) then 39。 or 39。 *** Move To Record: handle 39。 set the first and last displayed record rs1_first = 1 rs1_last = rs1_first + rs1_numRows 1 If (rs1_first rs1_total) Then rs1_first = rs1_total End If If (rs1_last rs1_total) Then rs1_last = rs1_total End If End If % % Dim MM_paramName % % 39。 reset the cursor to the beginning If ( 0) Then Else End If 39。t know the record count, manually count them If (rs1_total = 1) Then 39。 if we have the correct record count, check the other stats If (rs1_total 1) Then If (rs1_first rs1_total) Then rs1_first = rs1_total End If If (rs1_last rs1_total) Then rs1_last = rs1_total End If If (rs1_numRows rs1_total) Then rs1_numRows = rs1_total End If End If % % 39。 set the number of rows displayed on this page If (rs1_numRows 0) Then rs1_numRows = rs1_total Elseif (rs1_numRows = 0) Then rs1_numRows = 1 End If 39。 *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim rs1_total Dim rs1_first Dim rs1_last 39。39。 execute the insert Set MM_editCmd = () = MM_editConnection = MM_editQuery If (MM_editRedirectUrl ) Then (MM_editRedirectUrl) End If End If End If % % Dim rs1 Dim rs1_numRows Set rs1 = () = MM_coon_STRING = SELECT * FROM dinggou ORDER BY id DESC = 0 = 2 = 1 () rs1_numRows = 0 % % Dim rs2__MMColParam rs2__MMColParam = 1 If ((id) ) Then rs2__MMColParam = (id) End If % % Dim rs2 Dim rs2_numRows Set rs2 = () = MM_coon_STRING = SELECT * FROM ly WHERE id = + Replace(rs2__MMColParam, 39。 MM_dbValues amp。 MM_tableValues amp。 MM_editTable amp。 MM_columns(MM_i) MM_dbValues = MM_dbValues amp。 , MM_dbValues = MM_dbValues amp。 39。39。 Replace(MM_formVal,39。 escape quotes MM_formVal = 39。 create the sql insert statement MM_tableValues = MM_dbValues = For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2 MM_formVal = MM_fields(MM_i+1) MM_typeArray = Split(MM_columns(MM_i+1),) MM_delim = MM_typeArray(0) If (MM_delim = none) Then MM_delim = MM_altVal = MM_typeArray(1) If (MM_altVal = none) Then MM_altVal = MM_emptyVal = MM_typeArray(2) If (MM_emptyVal = none) Then MM_emptyVal = If (MM_formVal = ) Then MM_formVal = MM_emptyVal Else If (MM_altVal ) Then MM_formVal = MM_altVal ElseIf (MM_delim = 39。 End If End If End If % % 39。 amp。 ? amp。 set the form values For