【正文】 im MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr((SCRIPT_NAME)) If ( ) Then MM_editAction = MM_editAction amp。 () End If 39。 query string to execute MM_editQuery = % % 39。,none,39。|meirong|39。39。 create the MM_fields and MM_columns arrays MM_fields = Split(MM_fieldsStr, |) MM_columns = Split(MM_columnsStr, |) 39。 append the query string to the redirect URL If (MM_editRedirectUrl And ) Then If (InStr(1, MM_editRedirectUrl, ?, vbTextCompare) = 0 And ) Then MM_editRedirectUrl = MM_editRedirectUrl amp。 Else MM_editRedirectUrl = MM_editRedirectUrl amp。 amp。 *** Insert Record: construct a sql insert statement and execute it Dim MM_tableValues Dim MM_dbValues If (CStr(Request(MM_insert)) ) Then 39。) Then 39。 amp。,39。) amp。 Else MM_formVal = MM_delim + MM_formVal + MM_delim End If End If If (MM_i LBound(MM_fields)) Then MM_tableValues = MM_tableValues amp。 , End If MM_tableValues = MM_tableValues amp。 MM_formVal Next MM_editQuery = insert into amp。 ( amp。 ) values ( amp。 ) If (Not MM_abortEdit) Then 39。, 39。) + ORDER BY id DESC = 0 = 2 = 1 () rs2_numRows = 0 % % 39。 set the record count rs1_total = 39。 set the first and last displayed record rs1_first = 1 rs1_last = rs1_first + rs1_numRows 1 39。 *** Recordset Stats: if we don39。 count the total records by iterating through the recordset rs1_total=0 While (Not ) rs1_total = rs1_total + 1 Wend 39。 set the number of rows displayed on this page If (rs1_numRows 0 Or rs1_numRows rs1_total) Then rs1_numRows = rs1_total End If 39。 *** Move To Record and Go To Record: declare variables Dim MM_rs Dim MM_rsCount Dim MM_size Dim MM_uniqueCol Dim MM_offset Dim MM_atTotal Dim MM_paramIsDefined Dim MM_param Dim MM_index Set MM_rs = rs1 MM_rsCount = rs1_total MM_size = rs1_numRows MM_uniqueCol = MM_paramName = MM_offset = 0 MM_atTotal = false MM_paramIsDefined = false If (MM_paramName ) Then MM_paramIsDefined = ((MM_paramName) ) End If % % 39。index39。offset39。 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。 past end or move last If ((MM_rsCount Mod MM_size) 0) 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。 *** Move To Record: if we dont know the record count, check the display range If (MM_rsCount = 1) Then 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。 reset the cursor to the beginning If ( 0) Then Else End If 39。 *** Move To Record: update recordset stats 39。 set the boolean used by hide region to check if we are on the last record MM_atTotal = (MM_rsCount 1 And MM_offset + MM_size = MM_rsCount) % % 39。 create the list of parameters which should not be maintained MM_removeList = amp。 amp。 MM_paramName amp。 add the URL parameters to the MM_keepURL string For Each MM_item In MM_nextItem = amp。 MM_item amp。 MM_nextItem amp。 add the Form variables to the MM_keepForm string For Each MM_item In MM_nextItem = amp。 MM_item amp。 MM_nextItem amp。 create the Form + URL string and remove the intial 39。39。 MM_keepForm If (MM_keepBoth ) Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) 1) End If If (MM_keepURL ) Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) 1) End If If (MM_keepForm ) Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) 1) End If 39。 Else MM_joinChar = End If End Function % % 39。 if the page has a repeated region, remove 39。 from the maintained parameters If (MM_size 1) Then MM_moveParam = offset If (MM_keepMove ) Then MM_paramList = Split(MM_keepMove, amp。 amp。 MM_paramList(MM_paramIndex) End If Next If (MM_keepMove ) Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) 1) End If End If End If 39。 amp。 ? amp。 MM_moveParam amp。 0 MM_moveLast = MM_urlStr amp。 CStr(MM_offset + MM_size) If (MM_offset MM_size 0) Then MM_movePrev = MM_urlStr amp。 CStr(MM_offset MM_size) End If % !DOCTYPE html PUBLIC //W3C//DTD XHTML Transitional//EN html xmlns= head meta equiv=ContentType content=text/html。 color: 000000。 fontsize: 12px。 } /style /head % dim rs,strsql set db=() dbq=amp。driver={microsoft access driver (*.mdb)}。amp。39。 end MM_offset 0 % /td td width=31% align=center% If MM_offset 0 Then % a href=%=MM_movePrev%前一頁 /a % End If 39。 end Not MM_atTotal % /td td width=23% align=center% If Not MM_atTotal Then % a href=%=MM_moveLast%最后一頁 /a % End I