asp查询带条件后分页出现问题 20
一个电话号码查询网页，提交网页有两项：部门和教师姓名表名为haoma其中bumen为部门，jiaoshiname为教师姓名其中分页代码在一般查询分页都正常，可这次加了些条...
一个电话号码查询网页，提交网页有两项：部门和教师姓名 表名为haoma 其中bumen为部门，jiaoshiname为教师姓名
其中分页代码在一般查询分页都正常，可这次加了些条件（开头判断部门名是否为“不确定哪个部门”和姓名是否为空），第一页正常，第二页开始就不正常了，大概意思是找不到记录
如何解决，谢谢！
<!--#include file="conn.asp"-->
<%
bumenname=request.form("bumenname")
jiaoshiname=request.form("jiaoshiname")
Set rs = Server.CreateObject("ADODB.Recordset")
if jiaoshiname="" and bumenname="不确定哪个部门" then
response.write ("<script language=javascript>window.alert('什么也不填，你查什么啊!');location.href='tjlist0.asp';</script>")
end if
if jiaoshiname="" and bumenname<>"不确定哪个部门" then
sql="select * from haoma where bumenname='"&bumenname&"' ORDER by id"
end if
if jiaoshiname<>"" and bumenname="不确定哪个部门" then
sql="select * from haoma where jiaoshiname='"&jiaoshiname&"' ORDER by id"
end if
if jiaoshiname<>"" and bumenname<>"不确定哪个部门" then
sql="select * from haoma where bumenname='"&bumenname&"' and jiaoshiname='"&jiaoshiname&"' ORDER by id"
end if
rs.Open sql,conn,3,3
if rs.eof and rs.bof then
response.write ("<script language=javascript>window.alert('对不起，没有此人的相关信息，请核对您的输入是否有错或发送邮件到rentiejun@netease.com反馈问题');location.href='tjlist0.asp';</script>")
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>查询系统</title>
<style type="text/css">
<!--
.style1 {color: #0000FF}
.style3 {color: #000000}
-->
</style>
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr><td><div align="right"><a href="manage.asp"><font color="red">返回管理首页</font></a> </div></td></tr>
</table>
这是我的一个电话号码查询网页 包含两个页面，其中【学校领导】一项有数据 也是有问题的一项 分页后下一页无法正常显示，应该是值没传过去，怎么做
文件地址：http://60.2.50.62/1/tongxunlu.rar
测试地址：http://60.2.50.62/1/txllist0.asp
有空帮忙改一下 谢谢！！我查了应该是值没传过去 及China_Code所说的 我再试试 大家也帮忙看看 展开
其中分页代码在一般查询分页都正常，可这次加了些条件（开头判断部门名是否为“不确定哪个部门”和姓名是否为空），第一页正常，第二页开始就不正常了，大概意思是找不到记录
如何解决，谢谢！
<!--#include file="conn.asp"-->
<%
bumenname=request.form("bumenname")
jiaoshiname=request.form("jiaoshiname")
Set rs = Server.CreateObject("ADODB.Recordset")
if jiaoshiname="" and bumenname="不确定哪个部门" then
response.write ("<script language=javascript>window.alert('什么也不填，你查什么啊!');location.href='tjlist0.asp';</script>")
end if
if jiaoshiname="" and bumenname<>"不确定哪个部门" then
sql="select * from haoma where bumenname='"&bumenname&"' ORDER by id"
end if
if jiaoshiname<>"" and bumenname="不确定哪个部门" then
sql="select * from haoma where jiaoshiname='"&jiaoshiname&"' ORDER by id"
end if
if jiaoshiname<>"" and bumenname<>"不确定哪个部门" then
sql="select * from haoma where bumenname='"&bumenname&"' and jiaoshiname='"&jiaoshiname&"' ORDER by id"
end if
rs.Open sql,conn,3,3
if rs.eof and rs.bof then
response.write ("<script language=javascript>window.alert('对不起，没有此人的相关信息，请核对您的输入是否有错或发送邮件到rentiejun@netease.com反馈问题');location.href='tjlist0.asp';</script>")
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css.css">
<title>查询系统</title>
<style type="text/css">
<!--
.style1 {color: #0000FF}
.style3 {color: #000000}
-->
</style>
</head>
<body leftmargin="0" Topmargin="0" marginwidth="0" marginheight="0" background="images/greystrip.gIf">
<table width="760" border="0" cellspacing="0" cellpadding="0">
<tr><td><div align="right"><a href="manage.asp"><font color="red">返回管理首页</font></a> </div></td></tr>
</table>
这是我的一个电话号码查询网页 包含两个页面，其中【学校领导】一项有数据 也是有问题的一项 分页后下一页无法正常显示，应该是值没传过去，怎么做
文件地址：http://60.2.50.62/1/tongxunlu.rar
测试地址：http://60.2.50.62/1/txllist0.asp
有空帮忙改一下 谢谢！！我查了应该是值没传过去 及China_Code所说的 我再试试 大家也帮忙看看 展开
4个回答
展开全部
<!--#include file="conn.asp"-->
<%
function showpage(totalnumber,page,filename) '参数分别为：总纪录数、当前页码、链接文件
if page=-1 then
response.Write("当前没有记录")
'response.End()
else
if page>1 and page<rs.pageCount then
response.write "<a href="&filename&"page=1>首页</a> "
response.write "<a href="&filename&"page="&page-1&">上一页</a> "
response.write "<a href="&filename& "page="&page+1&">下一页</a> "
response.write "<a href="&filename&"page="&rs.pagecount&">尾页</a> "
else
if page<2 and rs.pageCount>1 then
response.write "首页 "
response.write "上一页 "
response.write "<a href="&filename&"page="&page+1&">下一页</a> "
response.write "<a href="&filename&"page="&rs.pagecount&">尾页</a> "
'response.write "下一页 "
'response.write "尾页 "
elseif page=1 and rs.pageCount=1 then
response.write "首页 "
response.write "上一页 "
'response.write "<a href="&filename&"page="&page+1&"">下一页</a> "
'response.write "<a href="&filename&"?page="&rs.pagecount&"">尾页</a> "
response.write "下一页 "
response.write "尾页 "
else
if page>(rs.pagecount-1) then
response.write "<a href="&filename&"page=1"&">首页</a> "
response.write "<a href="&filename&"page="&page-1&">上一页</a> "
'response.write "首页 "
'response.write "上一页 "
response.write "下一页 "
response.write "尾页 "
end if
end if
end if
response.write page&"/"&rs.pagecount&"页 "
response.write "共"&rs.Recordcount&"条信息"
end if
end function
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from ziliao"
rs.open sql,db,3,2
rs.pagesize=50
if Not IsEmpty(Request("Page")) then
Page = CInt(Request("Page"))
if Page >= rs.PageCount then
rs.AbsolutePage = rs.PageCount
Page=rs.PageCount
elseif Page <= 0 then
rs.AbsolutePage = rs.PageCount
Page = 1
end if
rs.AbsolutePage = Page
else
page=1
rs.AbsolutePage=Page
End if
%>
<%
For i=1 to rs.pagesize
if rs.EOF then
Exit For
end if
%>
这里放查询的内容
<%
rs.movenext
Next
%>
<table width="100%" border="0">
<tr>
<td > <div align="center">
<%showpage rs.RecordCount,page,"tongxun.asp?"%>
</div></td>
</tr>
</table>
<%
rs.close()
set rs=nothing
%>
<%
function showpage(totalnumber,page,filename) '参数分别为：总纪录数、当前页码、链接文件
if page=-1 then
response.Write("当前没有记录")
'response.End()
else
if page>1 and page<rs.pageCount then
response.write "<a href="&filename&"page=1>首页</a> "
response.write "<a href="&filename&"page="&page-1&">上一页</a> "
response.write "<a href="&filename& "page="&page+1&">下一页</a> "
response.write "<a href="&filename&"page="&rs.pagecount&">尾页</a> "
else
if page<2 and rs.pageCount>1 then
response.write "首页 "
response.write "上一页 "
response.write "<a href="&filename&"page="&page+1&">下一页</a> "
response.write "<a href="&filename&"page="&rs.pagecount&">尾页</a> "
'response.write "下一页 "
'response.write "尾页 "
elseif page=1 and rs.pageCount=1 then
response.write "首页 "
response.write "上一页 "
'response.write "<a href="&filename&"page="&page+1&"">下一页</a> "
'response.write "<a href="&filename&"?page="&rs.pagecount&"">尾页</a> "
response.write "下一页 "
response.write "尾页 "
else
if page>(rs.pagecount-1) then
response.write "<a href="&filename&"page=1"&">首页</a> "
response.write "<a href="&filename&"page="&page-1&">上一页</a> "
'response.write "首页 "
'response.write "上一页 "
response.write "下一页 "
response.write "尾页 "
end if
end if
end if
response.write page&"/"&rs.pagecount&"页 "
response.write "共"&rs.Recordcount&"条信息"
end if
end function
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from ziliao"
rs.open sql,db,3,2
rs.pagesize=50
if Not IsEmpty(Request("Page")) then
Page = CInt(Request("Page"))
if Page >= rs.PageCount then
rs.AbsolutePage = rs.PageCount
Page=rs.PageCount
elseif Page <= 0 then
rs.AbsolutePage = rs.PageCount
Page = 1
end if
rs.AbsolutePage = Page
else
page=1
rs.AbsolutePage=Page
End if
%>
<%
For i=1 to rs.pagesize
if rs.EOF then
Exit For
end if
%>
这里放查询的内容
<%
rs.movenext
Next
%>
<table width="100%" border="0">
<tr>
<td > <div align="center">
<%showpage rs.RecordCount,page,"tongxun.asp?"%>
</div></td>
</tr>
</table>
<%
rs.close()
set rs=nothing
%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
原因！分页时候没有传递所包含的参数！导致出现问题！
你吧你的代码都贴出来吧！只要在分页加上需要的两个参数就OK了！
代码如下：
&bumenname=bumenname&jiaoshiname=jiaoshiname
你吧你的代码都贴出来吧！只要在分页加上需要的两个参数就OK了！
代码如下：
&bumenname=bumenname&jiaoshiname=jiaoshiname
参考资料： ASP
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
晕，你这一页只有查询语句，没有分页代码，叫别人怎么帮你啊。
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
是参数没有传递的问题
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（2）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
