<%
dim Myself,PATH_INFO,QUERY_STRING'本页地址和参数
PATH_INFO = request.servervariables("PATH_INFO")
QUERY_STRING = request.ServerVariables("QUERY_STRING")

if QUERY_STRING = "" then
	Myself = PATH_INFO & "?"
elseif Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")=0 then
	Myself= PATH_INFO & "?" & QUERY_STRING & "&"
else
	Myself = Left(PATH_INFO & "?" & QUERY_STRING,Instr(PATH_INFO & "?" & QUERY_STRING,"Page=")-1)
end if
%>
<script language="JavaScript" type="text/JavaScript">
<!--
function Page_jumpMenu(targ,selObj,restore){ //v3.0
  eval("location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
当前<font color="#FF0000"><%=curPageNumber%></font>/<%=totalPageNumber%>&nbsp;&nbsp;<%if request("Page")="" or request("Page")=1 then%>首页<%else%><a href="<%=Myself%>Page=1">首页</a><%end if%>&nbsp;&nbsp;<%if request("Page")="" or request("Page")=1 then%>上一页<%else%><a href="<%=Myself%>Page=<% if curPageNumber<=1 then response.Write(1) else response.Write(curPageNumber-1) end if%>">上一页</a><%end if%>&nbsp;&nbsp;<%if cint(request("Page"))=totalPageNumber then%>下一页<%else%><a href="<%=Myself%>Page=<% if curPageNumber>=totalPageNumber then response.Write(totalPageNumber) else response.Write(curPageNumber+1) end if%>">下一页</a><%end if%>&nbsp;&nbsp;<%if cint(request("Page"))=totalPageNumber then%>尾页<%else%><a href="<%=Myself%>Page=<%=totalPageNumber%>">尾页</a><%end if%>
                        直接到 
                       
                          <select name="menu1" onChange="Page_jumpMenu('parent',this,0)">
                            <%
							for pageNo=1 to totalPageNumber
							if pageNo=curPageNumber then
							%>
							<option  value="<%=Myself%>Page=<%=pageNo%>" selected><%=pageNo%></option>
							<% else %>
							<option  value="<%=Myself%>Page=<%=pageNo%>"><%=pageNo%></option>
                          <% 
						  end if
						  next %>
						  </select>
                      
                        页&nbsp;&nbsp;共&nbsp;<%=totalRsNumber%>&nbsp;条记录 
