[求助]ASP分页问题 - ASP技术论坛

cten

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-6-3

楼主

问题点数：0 回复次数：8

[求助]ASP分页问题

<%
Name=request.form("Name")
SqlStr="select * from userlist where 1=1 "
if Name<>""then
SqlStr=SqlStr & "AND 姓名 LIKE '%"& Name &"%'"
end if
SqlStr=SqlStr & "Order by Id"
Set Rs=conn.Execute(SqlStr)
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>通讯录列表---软件B班杨小斌</title>
</head>
<body>
<center>
<p align ="center"></center><b>通讯录名单</b>
<table border="1" borderColorDark="#ffffff" borderColorLight="#848284" cellSpacing="0" width="100%" vAlign="top">
<tbody>
<tr>
<td align="middle" width="12%" bgcolor="#D6D3CE">姓名</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">性别</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">出生日期</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">电话</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">地址</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">Email</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">修改</td>
<td align="middle" width="12%" bgcolor="#D6D3CE">删除</td>
</tr>
<%do while not rs.eof %>
<tr>
<td align="middle" bgColor="#ffffff" width="12%">
<a href="modify.asp?id=<%=rs("ID")%>"title="修改"><%=rs("姓名")%></a>
</td>
<td align="middle" bgColor="#ffffff" width ="12%"><%=rs("性别")%></td>
<td align="middle" bgColor="#ffffff" width ="12%"><%=rs("出生日期")%></td>
<td align="middle" bgColor="#ffffff" width ="12%"><%=rs("电话")%></td>
<td align="middle" bgColor="#ffffff" width ="12%"><%=rs("地址")%></td>
<td align="middle" bgColor="#ffffff" width ="13%"><%=rs("Email")%></td>
<td align="middle" bgColor="#ffffff" width ="13%">
<a href="modify.asp?id=<%=rs("ID")%>">修改</a>
</td>
<td ailgn="middle"bgColor="#ffffff" width="13%">
<a href="delete.asp?id=<%=rs("ID")%>">删除</a>
</td>
</tr>
<%
rs.movenext
loop
%>
<%
rs.close
set rs=nothing
%>
</tbody>
</table>
<div>
<center><input name="bt1" onclick="document.location.href='write.asp';"style="cursor:hand;"type="button"value="添加通讯名单"> 
<input name="bt2"onclick="document.location.href='show.asp';"style="cursor:hand;"type="button"value="显示所有名单"></center>
</div><BR>
<%if page=1 and not page=pagecount then%>
<div align="center">第<%=page%>页  
<%for i=1 to pagecount%>
<a href="Show.asp?page=<%=i%>"><%=i%></a> 
<%next%>
<a href="Show.asp?page=<%=page+1%>">下一页</a>  </div>
<%elseif page=pagecount and not page=1 then%>
<div align="center">第<%=page%>页  
<%for i=1 to pagecount%>
<a href="Show.asp?page=<%=i%>"><%=i%></a> 
<%next%>
<a href="Show.asp?page=<%=page-1%>">上一页</a>  </div>
<%elseif page<1 then%>
<div class="font" align="center"><font color=red>没有任何记录！</font></div>
<%elseif page>pagecount then%>
<div class="font" align="center"><font color=red>没有任何记录！</font></div>
<%elseif page=1 and page=pagecount then%>
<%else%>
<div align="center">第<%=page%>页  
<%for i=1 to pagecount%>
<a href="Show.asp?page=<%=i%>"><%=i%></a> 
<%next%>
<a href="Show.asp?page=<%=page-1%>">上一页</a> <a href="Show.asp?page=<%=page+1%>">下一页</a>  </div>
<% End if %>

<form method="post" action="show.asp">
<p>按[姓名]模糊查询：
<input type="text" name="Name"size="20">
<input type="submit" value="查询" name="B1">
<input type="reset" value="清除" name="B2"></p>
</form>
</body>
</html>

搜索更多相关主题的帖子: ASP　

2006-06-04 14:16

google

等　级：版主
威　望：22
帖　子：3419
专家分：23
注　册：2005-11-1

第 3 楼

得分:0

是不是第二页以后结果是错的?
每个页的记录都是执行相同的SQL才可以的

祝天下所有母亲幸福安康!~

2006-06-04 14:22

cten

等　级：新手上路
帖　子：12
专家分：0
注　册：2006-6-3

第 5 楼

得分:0

我试了加很多数据，但是显示的都是“第页上一页”
不知道问题出在哪……

2006-06-04 15:04

google

等　级：版主
威　望：22
帖　子：3419
专家分：23
注　册：2005-11-1

第 7 楼

得分:0

<%
if Request.Form("Submit")="搜索" then '如果用户进行了搜索或者重新进行了搜索
'构造搜索的SQL语句
if Request("stuname")="yes" then '检测姓名是否被选中
stu_name=check(Request("stu_name"))
if Request("stu_name")="" then
Response.Write("<script language=javascript>alert('错误！按名称搜索时名称不能为空！')</script>")
Response.Write("<script language=javascript>window.location='search_show.asp'</script>")
Response.End()
else
if Request.Form("name_like")="like" then
stuname_sql=" stu_name like '%"&stu_name&"%' and"
else
stuname_sql=" stu_name='"&stu_name&"' and"
end if
end if
else
stuname_sql=""
end if
if Request("stusex")="yes" then '检测性别是否被选中
stu_sex=check(Request("stu_sex"))
stusex_sql=" stu_sex='"&stu_sex&"' and"
else
stusex_sql=""
end if

if Request("stuaddtime")="yes" then '检测入学时间是否被选中
stu_addtime=check(Request("stu_addtime"))
if stu_addtime="请选择" then
Response.Write("<script language=javascript>alert('错误！按入学时间搜索时入学时间不能为空！')</script>")
Response.Write("<script language=javascript>window.location='search_show.asp'</script>")
Response.End()
end if
stuaddtime_sql=" stu_addtime='"&stu_addtime&"' and"
else
stuaddtime_sql=""
end if
if Request("stuclass")="yes" then '检测班级是否被选中
stu_class=check(Request("stu_class"))
if stu_class="请选择" then
Response.Write("<script language=javascript>alert('错误！按班级搜索时班级不能为空！')</script>")
Response.Write("<script language=javascript>window.location='search_show.asp'</script>")
Response.End()
end if
stuclass_sql=" stu_class='"&stu_class&"' and"
else
stuclass_sql=""
end if
if Request("stulearnid")="yes" then
stu_learnid=check(Request("stu_learnid"))
if stu_learnid="" then
Response.Write("<script language=javascript>alert('错误！按学号搜索时学号不能为空！')</script>")
Response.Write("<script language=javascript>window.location='search_show.asp'</script>")
Response.End()
else
if Request("learnid_like")="like" then
stulearnid_sql=" stu_learnid like '%"&stu_learnid&"%' and"
else
stulearnid_sql=" stu_learnid='"&stu_learnid&"' and"
end if
end if
else
stulearnid_sql=""
end if
if Request("stuidnum")="yes" then
stu_idnum=check(Request("stu_idnum"))
if stu_idnum="" then
Response.Write("<script language=javascript>alert('错误！按身份证搜索时身份证不能为空！')</script>")
Response.Write("<script language=javascript>window.location='search_show.asp'</script>")
Response.End()
else
if Request("idnum")="like" then
stuidnum_sql=" stu_idnum like '%"&stu_idnum&"%' and"
else
stuidnum_sql=" stu_idnum='"&stu_idnum&"' and"
end if
end if
else
stuidnum_sql=""
end if
if Request("stustart")="yes" then '检测学生是否初始化是否被选中
stu_start=check(Request("stu_start"))
stustart_sql=" stu_start='"&stu_start&"' and"
else
stustart_sql=""
end if
sql="select * from information where"&stuname_sql&stusex_sql&stuaddtime_sql&stuclass_sql&stulearnid_sql&stuidnum_sql&stustart_sql&" 1=1"

session("cussql")=sql

'Response.Write(sql)
end if
if session("cussql")="" then
sql="select * from information order by stu_id desc"
session("cussql")=sql
end if

%>
<div align="center"><font color="#FF0000" size="5" face="华文新魏">搜索结果页面</font> <br>
</div>
<table width="779" border="0" align="center">
<tr>
<td width="74" height="18"><font color="#0000FF" size="2"><a href="index.asp">首页</a></font></td>
<td width="511"><div align="right"><font color="#0000FF" size="2"><a href="search.asp">搜索</a></font></div></td>
<td width="86"><div align="right"><font color="#0000FF" size="2"><a href="student/student.asp">学生登陆</a></font></div></td>
<td width="90"> <div align="right"><font color="#0000FF" size="2"><a href="admin/admin.asp">管理员登陆</a></font></div></td>
</tr>
</table>
<br>
<table width="780" border="0" align="center">
<tr>
<td width="188" class="tablecss2">学生姓名</td>
<td width="100" class="tablecss2">性别</td>
<td width="179" class="tablecss2">学号</td>
<td width="169" class="tablecss2">班级</td>
<td width="122" class="tablecss2">详情</td>
</tr>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
rs.open session("cussql"),conn,3,1
if not rs.bof and not rs.eof then
rs.PageSize=20
PageNum=Request.QueryString("PageNum")
if PageNum="" then
rs.AbsolutePage=1
PageNum=1
else
rs.AbsolutePage=PageNum
end if

do while not rs.eof and i<rs.PageSize

%>
<tr>
<td class="tablecss2"><%=rs("stu_name")%></td>
<td class="tablecss2"><%=rs("stu_sex")%></td>
<td class="tablecss2"><%=rs("stu_learnid")%></td>
<td class="tablecss2"><%=rs("stu_class")%></td>
<td class="tablecss2"><a href="show.asp?stu_id=<%=rs("stu_id")%>" target="_blank">详情</a></td>
</tr>
<%
rs.movenext
i=i+1
loop

%>
</table>
<table width="780" border="0" align="center">
<tr>
<td width="461" align="right"><font color="#0000FF" size="2">共搜索到</font> <font color="#FF0000" size="2"><%=rs.RecordCount%></font> <font color="#0000FF" size="2">个符合条件的记录</font>
   <font color="#0000FF" size="2">共</font> <font color="#FF0000" size="2"><%=rs.PageCount%></font> <font color="#0000FF" size="2">页</font>
<font color="#0000FF" size="2">当前为第</font> <font color="#FF0000" size="2"><%=PageNum%></font> <font color="#0000FF" size="2">页</font>
</td>
<td width="73" align="right">
<%
PPage=PageNum-1
If PPage>0 then
strPage="  <font size=2 color=blue><a href=search_show.asp?PageNum="&PPage&">上一页</a></font>  "
Response.Write(strPage)
end if
%>
</td>
<td width="160" align="center">
<%
For pn=1 to rs.PageCount
strURL="<font size=2 color=blue><a href=search_show.asp?PageNum="&pn&">"&pn&""&"</a></font> "
Response.Write(strURL)
Next
%>
</td>
<td width="68" align="left">
<%
NPage=PageNum+1
If NPage<=rs.PageCount then
strPage="  <font size=2 color=blue><a href=search_show.asp?PageNum="&NPage&">下一页</a></font>"
Response.Write(strPage)
end if
%>
</td>
</tr>
</table>
<p align="right"> </p>
<%
else
Response.Write("<script language=javascript>alert('对不起！没有搜索到符合条件的记录！')</script>")

end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

祝天下所有母亲幸福安康!~

2006-06-04 16:04

icecool

等　级：贵宾
威　望：20
帖　子：1216
专家分：1376
注　册：2005-3-14

第 9 楼

得分:0

这下试试看?

http://toorup.3v.do
loading...

2006-06-05 14:23