asp 分页查询问题

小灼 2009-12-03 04:37:19

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<link href="images/skin.css" rel="stylesheet" type="text/css" />
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>新闻信息</title>
</head>
<style type="text/css">
.on {background-color:#00ccFF}
.ced {background-color:#999999}
.ocol {background-color:#ccffff}
.sss {
background-color: #FFEEFF;
border: thin none #FFEEFF;
color: #ff0000;
font-size: 20px;
}
body {
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-color: #EEF2FB;
}
</style>



<body bgcolor="#EEF2FB">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="17" valign="top" background="images/mail_leftbg.gif"><img src="images/left-top-right.gif" width="17" height="29" /></td>
<td valign="top" background="images/content-bg.gif"><table width="100%" height="31" border="0" cellpadding="0" cellspacing="0" class="left_topbg" id="table2">
<tr>
<td height="31"><div class="titlebt">新闻信息</div></td>
</tr>
</table></td>
<td width="16" valign="top" background="images/mail_rightbg.gif"><img src="images/nav-right-bg.gif" width="16" height="29" /></td>
</tr>
<tr>
<td valign="middle" background="images/mail_leftbg.gif"> </td>
<td valign="top" bgcolor="#F7F8F9"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="40" colspan="4"><table width="100%" height="1" border="0" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
</table>

<form id="form1" name="form1" method="post" action="?">

<table width="100%" border="1" cellspacing="0" cellpadding="0">
<%
dim str,str1,val,curpage,selectnews,selected,istr
set rs=server.CreateObject("adodb.recordset")
if request.Form("selectnews")=""then
str="select news_id,news_class,news_title,news_contents,news_photo,news_date,class_name from [Golf_news],[classroom] where news_class=class_id order by news_id desc"
else
selected=request.Form("selected")
selectnews=request.Form("selectnews")
if selected="news_id" then
str="select news_id,news_class,news_title,news_contents,news_photo,news_date,class_name from [Golf_news],[classroom] where news_class=class_id and news_id="& selectnews
istr="如果选择ID方式查询必须输入完整ID"
else
str="select news_id,news_class,news_title,news_contents,news_photo,news_date,class_name from [Golf_news],[classroom] where "& selected &" like '%"&selectnews&"%' and news_class=class_id"
istr=" "
end if
end if
rs.open str,conn,1,1
if not rs.eof then
rs.pagesize=10
curpage=request("curpage")
if curpage<=0 then
curpage=1
end if
rs.absolutepage=curpage
%>
<tr bgcolor="#00CCFF">
<td colspan="6">共有<font color="#FF0000"><%=rs.recordCount%></font>条新闻,每页<%=rs.pagesize%>条</td>
</tr>
<tr class="ocol">
<td colspan="6">请选择查询方式
<select name="selected">
<option value="news_id">新闻ID</option>
<option value="class_name">新闻类别</option>
<option value="news_title">新闻标题</option>
</select>
<input type="text" name="selectnews" />
<input type="submit" value="查询" />
<input type="button" value="查看全部" onclick="location.href='?'"/> </td>
</tr>
<tr bgcolor="#99CCFF">
<td width="10%">新闻ID</td>
<td width="18%">新闻类别</td>
<td width="18%">新闻标题</td>
<td width="18%">新闻内容</td>
<td width="18%">新闻图片</td>
<td width="18%">更新时间</td>
</tr>
<%for i=1 to rs.pagesize
if rs.eof then
exit for
else%>
<tr class="ocol" onmouseover="over(this)" onmouseout="out(this)" onclick="clicked(this,<%=rs("news_id")%>,<%=rs("news_class")%>)">
<td><%=rs("news_id")%></td>
<td><%=rs("class_name")%></td>
<td><%=InterceptString(rs("news_title"),12)&"..."%></td>
<td><%=InterceptString(RemoveHTML_B(rs("news_contents")),16)&"..."%></td>
<%
if rs("news_photo")<>"" then
%>
<td><%=rs("news_photo")%></td>
<%
else
%>
<td>暂无</td>
<%end if%>
<td><%=rs("news_date")%></td>
</tr>
<%
end if
rs.movenext
next
else%>
<tr>
<td colspan="6" align="center"><font color="red"><%=istr%></font></td>
</tr>
<tr>
<td colspan="6" align="center">对不起，暂无新闻请<a href="?">返回</a>重新查询</td>
</tr>
<%
end if
%>
正常分页可以一旦查询出的数据在两页以上点击下一页会刷新当前页就变成全部内容显示了

...全文

107 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

小灼 2009-12-06

打赏
举报

ok 解决了。。把所有值都通过 get提交就行了~ 谢谢各位

小灼 2009-12-04

打赏
举报

知道错在哪了。。。还是想不明白该怎么解决~~

yan11cn 2009-12-04

打赏
举报

if request.querystring("curpage") <>“” then

curpage =cint(request.querystring("curpage"))

else curpage =1

end if

yan11cn 2009-12-04

打赏
举报

4楼说的对，建议修改明确下
另外
curpage=request("curpage")
if curpage <=0 then
curpage=1
end if
改成



if request.querystring("curpage") <>“” then

curpage =cint(request.querystring("curpage"))

else curpage =1

lionz1023 2009-12-03

打赏
举报

把 request.form() request.querystring() 全部改成 request()进行测试应该就知道了。

另外你的数据库字段

gingerkang 2009-12-03

打赏
举报

request.form是获取post数据,request.querystring是获取get数据
直接request会依次检索QueryString/Form/Cookies/ServerVariables/ClientCertificate来获取数据.具体怎么弄,在搞清楚对象之后再慢慢调试咯.

小灼 2009-12-03

打赏
举报

额。。。该怎么改

gingerkang 2009-12-03

打赏
举报

你程序中有判断post的数据来确定不同的sql语句,你翻页的时候应该是get方式直接链接地址的,可能问题就出在这,修改一下你的判断条件.

小灼 2009-12-03

打赏
举报

总的来说，结合ASP.NET的缓存和分页功能，以及数据库中的存储过程，可以有效地提升Web数据查询性能，尤其适用于数据密集型的Web应用。通过实践和调整，开发者可以找到最适合其应用程序的性能优化方案。

1. **数据获取**：使用ASP.NET的数据访问层（可能是`App_Code`中的类）从`App_Data`数据库中查询数据，根据分页需求限制查询结果的数量。 2. **数据处理**：在服务器端处理查询结果，计算总页数，为分页控件准备...

用法 showcustominfosection=\"Left\" width=\"37%\" meta:resourceKey=\"AspNetPager1\" style=\"font-size:12px\" InputBoxStyle=\"width:19px\" FirstPageText=\"首页\" LastPageText=\"尾页\" ...

8. **后端技术**：后端可能使用ASP.NET、PHP、Java或Python等技术，负责处理数据查询、分页逻辑以及与前端的通信。 9. **响应式设计**：考虑到不同设备的屏幕尺寸，本项目可能还采用了响应式设计，使得表格在手机、...

在ASP.NET MVC框架中，卷轴网格报表是一种常见的数据展示方式，它允许用户滚动查看大量数据，而无需分页。这种技术尤其适用于那些数据量大、需要一次性展示的数据集。以下是一些关于如何在ASP.NET MVC中实现卷轴网格...

ASP

28,406

社区成员

356,946

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章

asp 分页查询 问题

asp 分页查询问题