討論區快速選單
知識庫快速選單
軟體開發過程中有哪些資安漏洞? 掌握Salesforce雲端管理秘訣 政府補助!學嵌入式+物聯網
[ 回上頁 ] [ 討論區發言規則 ]
我的分頁功能程式碼有問題
更改我的閱讀文章字型大小
作者 : love2210(KOBE)
[ 貼文 23 | 人氣 7099 | 評價 0 | 評價/貼文 0 | 送出評價 6 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/6/15 下午 08:23:32
這是我的分頁程式,雖然說我設定一頁只有20筆資料,可是第一頁卻出現了全部的紀錄,後來幾頁才有分頁,但分的都不是很完整,不知道哪裡錯誤了?



<%
sqll ="Select 商品代號,商品名稱,商品價格 from goods where 商品類別='nb'"
Set
rs = conn.execute (sqll)
%>

<%

Dim conn, intPageNo, intPageSize, rs, intI
Dim strDSNless, intMaxPageCount, intRecCount, intFdCount
' 取得目前資料表記錄的頁數
intPageNo = Request.QueryString("PageNo")
If intPageNo = "" Then
   intPageNo = 1
End If
' 取得每一頁的記錄數
intPageSize = Request.QueryString("PageSize")
If intPageSize = "" Then
   intPageSize = 20
End If

Set
rs = Server.CreateObject("ADODB.RecordSet")
rs.open sqll,Conn,1,1

rs.MoveFirst ' 移到第一筆
rs.PageSize = intPageSize ' 設定每頁的記錄數
intMaxPageCount = Cint(rs.PageCount) ' 取得目前記錄的頁數
rs.AbsolutePage = intPageNo ' 指定目前的頁數
%>
<table border=0>
<tr bgcolor="#CC99FF">
   <th>商品代號</th><th>商品名稱</th>
   <th>商品價格</th><th>詳細資料</th><th>數量</th>
   <th>訂購</th>
</tr>

<%
If Not RS.Eof Then
  intFlag = 0
  Do While Not RS.Eof
     If intFlag = 0 Then
intFlag = 1
     strColor = "#FF99CC"
     Else
intFlag = 0
     strColor = "#99FFC"
     End If
%>
<form action="savecart.asp" Method="post">
   <input Type="hidden" name="p_id" value="<%=RS("商品代號")%>">
   <input Type="hidden" name="p_name" value="<%=RS("商品名稱")%>">
   <input Type="hidden" name="p_price" value="<%=RS("商品價格")%>">
<tr bgcolor="<%=strColor%>">
   <td><%=RS("商品代號")%></td>
   <td><%=RS("商品名稱")%></td>
   <td><%=RS("商品價格")%></td>
<%response.write "<td><a target=_blank href =many.asp?p_id=" & rs.fields(0).value & ">詳細資料</a></td>"%>
   <td valign="top"><input Type="text" size=5 name="Quantity"></td>
   <td valign="top"><input Type="submit" value="訂購"></td>
</tr>
</form>
<% RS.MoveNext ' 移到下一筆記錄
  Loop
%>
</table>
<%
End If
%>


作者 : love2210(KOBE)
[ 貼文 23 | 人氣 7099 | 評價 0 | 評價/貼文 0 | 送出評價 6 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/6/15 下午 08:24:18
接續上一頁程式


<%
rs.Close ' 關閉RecordSet物件
Set
rs = Nothing
' 關閉資料庫連結
conn.Close
Set
conn = Nothing
' 目前的頁數
Response.Write("第" & intPageNo & "頁/共" & intMaxPageCount & "頁<br>")
' 建立數字的超連結
Dim strURL, intPreviousPageNo, intNextPageNo
For intI = 1 To intMaxPageCount
    strURL = "<a href='nb.asp?PageNo=" & intI
    strURL = strURL & "&PageSize=" & intPageSize & "'>" & intI & "</a>"
    Response.Write(strURL & " ")
    If intI Mod 10 = 0 Then
     Response.Write("<br>")
    End If
Next
' 上一頁的超連結
intPreviousPageNo = intPageNo - 1
If intPreviousPageNo > 0 Then
    strURL = "<a href='nb.asp?PageNo=" & intPreviousPageNo
    strURL = strURL & "&PageSize=" & intPageSize & "'>上一頁</a>"
    Response.Write(strURL & " ")
End If
' 下一頁的超連結
intNextPageNo = intPageNo + 1
If intNextPageNo <= intMaxPageCount Then
    strURL = "<a href='nb.asp?PageNo=" & intNextPageNo
    strURL = strURL & "&PageSize=" & intPageSize & "'>下一頁</a>"
    Response.Write(strURL & " ")
End If
%>
作者 : love2210(KOBE)
[ 貼文 23 | 人氣 7099 | 評價 0 | 評價/貼文 0 | 送出評價 6 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2006/6/16 上午 07:44:38
已解決了~謝謝大家
作者 : edcph(小朱)
[ 貼文 8 | 人氣 0 | 評價 0 | 評價/貼文 0 | 送出評價 0 次 ] 
[ 給個讚 ]  [ 給個讚 ]  [ 回應本文 ]  [ 發表新文 ]  [ 回上頁 ] [ 回討論區列表 ] [ 回知識入口 ]
2013/7/6 下午 12:49:38
最後怎解決..是什麼問題?
 板主 : Jammy
 > ASP - 討論區
 - 最近熱門問答精華集
 - 全部歷史問答精華集
 - ASP - 知識庫
  ■ 全站最新Post列表
  ■ 我的文章收藏
  ■ 我最愛的作者
  ■ 全站文章收藏排行榜
  ■ 全站最愛作者排行榜
  ■  月熱門主題
  ■  季熱門主題
  ■  熱門主題Top 20
  ■  本區Post排行榜
  ■  本區評價排行榜
  ■  全站專家名人榜
  ■  全站Post排行榜
  ■  全站評價排行榜
  ■  全站人氣排行榜
 請輸入關鍵字 
  開始搜尋
 
Top 10
評價排行
ASP
1 tt's 2830 
2 ricky 1060 
3 玩家 890 
4 深小藍 880 
5 小台 660 
6 Snaking 630 
7 老骨頭 540 
8 AndyJ 530 
9 艾里克斯 510 
10 NanSun 470 
ASP
  專家等級 評價  
  一代宗師 10000  
  曠世奇才 5000  
  頂尖高手 3000  
  卓越專家 1500  
  優秀好手 750  
Microsoft Internet Explorer 6.0. Screen 1024x768 pixel. High Color (16 bit).
2000-2019 程式設計俱樂部 http://www.programmer-club.com.tw/
0.0625