搜索后分页显示

xh49029008 2009-07-30 09:17:48

<script language="javascript">
function checkname()
{
if(document.form1.studentname.value=="")
{
alert("名字不能为空")
document.form1.studentname.focus()
}
form1.submit()
}
</script>

<script language="vbscript">
sub checkpage()
c=document.form2.page.value
if c<>"" then
if IsNumeric(c) then
form2.submit()
else
msgbox "页数不是整数！"
exit sub
end if
else
msgbox "不能为空！"
exit sub
end if
end sub

</script>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>

<body>

<table border="1">

<form name="form1" method="get" action="student_admin.asp?studentname=<%=request("studentname")%>">

<tr ><td colspan="5">以下为姓名为：<%=request("studentname")%>的考生<input type="text" name="studentname" value="<%=request("studentname")%>"><input type="button" onClick="checkname();" value="search" ></td></tr>
<tr>
<td width=170>考试号</td>
<td width=170>考试分数</td>
<td width=170>补考设置</td>
<td width=170>补考成绩</td>
<td width=170>修改资料</td>
</tr>
</form>
<%
if trim(request("page"))="" then
page=1
else
page=cint(trim(request("page")))
end if
studentname=trim(request("studentname"))
set rs=server.CreateObject("adodb.recordset")
sqlfind="select * from student where studentname='"&request("studentname")&"'"
rs.open sqlfind,conn,1,1

if (rs.bof and rs.eof) then
%>
<tr><td colspan="5" align="center">查无此学生！</td></tr>
<%
else
studentnumber=rs("studentnumber")
set rss=server.CreateObject("adodb.recordset")
sqlfind="select * from examination where studentnumber='"&studentnumber&"'"
rss.open sqlfind,conn,1,1
rss.pagesize=3
if (rss.bof and rss.eof) then

%>
<tr><td colspan="5" align="center">该学生还没考试</td></tr>
<%
else
' 调试 response.Write "kaole!"

if page<1 then
page=1
end if
if page>rss.pagecount then
page=rss.pagecount
end if
rss.absolutepage=page
'调试
'response.Write "page"&page&" "
'response.Write "pagecount"&rss.pagecount
'response.Write"studentname"&rs("studentname")

for i=1 to rss.pagesize
%>
<tr>
<td width=170><%=rss("examinationid")%></td>
<td width=170><%=rss("score")%></td>
<td width=170><%if rss("pass")=true then response.Write "通过" else response.Write "不及格" end if%></td>
<td width=170><%=rss("makeup")%></td>
<td width=170><a href='student_admin_edit.asp?studentnumber=<%=studentnumber%>'>修改数据</a></td>
</tr>

<%
if rss.eof then
exit for
end if
rss.movenext
next
rs.close
rss.close

end if
end if
%>

<form name="form2" method="get" action="student_admin.asp?studentname=<%=studentname%>">
<tr align="right"><td colspan="5"><input type="text" name="page" ><input type="button" onClick="checkpage();" value="goto"><input type="hidden" name="studentname" value="<%=studentname%>">
</td></tr>
</form>

<%
set rs=server.CreateObject("adodb.recordset")
sqlfind="select * from student where studentname='"&studentname&"'"
rs.open sqlfind,conn,1,1

if not (rs.bof and rs.eof) then
studentnumber=rs("studentnumber")
set rss=server.CreateObject("adodb.recordset")
sqlfind="select * from examination where studentnumber='"&studentnumber&"'"
rss.open sqlfind,conn,1,1
if not (rss.bof and rss.eof) then
rss.pagesize=3
'调试
'response.Write studentnumber
'response.Write "page"&page&" "
'response.Write "pagecount"&rss.pagecount
'response.Write"studentname"&rs("studentname")
%>
<tr><td colspan="5">
<%
if page<>1 then
%>
<a href='?studentname=<%=studentname%>&page=1'>第一页</a>
<a href='?studentname=<%=studentname%>&page=<%=page-1%>'>上一页</a>

<%
end if'括号不能加 <%=(page-1)% >
%>
<%
if page<>rss.pagecount then
'response.Write "!!"
%>
<a href='?studentname=<%=studentname%>&page=<%=page+1%>'>下一页</a>
<a href='?studentname=<%=studentname%>&page=<%=rss.pagecount%>'>最后一页</a>
<%
end if
%>

</td>
</tr>
<%
end if
end if
%>
</table>

</body>
</html>

...全文

56 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

lbcleo 2009-07-30

打赏
举报

<%
if page <>1 then
%>
<a href='?studentname= <%=studentname%>&page=1'>第一页 </a>
<a href='?studentname= <%=studentname%>&page= <%=page-1%>'>上一页 </a>

<%
end if'括号不能加 <%=(page-1)% >
%>
<%
if page <>rss.pagecount then
'response.Write "!!"
%>
<a href='?studentname= <%=studentname%>&page= <%=page+1%>'>下一页 </a>
<a href='?studentname= <%=studentname%>&page= <%=rss.pagecount%>'>最后一页 </a>
<%
end if
%>

</td>
</tr>
<%
end if
end if
%>

这的判断好乱啊!

xh49029008 2009-07-30

打赏
举报

对不起啊刚来建的号发了第一篇帖子结贴率就低了点。。。

xh49029008 2009-07-30

打赏
举报

代码有点乱，对不起啊~
具体意思是：
输入学生姓名studentname后在表student中查询得到rs
从rs中得到对应的学生学号studentnumber
通过studentnumber查询在表examination中得到对应的rss
然后输出分数并且分页显示

问题是：搜索还行，没错
但是只要输入页码点击goto或者点击下一页或者最后一页的时候就出来：

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

分页显示

1.Django 搜索结果分页的实现在这里我们用django自带的分页模块来实现这个paginator对象中带有如下属性： #per_page：每页显示条目数量 #count：数据总个数 #num_pages：总页数 #page_range：总页数的索引范围，如：（1,10），（1,200） #page：page对象 view.py #先导包 from django.shortcuts import render from django.core.paginator import Paginator, EmptyPage, PageNotAnInteger #搜索和分页的实现 @csrf

仿百度分页，谷歌分页页码处理解决分页太多，智能始终显示一部分的效果可以依照这个思路自己改，很好上手，分页思想都有注释

JAVA分页是个经典问题，本人从网上搜集资料，并通过编程，较为完美地决地了这个问题，浏览、增加、删除、修改、查看、搜索都可以回到原来的页码，源码已经上传CSDN,值得下载！我的方案是用两个TAG完成分页显示数据和页码，一个TAG（display）专门显示数据，一个TAG(page)专门显示页码，可以满足所有的分页要求，在JSP文件中调用这两个TAG既可完成分页任务。页码格式类似百度和谷歌，比较标准。