aspsql分頁查詢_在asp中如何使用sql語句實現分頁功能

⑴ 在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
%>
 
<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%>條/頁] [目前第<%=pagecount%>頁]
<%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%> 
<%
else
response.write "<tr><td>暫時沒有內容</td></tr>"
end if
rs.close
%>

⑶ 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 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問題查詢時候分頁顯示怎麼實現

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 "還沒任何用戶訂單"
'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 "-> 全部-"
Response.write "共" & "" & Cstr(Rs.RecordCount) & "" & "條信息"
Response.write "第" & "" & Cstr(CurrentPage) & "" & "/" & Cstr(rs.pagecount) & ""
If currentpage > 1 Then
response.write "<a href='?&page="+cstr(1)+"&vip="&request("vip")&"'>首頁</a> "
Response.write "<a href='?page="+Cstr(currentpage-1)+"&vip="&request("vip")&"'>上一頁</a> "
Else
Response.write "上一頁 "
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='?page="+Cstr(currentPage+1)+"&vip="&request("vip")&"'>下一頁</a> "
Response.write "<a href='?page="+Cstr(Rs.PageCount)+"&vip="&request("vip")&"'>尾頁</a>"
Else
Response.write ""
Response.write "下一頁"
End if
'response.write "</td><td align='right'>"
'response.write "轉到：<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 怎麼導出從sql中查詢的結果有分頁

1.ASP導出SQL中的查詢結果：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001" %>

<%
'自行設置的，用於DB Connection連接的函數
Call openConnection()
Dim sql,rs,conn
'SQL語句
sql = " SELECT tbId,tbName from Table"
'執行SQL語句，並將結果賦給RS變數
set rs = Conn.execute(sql)
'對從DB中取得的結果進行操作，當有值時執行以下內容
if Not rs.Eof then
』對結果集進行循環操作，將值輸出到畫面中
Do while NOT Rs.Eof
response.write(rs("tbId") & "----" & rs("tbName") & " ")
rs.MoveNext
Loop
End If

%>

---
call openconnection()是自己做一個加接DB的函數，
dim strConnect
strConnect = "Provider=SQLOLEDB;Data Source=local;Initial Catalog=" testDb;user ID=sa;password=sa;"

Function openConnection()
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open strConnect
End Function

⑻ asp.net sql語句分頁

一般的分頁查詢不是用>做的，通常分頁是select top 10 from StudentPayment where SpId not in (select top 10 SpId from StudentPayment ORDER BY SpId)
要做出分頁效果第一個10代表頁尺寸就是每一頁顯示多少條，第二個代表頁尺寸乘以頁數減一，如pageSize代表頁尺寸，num代表多少頁，.net里拼接sql語句為string sql="select top "+pageSize+" from StudentPayment where SpId not in (select top "+pageSize*(num-1)+" SpId from StudentPayment ORDER BY SpId)"
其實sql server資料庫還有另外幾種分頁方式，如像oracle里的序號類似的sql里也有，這種是最簡單的

⑼ 如何在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>

<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>

現在是第<%=epage%>頁一共有<%=rs.pagecount%>頁
<%
conn.close()
%>

⑽ 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

aspsql分頁查詢

與aspsql分頁查詢相關的內容