神马品牌网麻阳经济:asp结果分页
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 03:18:19
有没有不用参数就可以翻页的代码啊！
我原来的代码是这样，但是没有反应啊]
<script language="javascript">
<!--
function Page(fx)
{
switch(fx)
{
case "Pre":
document.Search.topage.value = document.Search.topage.value - 1;
document.Search.submit();
break;
case "Next":
document.Search.topage.value ++;
document.Search.submit();
break;
case "First":
document.Search.topage.value = 1;
document.Search.submit();
break;
case "Last":
document.Search.topage.value = <%=totalpage%>;
document.Search.submit();
break;
default:
document.Search.toPage.value = 1;
document.Search.submit();
break;
}
}
}
//-->
</script>
<tr>
<td width="66"><input name="first" type="button" class="btn_Xp_Bg1" id="first" value="第一页" onMouseOver="className='btn_Xp_Bg1_Over'" onMouseOut="className='btn_Xp_Bg1'" onClick="Page('First')"></td>
<td width="66"><input name="previous" type="button" class="btn_Xp_Bg1" id="previous" value="前一页" onMouseOver="className='btn_Xp_Bg1_Over'" onMouseOut="className='btn_Xp_Bg1'" onClick="Page('Pre')"></td>
<TD width="66"><input name="next" type="button" class="btn_Xp_Bg1" id="next" value="下一页" onMouseOver="className='btn_Xp_Bg1_Over'" onMouseOut="className='btn_Xp_Bg1'" onClick="Page('Next')"></TD>
<TD width="66"><input name="last" type="button" class="btn_Xp_Bg1" id="last" value="最后一页" onMouseOver="className='btn_Xp_Bg1_Over'" onMouseOut="className='btn_Xp_Bg1'" onClick="Page('Last')"></TD>
<TD width="100"><div align="center"><b>第<font color="#ff0000"><%=topage%></font>页/共<font color="#ff0000"><%=TotalPage%></font>页</b></div></TD>
由于很多参数
所以那位高手教教我啊
！！！
VB角本的代码我有. 先给你个函数, 有不明白的问我.
<!--#include file=conn.asp-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * from xiaohua" '打开数据库
rs.open sql,conn,1,1
%>
<%Const MaxPage=10%>
<%
dim totalPut
dim Page
if not isempty(request("page")) then
Page=cint(request("page"))
else
Page=1
end if
totalPut=rs.recordcount
%>
<% '手动改page时的判断
if page<1 then
page=1
end if
if (Page-1)*MaxPage>totalput then
page=1
end if
%>
<% '跳页
if Page<>1 then
rs.move (Page-1)*MaxPage
end if
%>
<%
showpage totalput,MaxPage,"翻页.asp" '本文件
%>
<%
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
response.write "<p align='center'>"
if Page<2 then
response.write "<font color='#000080' size=2>首页 | 上一页 | </font>"
else
response.write "<a href="&filename&"?page=1><font size=2>首页</a> | </font>"
response.write "<a href="&filename&"?page="&Page-1&"><font size=2>上一页</a> | </font>"
end if
if n-Page<1 then
response.write "<font color='#000080' size=2>下一页 | 尾页</font>"
else
response.write "<a href="&filename&"?page="&Page+1&"><font size=2>下一页</a> | </font>"
response.write "<a href="&filename&"?page="&n&"><font size=2>尾页</font></a>"
end if
response.write "<font color='#000080' size=2>：页次：</font><strong><font color=red size=2>"&Page&"</font><font color='#000080' size=2>/"&n&"</strong>页</font>"
response.write "<font color='#000080' size=2>：共<b>"&totalnumber&"</b>条记录: <b>"&maxperpage&"</b>条/页</font>"
end function
%>