<% MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" MM_keepURL="":MM_keepForm="":MM_keepBoth="":MM_keepNone="" For Each Item In Request.QueryString NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepURL = MM_keepURL & NextItem & Server.URLencode(Request.QueryString(Item)) End If Next For Each Item In Request.Form NextItem = "&" & Item & "=" If (InStr(1,MM_removeList,NextItem,1) = 0) Then MM_keepForm = MM_keepForm & NextItem & Server.URLencode(Request.Form(Item)) End If Next MM_keepBoth = MM_keepURL & MM_keepForm if (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) if (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) if (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> <% MM_keepMove = MM_keepBoth MM_moveParam = "index" If (MM_size > 0) Then MM_moveParam = "offset" If (MM_keepMove <> "") Then params = Split(MM_keepMove, "&") MM_keepMove = "" For i = 0 To UBound(params) nextItem = Left(params(i), InStr(params(i),"=") - 1) If (StrComp(nextItem,MM_moveParam,1) <> 0) Then MM_keepMove = MM_keepMove & "&" & params(i) End If Next If (MM_keepMove <> "") Then MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1) End If End If End If If (MM_keepMove <> "") Then MM_keepMove = MM_keepMove & "&" urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "=" MM_moveFirst = urlStr & "0" MM_moveLast = urlStr & "-1" MM_moveNext = urlStr & Cstr(MM_offset + MM_size) prev = MM_offset - MM_size If (prev < 0) Then prev = 0 MM_movePrev = urlStr & Cstr(prev) %> <script language="JavaScript"> function jumpage(selObj,restore){ eval("location=''"+selObj.options[selObj.selectedIndex].value+"''"); if (restore) selObj.selectedIndex=0;} </script> <select name="pages" size=1 onChange="jumpage(this,0)" class="txtfld"> <% TM_counter = 0 For i = 1 to 记录集名字_total Step MM_size TM_counter = TM_counter + 1 TM_PageEndCount = i + MM_size - 1 if TM_PageEndCount > 记录集名字_total Then TM_PageEndCount = 记录集名字_total if i <> MM_offset + 1 then %> <option value="<%=Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & i-1 %>"> 第 <%= TM_counter %> 页</option> <% else %> <option selected>第 <%=TM_counter%> 页</option> <% End if %> <% next %> </select> <input type="button" class="INPUT" onclick="location.href=''<%=MM_movePrev%>''" value="|" style="FONT-FAMILY: ''Wingdings 3''" <% If MM_offset <> 0 Then response.write "" else response.write "disabled" end if %>> <input type="button" class="INPUT" onclick="location.href=''<%=MM_moveNext%>''" value="}" style="FONT-FAMILY: ''Wingdings 3''" <% If Not MM_atTotal Then response.write "" else response.write "disabled" end if %>> |