全民穿越之宫攻略家族:急求高手提供好用的 asp分页源代码系统！！

来源：百度文库编辑：高校问答时间：2024/05/01 13:59:46

<%
dim MaxPerPage
MaxPerPage=25
dim totalPut
dim CurrentPage
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
%>

..

<%
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 "<table cellspacing=1 width='100%' border=0 colspan='4'><form method=Post action="""&filename&"?id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &"""><tr><td align=right> "
if CurrentPage<2 then
response.write "共有："&totalnumber&" 条提问信息首页上一页 "
else
response.write "共有："&totalnumber&" 条提问信息 <a href="&filename&"?page=1&id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &" class=gray>首页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &" class=gray>上一页</a> "
end if
if n-currentpage<1 then
response.write "下一页尾页"
else
response.write "<a href="&filename&"?page="&(CurrentPage+1)&"&id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &" class=gray>"
response.write "下一页</a> <a href="&filename&"?page="&n&"&id="&id&"&cid="&cid&"&where="& where &"&keyword="& keyword &" class=gray>尾页</a>"
end if
response.write " 页次"&CurrentPage&"/"&n&"页"
response.write " "&maxperpage&"条提问信息/页 "
%>
转到：
<select name='page' size='1' style="font-size: 9pt" onChange='javascript:submit()'>
<%for i = 1 to n%>
<option value='<%=i%>' <%if CurrentPage=cint(i) then%> selected <%end if%>>第<%=i%>页</option>
<%next%>
</select>
<%
response.write "</td></tr></FORM></table>"
end function
%>

这是一套分页程序，有7种不同得效果

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

<!doctype html public "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title> JavaScript: showPages v1.0 [by Lapuasi.com]</title>
<script language="JavaScript">

</script>
<style>
/* Pages Main Tyle */
.pages {
color: #000000;
cursor: default;
font-size: 10px;
font-family: Tahoma, Verdana;
padding: 3px 0px 3px 0px;
}
.pages .count, .pages .number, .pages .arrow {
color: #000000;
font-size: 10px;
background-color: #F7F7F7;
border: 1px solid #CCCCCC;
}
/* Page and PageCount Style */
.pages .count {
font-weight: bold;
border-right: none;
padding: 2px 10px 1px 10px;
}
/* Mode 0,1,2 Style (Number) */
.pages .number {
font-weight: normal;
padding: 2px 10px 1px 10px;
}
.pages .number a, .pages .number span {
font-size: 10px;
}
.pages .number span {
color: #999999;
margin: 0px 3px 0px 3px;
}
.pages .number a {
color: #000000;
text-decoration: none;
}
.pages .number a:hover {
color: #0000ff;
}
/* Mode 3 Style (Arrow) */
.pages .arrow {
font-weight: normal;
padding: 0px 5px 0px 5px;
}
.pages .arrow a, .pages .arrow span {
font-size: 10px;
font-family: Webdings;
}
.pages .arrow span {
color: #999999;
margin: 0px 5px 0px 5px;
}
.pages .arrow a {
color: #000000;
text-decoration: none;
}
.pages .arrow a:hover {
color: #0000ff;
}
/* Mode 4 Style (Select) */
.pages select, .pages input {
color: #000000;
font-size: 10px;
font-family: Tahoma, Verdana;
}
/* Mode 5 Style (Input) */
.pages .input input.ititle, .pages .input input.itext, .pages .input input.icount {
color: #666666;
font-weight: bold;
background-color: #F7F7F7;
border: 1px solid #CCCCCC;
}
.pages .input input.ititle {
width: 70px;
text-align: right;
border-right: none;
}
.pages .input input.itext {
width: 25px;
color: #000000;
text-align: right;
border-left: none;
border-right: none;
}
.pages .input input.icount {
width: 35px;
text-align: left;
border-left: none;
}
.pages .input input.ibutton {
height: 17px;
color: #FFFFFF;
font-weight: bold;
font-family: Verdana;
background-color: #999999;
border: 1px solid #666666;
padding: 0px 0px 2px 1px;
margin-left: 2px;
cursor: hand;
}

/* body */
body {
font-size: 12px;
}
</style>
</head>

<body>
<script language="JavaScript">

</script>
</body>
</html>

数据库rs打开后,加入以下代码
<%
maxperpage=10 '定义每一页显示的数据记录
dim currentpage '定义当前页的变量
rs.pagesize=maxperpage
currentpage=request.querystring("pageid")
if currentpage="" then
currentpage=1
elseif currentpage<1 then
currentpage=1
else
currentpage=clng(currentpage)
if currentpage > rs.pagecount then
currentpage=rs.pagecount
end if
if rs.pagecount=0 then
currentpage=1
end if
end if
'如果变量currentpage的数据类型不是数值型
'就1赋给变量currentpage
if not isnumeric(currentpage) then
currentpage=1
end if
dim totalput,n '定义变量
totalput=rs.recordcount
if totalput mod maxperpage=0 then
n=totalput\maxperpage
else
n=totalput\maxperpage+1
end if
if n=0 then
n=1
end if
if not rs.eof then
rs.AbsolutePage = currentpage
i=1
do while not (rs.eof or rs.bof) and i<=maxperpage
'下面为往表格里写入数据的代码,改成你自己所需要的
response.write("<TR height='25'><TD align='left'> <a href='#' onclick=OpenWindows('looknotify.asp?Id="&rs("id")&"')> "&rs("notifysubject")&"</a></TD>")
response.write("<TD align='center'> "&rs("sendDate")&" </TD>")
response.write("<TD align='center'> "&rs("sender")&" </TD>")
response.write("<TD align='center'> "&rs("availTime")&" "&rs("availunit")&"</TD>")
rs.movenext
i=i+1
loop
dim j
if i<=maxperpage then
for j=i to maxperpage
response.write("<tr height='25'><td> </td>")
response.write("<td> </td>")
response.write("<td> </td>")
response.write("<td> </td>")
response.write("<td> </td>")
response.write("<td> </td></tr>")
next
end if
else
response.write("<tr><td colspan='6' height='30' align='center'>没有任何通知！</td></tr>")
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
%>

下面是在网页中显示下一页,上一页等字样的代码
<td height="20" align="center" size="font-size:8">页数：<%=currentpage%>/<%=n%>
<%k=currentpage
if k<>1 then%>
[<a href="notify_listtable.asp?pageid=1">首页</a>]
[<a href="notify_listtable.asp?pageid=<%=k-1%>">上一</a>]
<%else%>
[首页] [上一页]
<%end if%>
<%if k<>n then%>
[<a href="notify_listtable.asp?pageid=<%=k+1%>">下一</a>]
[<a href="notify_listtable.asp?pageid=<%=n%>">尾页</a>]
<%else%>
[下一页] [尾页]
<%end if%>
共有<%=totalput%>条记录
第<input type="text" name="pageid" size=2 style="height:18" value="<%=currentpage%>" align="absmiddle" class="doc_txt1" onkeypress="vbscript:checkkey()">页
<td width="45" align="center" bgcolor="#dedff7" onmouseover="javascript:this.bgColor='#ffff99';this.style.cursor='hand';" onmouseout="javascript:this.bgColor='#dedff7';" onclick="document.form1.submit()" class="doc_button">goto</td>
</td>

把notify_listtable.asp改成你当前网页的名字

急求高手提供好用的 asp分页源代码系统！！ asp查询分页技术的源代码求用ASP做的新闻更新系统源代码，谢谢！急求毕业设计：酒店客房管理系统 ASP+SQL 源代码 asp分页的问题!!!!!!!!!!!!急急等:请高手发个网站用户登陆系统的asp源代码求仓库数据查询系统的的ASP源代码 asp分页程序怎么用，路过的高手指教一下！求这种情况下的ASP分页代码求一段ASP 的分页代码

全民穿越之宫攻略家族:急求高手提供好用的 asp分页源代码系统 ！！

全民穿越之宫攻略家族:急求高手提供好用的 asp分页源代码系统！！