【正文】 Else MM。39。 from each of the stringsMM_keepBoth = MM_keepURL amp。amp。39。 MM_nextItem amp。 MM_item amp。 ((MM_item)) End IfNext add the Form variables to the MM_keepForm stringFor Each MM_item In MM_nextItem = amp。 = If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL amp。 amp。 =End IfMM_keepURL=MM_keepForm=MM_keepBoth=MM_keepNone=39。 amp。index=If (MM_paramName ) Then MM_removeList = MM_removeList amp。 *** 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。 *** Move To Record: if we dont know the record count, check the display range 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。 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。if (Not MM_paramIsDefined And MM_rsCount 0) thenoffset39。index39。Set 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。Dim MM_rsDim MM_rsCountDim MM_sizeDim MM_uniqueColDim MM_offsetDim MM_atTotalDim MM_paramIsDefined 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。 set the first and last displayed recordRecordset1_first = 1Recordset1_last = Recordset1_first + Recordset1_numRows 1 set the number of rows displayed on this pageIf (Recordset1_numRows 0) Then Recordset1_numRows = Recordset1_totalElseif (Recordset1_numRows = 0) Then Recordset1_numRows = 1End If set the record countRecordset1_total = Dim Recordset1_totalDim Recordset1_firstDim Recordset1_lastRecordset1_numRows = 0%%39。End If%%Dim Recordset1Dim Recordset1_numRows If (Not MM_abortEdit) Then 39。 = amp。 where amp。 create the sql delete statement MM_editQuery = delete from amp。If (CStr(Request(MM_delete)) And CStr(Request(MM_recordId)) ) Then End If End If End If%%39。 amp。 ? amp。if (CStr(Request(MM_delete)) = form1 And CStr(Request(MM_recordId)) ) Then query string to executeMM_editQuery = %%39。 boolean to abort record editMM_abortEdit = false ()End IfMM_editAction = CStr((SCRIPT_NAME))If ( ) Then MM_editAction = MM_editAction amp。 end Not MM_atTotal % /td /tr /table pinput type=hidden name=MM_delete value=form1 input type=hidden name=MM_recordId value=%= (ID).Value %/p/form(2). 數(shù)據(jù)連接部分：%LANGUAGE=VBSCRIPT%!include file=../Connections/ %39。 end MM_offset 0 % /td td width=23% align=center % If Not MM_atTotal Then % a href=%=MM_moveNext%img src= border=0/a % End If 39。 /p table border=0 width=50% align=center trtd width=23% align=center% If MM_offset 0 Then % a href=%=MM_moveFirst%img src= border=0/a % End If 39。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。 input type=submit name=Submit value=刪除記錄 amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。amp。 總共有 input name=textfield7 type=text value=%=(Recordset1_total)% size=5 條記錄 /p pamp。amp。 業(yè) : input name=textfield11 type=text value=%=((專業(yè)).Value)% amp。amp。amp。amp。amp。amp。 好 : input name=textfield10 type=text value=%=((愛好).Value)%/p p專amp。 amp。amp。amp。amp。: input name=textfield9 type=text value=%=((聯(lián)系電話).Value)% /p p 愛amp。 址 : input name=textfield8 type=text value=%=((家庭地址).Value)% /p p聯(lián) 系 電 話 amp。 齡 :input name=textfield6 type=text value=%=((工齡).Value)% /p p家 庭 地amp。amp。amp。amp。amp。amp。amp。齡 ： input name=textfield5 type=text value=%=((年齡).Value)% /p p工amp。 amp。amp。amp。amp。amp。 別： input name=textfield4 type=text value=%=((性別).Value)% /p p年amp。amp。amp。amp。amp。amp。amp。 名： input name=textfield3 type=text value=%=((姓名).Value)% /p p性amp。amp。amp。amp。amp。amp。amp。 /p p姓amp。amp。： input name=textfield type=text value=%=((職位).Value)% amp。 位amp。amp。amp。amp。amp。amp。： input name=textfield2 type=text value=%=((ID).Value)%/p p職amp。amp。amp。 Damp。amp。amp。amp。amp。amp。 execute the insert Set MM_editCmd = () = MM_editConnection = MM_editQuery If (MM_editRedirectUrl ) Then (MM_editRedirectUrl) End If End IfEnd If%%Dim Recordset1Dim Recordset1_numRowsSet Recordset1 = ()