<%'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='#' οnclick=submit_page(1)>首页</a> "
response.write "<a href='#' οnclick=submit_page("&CurrentPage-1&")>上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页 尾页"
else
response.write "<a href='#' οnclick=submit_page("&CurrentPage+1&")>"
response.write "下一页</a> <a href='#' οnclick=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>
复杂查询分页代码
最新推荐文章于 2021-10-28 16:40:25 发布