|
<%
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北京网页设计 www.qitongnet.com
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 %>> |