复杂查询分页代码

<%'on error resume next
 function showpage(totalnumber,maxperpage)  '调用此函数只需要修改FORM中action的值,也就是跳转页面的地址 
   dim n    
   if totalnumber mod maxperpage=0 then    
       n= totalnumber / maxperpage    
   else    
       n= totalnumber / maxperpage+1   
   end if   
   response.write "<form method=Post action=12_rs.asp name='form2'><table width='90%'  border='0' cellpadding='0' cellspacing='0' class=style1  ><tr align='right'><td>"         
 response.write "页次<strong><font color=red>"&CurrentPage&"</font>/"&n&"</strong>页 "
 response.write "总数<strong><font color=red>"&totalnumber&"</font></strong> "
 response.write "<font color=green>"&maxperpage&"</font>个/页  "
   if CurrentPage<2 then    
      response.write "首页 上一页 "    
   else    
   response.write "<a href='#' onclick=submit_page(1)>首页</a> "     
      response.write "<a href='#' onclick=submit_page("&CurrentPage-1&")>上一页</a> " 
   end if    
    
   if n-currentpage<1 then    
      response.write "下一页 尾页"    
   else   
      response.write "<a href='#' onclick=submit_page("&CurrentPage+1&")>"      
      response.write "下一页</a> <a href='#' onclick=submit_page("&n&")>尾页</a>"  
   
   end if    
  response.write " 转到 <select name='page' size='1' style='color:#008080;font-size: 9pt' onChange='javascript:submit();'>"
 dim j
 for j = 1 to n
        response.write "<option value="&j
 if cint(currentPage)=cint(j) then
        response.write " selected"
 end if
        response.write ">第"&j&"页</option>"      
 next
        response.write "</select></td></tr></table>"
  %>
  <% '以下部分为页面跳转时要传递的值,通过隐藏域来传递%>
  <table><tr><td>
 <input type="hidden" name="jiedao"    value="<%=street%>">
  <input type="hidden" name="shequ"     value="<%=borough%>">
   </td></tr>
  </table>
 </FORM>
 <%       
 end function      
%>
<script language="javascript">
function submit_page (page)
        {  form2.page.value=page;
     form2.submit();
     }
</script>