＜P＞    其实这个代码就是老外的那个翻页插件，后来是哪位好朋友（不好意思，忘了）修改后放在论坛上的，我还做成过插件，其实光是拷贝也挺方便的。＜BR＞    还有最后一段是前后翻页的按钮，呵呵，这个还是ccjat提醒后加上的，用不用都随便咯。 ＜BR＞＜%＜BR＞记录集名字_total = 记录集名字.RecordCount＜/P＞ ＜P＞If (记录集名字_numRows ＜ 0) Then＜BR＞记录集名字_numRows = 记录集名字_total＜BR＞Elseif (记录集名字_numRows = 0) Then＜BR＞记录集名字_numRows = 1＜BR＞End If＜/P＞ ＜P＞记录集名字_first = 1＜BR＞记录集名字_last = 记录集名字_first + 记录集名字_numRows - 1＜/P＞ ＜P＞If (记录集名字_total ＜＞ -1) Then＜BR＞If (记录集名字_first ＞ 记录集名字_total) Then 记录集名字_first = 记录集名字_total＜BR＞If (记录集名字_last ＞ 记录集名字_total) Then 记录集名字_last = 记录集名字_total＜BR＞If (记录集名字_numRows ＞ 记录集名字_total) Then 记录集名字_numRows = 记录集名字_total＜BR＞End If＜BR＞%＞＜BR＞＜%＜/P＞ ＜P＞If (记录集名字_total = -1) Then＜/P＞ ＜P＞记录集名字_total=0＜BR＞While (Not 记录集名字.EOF)＜BR＞记录集名字_total = 记录集名字_total + 1＜BR＞记录集名字.MoveNext＜BR＞Wend＜/P＞ ＜P＞If (记录集名字.CursorType ＞ 0) Then＜BR＞记录集名字.MoveFirst＜BR＞Else＜BR＞记录集名字.Requery＜BR＞End If＜/P＞ ＜P＞If (记录集名字_numRows ＜ 0 Or 记录集名字_numRows ＞ 记录集名字_total) Then＜BR＞记录集名字_numRows = 记录集名字_total＜BR＞End If＜/P＞ ＜P＞记录集名字_first = 1＜BR＞记录集名字_last = 记录集名字_first + 记录集名字_numRows - 1＜BR＞If (记录集名字_first ＞ 记录集名字_total) Then 记录集名字_first = 记录集名字_total＜BR＞If (记录集名字_last ＞ 记录集名字_total) Then 记录集名字_last = 记录集名字_total＜/P＞ ＜P＞End If＜BR＞%＞＜BR＞＜%＜BR＞Set MM_rs = 记录集名字＜BR＞MM_rsCount = 记录集名字_total＜BR＞MM_size = 记录集名字_numRows＜BR＞MM_uniqueCol = ""＜BR＞MM_paramName = ""＜BR＞MM_offset = 0＜BR＞MM_atTotal = false＜BR＞MM_paramIsDefined = false＜BR＞If (MM_paramName ＜＞ "") Then＜BR＞MM_paramIsDefined = (Request.QueryString(MM_paramName) ＜＞ "")＜BR＞End If＜BR＞%＞＜/P＞ ＜P＞＜%＜BR＞if (Not MM_paramIsDefined And MM_rsCount ＜＞ 0) then＜/P＞ ＜P＞r = Request.QueryString("index")＜BR＞If r = "" Then r = Request.QueryString("offset")＜BR＞If r ＜＞ "" Then MM_offset = Int(r)＜/P＞ ＜P＞＜BR＞＜%＜/P＞ ＜P＞MM_removeList = "&index="＜BR＞If (MM_paramName ＜＞ "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "="＜BR＞MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone=""＜/P＞ ＜P＞For Each Item In Request.QueryString＜BR＞NextItem = "&" & Item & "="＜BR＞If (InStr(1,MM_removeList,NextItem,1) = 0) Then＜BR＞MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item))＜BR＞End If＜BR＞Next＜/P＞ ＜P＞For Each Item In Request.Form＜BR＞NextItem = "&" & Item & "="＜BR＞If (InStr(1,MM_removeList,NextItem,1) = 0) Then＜BR＞MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item))＜BR＞End If＜BR＞Next＜/P＞ ＜P＞MM_keepBoth = MM_keepURL & MM_keepForm＜BR＞if (MM_keepBoth ＜＞ "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)＜BR＞if (MM_keepURL ＜＞ "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1)＜BR＞if (MM_keepForm ＜＞ "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)＜/P＞ ＜P＞Function MM_joinChar(firstItem)＜BR＞If (firstItem ＜＞ "") Then＜BR＞MM_joinChar = "&"＜BR＞Else＜BR＞MM_joinChar = ""＜BR＞End If＜BR＞End Function＜BR＞%＞＜BR＞＜%＜BR＞MM_keepMove = MM_keepBoth＜BR＞MM_moveParam = "index"＜/P＞ ＜P＞If (MM_size ＞ 0) Then＜BR＞MM_moveParam = "offset"＜BR＞If (MM_keepMove ＜＞ "") Then＜BR＞params = Split(MM_keepMove, "&")＜BR＞MM_keepMove = ""＜BR＞For i = 0 To UBound(params)＜BR＞nextItem = Left(params(i), InStr(params(i),"=") - 1)＜BR＞If (StrComp(nextItem,MM_moveParam,1) ＜＞ 0) Then＜BR＞MM_keepMove = MM_keepMove & "&" & params(i)＜BR＞End If＜BR＞Next＜BR＞If (MM_keepMove ＜＞ "") Then＜BR＞MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)＜BR＞End If＜BR＞End If＜BR＞End If＜/P＞ ＜P＞If (MM_keepMove ＜＞ "") Then MM_keepMove = MM_keepMove & "&"＜BR＞urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="＜BR＞MM_moveFirst = urlStr & "0"＜BR＞MM_moveLast = urlStr & "-1"＜BR＞MM_moveNext = urlStr & Cstr(MM_offset + MM_size)＜BR＞prev = MM_offset - MM_size＜BR＞If (prev ＜ 0) Then prev = 0＜BR＞MM_movePrev = urlStr & Cstr(prev)＜BR＞%＞＜BR＞＜script language="JavaScript"＞＜BR＞function jumpage(selObj,restore){＜BR＞eval("location='"+selObj.options[selObj.selectedIndex].value+"'");＜BR＞if (restore) selObj.selectedIndex=0;}＜BR＞＜/script＞＜/P＞ ＜P＞＜select name="pages" size=1 onChange="jumpage(this,0)" class="txtfld"＞＜BR＞＜%＜BR＞TM_counter = 0＜BR＞For i = 1 to 记录集名字_total Step MM_size＜BR＞TM_counter = TM_counter + 1＜BR＞TM_PageEndCount = i + MM_size - 1＜BR＞if TM_PageEndCount ＞ 记录集名字_total Then TM_PageEndCount = 记录集名字_total＜BR＞if i ＜＞ MM_offset + 1 then＜BR＞%＞＜BR＞＜option value="＜%=Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & i-1 %＞"＞ ＜BR＞第 ＜%= TM_counter %＞ 页＜/option＞＜BR＞＜% else %＞＜BR＞＜option selected＞第 ＜%=TM_counter%＞ 页＜/option＞＜BR＞＜% End if %＞＜BR＞＜% next %＞＜BR＞＜/select＞＜BR＞＜input type="button" class="INPUT" onclick="location.href='＜%=MM_movePrev%＞'" value="　" style="FONT-FAMILY: 'Wingdings 3'" ＜% If MM_offset ＜＞ 0 Then ＜BR＞response.write ""＜BR＞else ＜BR＞response.write "disabled"＜BR＞end if %＞＞＜BR＞＜input type="button" class="INPUT" onclick="location.href='＜%=MM_moveNext%＞'" value="}" style="FONT-FAMILY: 'Wingdings 3'" ＜% If Not MM_atTotal Then＜BR＞response.write ""＜BR＞else ＜BR＞response.write "disabled"＜BR＞end if %＞＞＜/P＞