返回   CHF站长论坛 > 综合讨论区 > 网站开发与设计

网站开发与设计 网页设计、网站开发、网站维护与调试交流区。

双至强仅二千,企商在线,最早租用商 魔兽世界私服 魔兽世界私服 此文字广告位招租 天龙八部私服 传奇世界私服 新开传奇私服
传奇私服 热血江湖私服 全球最新的创意科技产品 魔域私服 魔域私服 新开传奇私服 魔域私服 传奇私服
发表新主题 回复
 
主题工具 主题评分 显示模式
旧 2007-04-28, 17:20   #1 (页面定位)
阿达
 
阿达 的头像
 
注册日期: 2005-12-06
帖子: 37
阿达 是普普通通的会员
问题 请问ASP分页问题

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<% if request("d")="add" then %>
<!--#include file="conn.asp"-->
<%
if request.Form("xs_nj")="" or request.form("xs_zy")="" or request.form("xs_bj")="" then
response.write "<script language=javascript>"
response.write "alert('^_^请详细填写查询资料!^_^');"
response.write "javascript:history.go(-1);"
response.write "</script>"
else
xs_nj=request.Form("xs_nj")
xs_zy=request.Form("xs_zy")
xs_bj=request.Form("xs_bj")
set rs=server.createobject("adodb.recordset")
sql="select * from xsqk where xs_nj='"&xs_nj&"'and xs_zy = '"&xs_zy&"' and xs_bj = '"&xs_bj&"'"
rs.open sql,conn,1,1
%>
<%
'分页设置
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if

MaxPerPage=1 '###每页显示条数

dim totalPut '总页数
dim CurrentPage '当前页码
dim TotalPages '总页数
dim i,j
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>梅州市技工學校信息化管理系統</title>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<style type="text/css">
<!--
.bq {font-size:16px;
line-height: 140%;
}
.STYLE7 {
font-size: 18px;
font-weight: bold;
}
.STYLE10 {font-size: 16px;}
-->
</style>
</head>
<body>
<%
if not rs.recordcount>0 then
%>

<div align="center"><p>&nbsp;</p><b>对不起,没有找到你想要的记录!<b><p></p><a href="index.asp">首页</a>&nbsp;&nbsp;<a href="xsqkcx.asp">继续查询</a></div>
<%
else
%>
<div align="center"><span class="STYLE7">梅州市技工学校&nbsp;<%=rs("xs_nj")%>&nbsp;<%=rs("xs_zy")%>&nbsp;<%=rs("xs_bj")%>&nbsp;学生基本情况查询结果</span>
<br /><a href="index.asp">首页</a>&nbsp;&nbsp;<a href="xsqkcx.asp">继续查询</a>
<br />页面:
<%
dim rsu,sqlu
'并根据记录数进行分页显示。
sqlu="select * from xsqk where xs_nj='"&xs_nj&"'and xs_zy = '"&xs_zy&"' and xs_bj = '"&xs_bj&"'order by id desc"
Set rsu= Server.CreateObject("ADODB.Recordset")
rsu.open sqlu,conn,1,1

pageno=request("page")
if MaxPerPage="" or isempty(MaxPerPage) or MaxPerPage<1 then
MaxPerPage=15
end if
rsu.pagesize=MaxPerPage '得到每页数
mpage=rsu.pagecount '得到总页数
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if
for pno=1 to mpage
if pno=cint(pageno) then%><font color="#9999ff">【<font color="#FF0000"><b><%=pno%></b></font>】</font><%else%><font color="#9999ff">【<a href=xsqkcx.asp?d=add&id=<%=rsu("id")%>&page=<%=pno%> target="_self"><%=pno%></a>】</font><%end if%><%next%>
<table aling="center" border="1" width="841" cellpadding="2" cellspacing="0">
<tr align="center"><td><span class="STYLE10">姓名</span></td>
<td><span class="STYLE10">学号</span></td>
<td><span class="STYLE10">性别</span></td>
<td><span class="STYLE10">年龄</span></td>
<td><span class="STYLE10">民族</span></td>
<td><span class="STYLE10">入学时间</span></td>
<td><span class="STYLE10">毕业时间</span></td>
</tr>
<%
k=(totalPut-MaxPerPage*(currentPage-1))+1
do while not rs.eof
k=k-1%>
<tr align="center"><td><%=rs("xs_user") %>&nbsp;</td><td><%=rs("xs_xh") %>&nbsp;</td><td><%=rs("xs_xb")%>&nbsp;</td><td><%=rs("xs_nl") %>&nbsp;</td><td><%=rs("xs_nz")%>&nbsp;</td><td><%=rs("xs_lxtime")%>&nbsp;</td><td><%=rs("xs_bytime")%>&nbsp;</td>
</tr>

<% i=i+1
if i>=MaxPerPage then exit do
rs.movenext
loop
%></table><%end if %>
</div>
</body>
<%
rs.close
set rs=nothing
conn.close
set rs=nothing
end if
%></html>
<%else%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>梅州市技工學校信息化管理系統</title>
<script src="Scripts/AC_RunActiveContent.js" type="text/javascript"></script>
<style type="text/css">
<!--
.STYLE2 {color: #FFFFFF}
.STYLE6 {font-size: 14px}
.bq {font-size:16px;
line-height: 140%;
}
A:link{color:#ffffff;text-decoration:none}
A:visited{color:#ffffff;text-decoration:none}
A:active{color:#ff0000;text-decoration:none}
A:hover{color:#ff0000;text-decoration:none}
.STYLE12 {color: #FF0000}
-->
</style>
</head>
<!-- #include file="top1.inc" -->
<!-- 导航条 -->
<tbody>
<tr>
<td >
<table width="778" bgcolor="#0089f7"height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="100%">&nbsp;<span class="STYLE2"><img src="images/class_ar.gif">&nbsp;<span style="font-weight: bold">您当前的位置: <a href="index.asp">首页</a></span></span> <span class="STYLE2" style="font-weight: bold; color: #FFFFFF">-&gt;</span> <span class="STYLE2" style="font-weight: bold; color: #FFFFFF">学生基本情况查询</span></td>
</tr></table></td></tr></tbody>

<!-- BODY内客 1 -->
<tbody>
<div>&nbsp;<br/><tr><td><table width="358" border="1" align="center" cellpadding="0" cellspacing="2" bordercolor="#c4d6c4" bgcolor="#ffffff">
<tr>
<td width="358" height="26" colspan="2" background="images/main_bs.gif"><div align="center" style="font-size: 24px">
<p class="STYLE2" style="font-weight: bold">学生基本情况查询</p>
</div></td></tr>
<tr>
<td colspan="2" align="right">请注意:带有<span class="STYLE12">*</span>的项目必须填写。</td></tr>
<form action="xsqkcx.asp?d=add" method="post">
<tr><td width="25%" align="right">学生年级:&nbsp;</td><td><input type="text" name="xs_nj" size="12" />&nbsp;<span class="STYLE12">*</span></td></tr>
<tr><td width="25%" align="right">学生专业:&nbsp;</td><td><input type="text" name="xs_zy" size="12" />&nbsp;<span class="STYLE12">*</span></td></tr>
<tr><td width="25%" align="right">学生班级:&nbsp;</td><td><input type="text" name="xs_bj" size="12" />&nbsp;<span class="STYLE12">*</span></td></tr>
<tr><td colspan="2" align="center"><input type="submit" value="查询">&nbsp;&nbsp;<input type="reset" value="重置"></td></tr>
</form>
</table>
<div>&nbsp;<br/><br/></div></td></tr></tbody>
<!-- #include file="eof.inc" -->
<%end if%>
请问一下,可以显示分几页,但点第二页是提示找不到记录,请问是什么原因
阿达 当前离线   回复时引用此帖
旧 2007-04-29, 09:36   #2 (页面定位)
Function
 
Function 的头像
 
注册日期: 2006-03-24
帖子: 3891
Function 是一个将要出名的人Function 是一个将要出名的人Function 是一个将要出名的人Function 是一个将要出名的人Function 是一个将要出名的人Function 是一个将要出名的人Function 是一个将要出名的人Function 是一个将要出名的人
默认

引用:
xs_nj=request.Form("xs_nj")
xs_zy=request.Form("xs_zy")
xs_bj=request.Form("xs_bj")
分页的时候,有传递这些参数吗?两个地方的查询语句都用到了这几个参数。
Function 当前离线   回复时引用此帖
旧 2007-04-29, 18:36   #3 (页面定位)
nucgegeasp
一般站友
 
注册日期: 2007-04-21
帖子: 10
nucgegeasp 是普普通通的会员
默认

我没看到你的rs.move (Current_page-1)*MaxPerPage这句啊,你怎么实现的分页功能?
想学习一下。
这是我用的分页用的函数,可以直接存为page.asp,到用的时候<!--#include file="page.asp"-->
直接调用函数就行了。你自己研究一下吧
<%
function ShowPpage(currentPage,MaxPerPage,totalPut,filename)
dim totalPage
if totalPut mod MaxPerPage=0 then
totalPage=totalPut \ MaxPerPage
else
totalPage=totalPut \ MaxPerPage + 1
end if
if currentPage<2 then
response.write "首页 上一页 "
else
response.write "<a href='"&filename&"?page=1'>首页</a> "
response.write "<a href='"&filename&"?page="&currentPage-1&"'>上一页</a> "
end if
if totalPage-currentPage<1 then
response.write "下一页 尾页 "
else
response.write "<a href='"&filename&"?page="&currentPage+1&"'>下一页</a> "
response.write "<a href='"&filename&"?page="&totalPage&"'>尾页</a> "
end if
response.write " 共"&totalPut&"条 每页"&MaxPerPage&"条"
end function
%>
<%
Function ShowContent(currentPage,MaxPerPage,filename)
Dim i
for i=1 to MaxPerPage
if rs.bof and rs.eof then
exit for
end if
if currentPage=1 then
%>
<p><img src="top<%= i %>.gif" width="14" height="14">
 <a href="<%= filename %>?id=<%= rs("r_id") %>"><%= rs("r_title") %></a> <%= rs("r_title") %></p>
<%
else
%>
<p><%= i+(currentPage-1)*MaxPerPage %>.
 <a href="<%= filename %>?id=<%= rs("r_id") %>"><%= rs("r_title") %></a> <%= rs("r_title") %></p>
<%
end if
rs.movenext
next
if rs.bof and rs.eof and i=1 then
response.write "暂时还没有任何通知"
end if
End Function
%>
nucgegeasp 当前离线   回复时引用此帖
回复

书签

标签

主题工具
显示模式 对此主题评分
对此主题评分:



所有时间均为北京时间。现在的时间是 09:41