⑴ ASP查询分页问题
textT=request("textT")
textT=request.form("textT")
将上两句改成如下
textT=request("textT")
新改的回复,新改的回复,新改的回复,新改的回复
新改的回复,新改的回复,新改的回复,新改的回复
<%
Response.Write ("<a href=searchresult.asp?page="&cint(PU)-1&"textT="&textT&">下一页</a>")
%>
注意：?page="&cint(PU)-1
注意: &"textT="&textT&"
上一页
下一页
首页
末页
都要上一个参数，这个是你查询的条件&"textT="&textT&"
没有这个，所以第一次查出信息没问题，点下一页
就不是查询的结果了
如下是一个分页代码
⑵ ASP多个条件查询并且分页显示
简单说说原理，具体的你自己实现就行了。
sql="select * from table where 1=1"
if t="t" then
sql=sql&" and xxx='"&request("筛选条件")&"'"
end if
这样就可以一出来是全部，，
在筛选的form里的action=加上t=t
然后在分页里
if t="t" then
<a href="?page=<%=page+1%>&t=t&各个条件">下一页
else
<a href="?page=<%=page+1%>">
end if
⑶ ASP调用SQL SERVER数据表，怎么实现分页
asp万用分页类
＜% sql = "select……………………省略了sql语句
Set rs=Server.Createobject("ADODB.RECORDSET")
rs.Open sql, conn, 1, 1
if not rs.eof then
pages = 30 ’定义每页显示的记录数
rs.pageSize = pages ’定义每页显示的记录数
allPages = rs.pageCount’计算一共能分多少页
page = Request.QueryString("page")’通过浏览器传递的页数
’if语句属于基本的排错处理
if isEmpty(page) or Cint(page) ＜ 1 then
page = 1
elseif Cint(page) ＞ allPages then
page = allPages
end if
rs.AbsolutePage = page
Do while not rs.eof and pages ＞ 0 %＞
这里输出你要的内容………………
＜% pages = pages - 1
rs.MoveNext
Loop
else
Response.Write("数据库暂无内容！")
End if
rs.Close
Set rs = Nothing %＞
把上面这个分页函数代码COPY存成一个ASP文件，在需要使用的页面里用include来引入他调用的时候只要 Call("/你调用的文件名?")就ok了，比如我的 news页面里要调用那么就是＜%Call("/news.asp?")%＞
刚才我们所到这是有限制的意思就是说第一段代码里除了sql查询内容和输出内容可以更改，其他的声明记录集的对象，page, pages, allpages这些变量都不能更改，否则将无法运行~其实这个程序是无关紧要的，最主要的就是，这个分页函数可以在任何一个asp叶面里调用。
⑷ asp查询分页
keywd=request("keyword")
if keywd <>"" then
sql=sql&" and(guding_name like '%"&keywd&"%' or guding_guige like '%"&keywd&"%' or guding_shuliang like '%"&keywd&"%' )"
end if
如果我没有看错的话 你这个keywd变量没有传对
排错的时候个可以输出变量看看哪个没有传回来
<a href="gl_gdzc.asp?page=<%=request("page")+1%>&cx_xiaoqu=<%=request("xiaoqu")%>&cx_zhuang=<%=request("zhuang")%>&cx_sushe=<%=request("sushe")%>&cx_keywd=<%=request("keyword")%>"> 下一页</a>
这里是cx_keywd 上面接收的时候是 keywd=request("keyword")
⑸ ASP查询分页显示问题
<%
query=request("query")
set rs=server.CreateObject("adodb.recordset")
sql = "select * from news where title like '%"&query&"%'"
rs.open sql,conn,1,1
rs.pagesize=10 '这里是多少项每页,只要改这个就行了
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
for ii=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<table width="750" border="1" align="center">
<tr>
<td bgcolor="#FFCCCC"><div align="center"><a href="#" onclick="window.open('query2.asp?newsid=<%=rs("newsid")%>','infowin','width=400,height=600,scrollbars=true,resizalbe=false')"><%=rs("title")%></div></td>
</tr>
</table>
<%
rs.movenext()
next
'下面部分的"上一页下一页"等的位置自己调整,但一定要在关闭rs之前
%>
<p align="center">
<a href="">首页</a>
<a href="?page=<%=epage-1%>">前一页</a>
<a href="?page=<%=epage+1%>">后一页</a>
<a href="?page=<%=rs.pagecount%>">末页</a>
</p>
<p align="center">现在是第<%=epage%>页一共有<%=rs.pagecount%>页</p>
<%
rs.close
set rs=nothing
%>
⑹ asp问题 查询时候分页显示怎么实现
sql="select * from [Users] where uid like '%"&UID&"%'"
end if
rs.open sql,conn,1,2
dim MaxPerPage
MaxPerPage=16
'假如没有数据时
'If rs.eof and rs.bof then
'call showpages
'response.write "<p align='center'><font color='#ff0000'>还没任何用户订单</font></p>"
'response.end
'End if
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
'call showpages
call list
If Rs.recordcount > MaxPerPage then
end if
'显示帖子的子程序
Sub list()%>
<%
if not rs.eof then
i=0
do while not rs.eof
%>
<%=rs("显示的东东")%>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
end if
%>
'下面是分页
<%
Response.write "<strong><font color='#000000'>-> 全部-</font>"
Response.write "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>条信息</font></strong>"
Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) & "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font></strong>"
If currentpage > 1 Then
response.write "<strong><a href='?&page="+cstr(1)+"&vip="&request("vip")&"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font></strong>"
Response.write "<strong><a href='?page="+Cstr(currentpage-1)+"&vip="&request("vip")&"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font></strong>"
Else
Response.write "<strong><font color='#000000'>上一页 </font></strong>"
End if
If currentpage < Rs.PageCount Then
Response.write "<strong><a href='?page="+Cstr(currentPage+1)+"&vip="&request("vip")&"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='?page="+Cstr(Rs.PageCount)+"&vip="&request("vip")&"'><font color='#000000'>尾页</font></a></strong>"
Else
Response.write ""
Response.write "<strong><font color='#000000'>下一页</font></strong>"
End if
'response.write "</td><td align='right'>"
'response.write "<font color='#000000' >转到：</font><input type='text' name='page' size=4 maxlength=4 class=smallInput value="&Currentpage&">"
'response.write "<input class=buttonface type='submit' value='Go' name='cndok'>"
%>
<%
End sub
rs.close
conn.close
'end if
%>
自己稍改一下.我不知道你主要是用来分什么页面的..
⑺ asp sql2000 数据库查询分页优化
看看这个有没有帮助
http://www.jb51.net/article/19181.htm
⑻ 在asp中如何使用sql语句实现分页功能
<%
set rs=server.createobject("adodb.recordset")
sql="select * from proct where SmallClassID="&request("SmallClassID")&" order by updatetime desc"
rs.open sql,conn,1,1
mu=rs.recordcount
rs.pagesize=15
dim pagecount
pagecount=1
if request("pagecount") <> "" then
pagecount=cint(request("pagecount"))
end if
if not rs.eof and not rs.bof then
rs.absolutepage=pagecount
end if
count=rs.pagesize
do while not rs.eof and count>0
%>
<table width="593" cellpadding="0" cellspacing="0" >
<tr>
<td width="128" align="center"><a href="ProctShow.asp?ID=<%=rs("ID")%>">
<img src="<%=rs("DefaultPicUrl")%>" width="78" height="65" border="0" /></a></td>
<td width="463" align="center" ><table cellspacing="3" cellpadding="0" width="477" border="0">
<tbody>
<tr>
<td width="17%" height="12">产品名称：</td>
<td width="83%"><a href="ProctShow.asp?ID=<%=rs("ID")%>" target="_blank" >
<%=left(rs("Title"),15)%></a></td>
</tr>
<tr>
<td height="12">产品类别：</td>
<td><%=rs("BigClassName")%>→ <%=rs("SmallClassName")%></td>
</tr>
<tr>
<td height="12">产品信息：</td>
<td><a href="ProctShow.asp?ID=<%=rs("ID")%>" target="_blank" >
<img src="img/arrow_7.gif" width="70" height="25" border="0" /></a></td>
</tr>
<tr>
<td bgcolor="#cccccc" colspan="3"
height="1"></td>
</tr>
</tbody>
</table></td>
</tr>
</table>
<%
rs.movenext
count=count-1
Loop
%>
<br>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" id="aa">
<tr>
<td width="100%" height="23" colspan="3" align="right" valign="middle" bgcolor="#FFFFFF" style="font-size:12px;">
[共<%=mu%>条] [共<%=rs.pagecount%>页] [<%=rs.pagesize%>条/页] [<span style="color:#FF0000; font-weight:bold;">目前第<%=pagecount%>页</span>]
<%if pagecount>1 then%>[<a href="?pagecount=1">首页</a>]<%else%>
[首页]<%end if%><%if pagecount>1 then%>
[<a href="?pagecount=<%=pagecount-1%>">上页</a>]
<%else%>[上页]<%end if%>
<% count1 = pagecount+1
count2 = rs.pagecount%>
<%if count1<=count2 then %>
[<a href="?pagecount=<%=count1%>">下页</a>]
<%else%>[下页]<%end if%>
<%if count1<=count2 then %>[<a href="?pagecount=<%=rs.pagecount%>">尾页</a>]<%else%>[尾页]<%end if%>
</td>
</tr>
</table>
你看看这个行不。自己在研究研究。
⑼ ASP 从 sql 数据库读取数据循环显示在页面并且分页
<%
dim curpage
curpage=request("curpage")
if curpage="" then curpage=1 '取得当前页码，如果返回为空，就默认第一页
%>
<%
'--------------------------------------------
'打开记录集
set rs=server.createobject("adodb.recordset")
sql="select * from 表"
rs.open sql,conn,1,1
'--------------------------------------------
rs.pagesize=10 ‘设置每页显示10条
rs.absolutepage=curpage ‘设置游标页码等于当前页码
if not rs.eof then '记录集不为空
for i= 1 to rs.pagesize ’循环显示数据
if rs.eof then '显示过程中随着游标下移，一旦记录到最后就立刻退出循环
exit for
end if
%>
<%=rs("a")%> 内容1
<%=rs("b")%> 内容2
<%=rs("c")%> 内容3
<%=rs("d")%> 内容4
<%
rs.movenext ‘游标下移
next
%>
<%if curpage=1 then%>第一页<%else%><a href="?curpage=1">第一页</a><%end if%>
<%if curpage=1 then%>上一页<%else%><a href="?curpage=<%=curpage-1%>">上一页</a><%end if%>
<%if rs.pagecount<curpage+1 then%>下一页<%else%><a href="?curpage=<%=curpage+1%>">下一页</a><%end if%>
<%if rs.pagecount<curpage+1 then%>尾页<%else%><a href="?curpage=<%=rs.pagecount%>" >尾页</a><%end if%><br />
<%
else
response.write "<tr><td>暂时没有内容</td></tr>"
end if
rs.close
%>
⑽ 如何在asp中数据库查询结果分页显示
没有你的数据库，无法用你的代码测试。
你可以自己看一下面的代码。或许有用:
最简单的ASP分页代码
<%
set conn=server.createobject("adodb.connection")
conn.open("DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;pwd=;dbq="&server.mappath("1.mdb"))
set rs=server.createobject("adodb.recordset")
sql="select * from student"
rs.open sql,conn,3
rs.pagesize=20
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>
<table border="0" cellpadding="0" cellspacing="1" bgcolor="#0000FF" width="80%" align="center">
<tr bgcolor="#FFFFFF" align="center">
<th><%=rs(0).name%></th><th><%=rs(1).name%></th><th><%=rs(2).name%></th>
</tr>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<tr bgcolor="#FFFFFF" align="center">
<td><%=rs(0).value%></td><td><%=rs(1).value%></td><td><%=rs(2).value%></td>
</tr>
<%
rs.movenext()
next
%>
</table>
<p align="center">
<a href="">首页</a>
<a href="index.asp?page=<%=epage-1%>">前一页</a>
<a href="index.asp?page=<%=epage+1%>">后一页</a>
<a href="index.asp?page=<%=rs.pagecount%>">末页</a>
</p>
<p align="center">现在是第<%=epage%>页一共有<%=rs.pagecount%>页</p>
<%
conn.close()
%>