返回列表 上一主題 發帖

[發問] 關於分頁選擇項目

mtlz610

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
tw 
註冊時間
2011-7-5 
最後登錄
2011-7-24 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2011-7-5 14:43 | 只看該作者

[發問] 關於分頁選擇項目

本帖最後由 mtlz610 於 2011-7-6 09:33 編輯

拜讀了ASP與SQL資料庫這本書書號P5027
獲益良多

由於在實際的操作上遇到了些問題與瓶頸
在此想請教解決方式

問題出在分頁選擇的部分
書中的8-44頁內的分頁範例
與8-51的select標籤換頁

在此貼上小弟的編碼請教
該如何才能達成使用select標籤分頁的操作
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
  2. <!--#include file="../sql_link/ad_sql_link.asp"-->
  3. <%
  4. set rs = server.CreateObject("adodb.recordset")
  5. cot = "select * from members_data order by mber_id desc"
  6. rs.open cot,sqlcon,3,3

  8. mycount=rs.recordcount

  10. rs.pagesize =3

  12. gopage=cint(request("topage"))

  14. if gopage<1 then
  15.         rs.absolutepage=1
  16.         gopage=1
  17. else
  18.         rs.absolutepage=gopage
  19. end if       
  20. %>

  22. <!DOCTYPE HTML>
  23. <html xmlns="http://www.w3.org/1999/xhtml">
  24. <head>

  26. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

  28. <link rel="stylesheet" type="text/css" href="../css_set/body_set.css"/>
  29. <link rel="stylesheet" type="text/css" href="../css_set/ad_body_set.css" />

  31. <title>BeDog Admin - Index</title>
  32. </head>

  34. <body>
  35. <!--底圖透白-不可刪除!! --><div class="aera_center">

  37. <div style="width:900px; margin:auto; text-align:left; padding:20px 20px 5px 20px; ">
  38. <font style="font-size:22px;">BeDog網站後台管理介面</font><br>
  39. BeDog Pet Services - Administrator Interface
  40. </div>
  41. <hr style="width:920px; margin:5px auto 5px auto; "/>

  43. <!--munu開始-不可刪除!! -->
  44. <!--#include file="ads_menu.htm" -->
  45. <!--munu結束-不可刪除!! -->

  47. <table style="padding:10px 10px 30px 10px;">
  48.   <tr>
  49.     <td width="20" style="border-left:1px #F8CE8F solid; height:550px;"></td>
  50.     <td align="left" valign="top" width="720">
  51. <div class="cont_div" >
  52.     <p class="cont_word_tit_p">
  53.     管理者-會員資料管理
  54.     </p>
  55.    <p class="cont_word_tit_p">
  56.     <form method="post">
  57.     <select name="topage">
  58.     <%
  59.     for i=1 to rs.pagecount
  60.                 if cint(i)<>cint(request("topage")) then
  61.                         response.Write "<option value="&i&">"
  62.                         response.Write "第"&i&"頁</option>"
  63.                 else
  64.                         response.Write "<option value=" &i&" selected>"
  65.                         response.Write "第"&i&"頁</option>"
  66.                 end if
  67.         next
  68.         %>
  69.     </select>
  70.     <input name="送出" type="submit" value="跳頁" />
  71.     </form>
  72.     </p>
  73. <table border="0" cellpadding="5" cellspacing="1" style="padding:0px; margin:0px; font-size:12px;">
  74.   <tr style="background-color: #9C5B1B;">
  75.     <td>編號</td>
  76.     <td>Name </td>
  77.     <td>Tel</td>
  78.     <td>Address</td>
  79.     <td>EMR Contact</td>
  80.     <td colspan="2" align="center">資料操作</td>
  81.   </tr>
  82.   <%
  83.   do while rcount<rs.pagesize
  84.   %>
  85.     <tr onMouseOver="this.style.backgroundColor='#823311'" onMouseOut="this.style.backgroundColor=''" >
  86.                   <td style="border-bottom:1px dotted #999;" align="center"><%=rs.fields("mber_id").value%></td>
  87.         <td style="border-bottom:1px dotted #999;"><%=rs.fields("mber_sex").value%><br><%=rs.fields("mber_f_name").value%>&nbsp;<%=rs.fields("mber_l_name").value%> </td>
  88.         <td style="border-bottom:1px dotted #999;"><%=rs.fields("mber_tel").value%></td>
  89.         <td style="border-bottom:1px dotted #999;">
  90.           <%=rs.fields("mber_adds_1").value%><%=rs.fields("mber_adds_2").value%><%=rs.fields("mber_adds_3").value%><%=rs.fields("mber_adds_4").value%><%=rs.fields("mber_adds_5").value%><%=rs.fields("mber_adds_6").value%><%=rs.fields("mber_adds_7").value%>
  91.           <br><%=rs.fields("mber_mail").value%></td>
  92.         <td style="border-bottom:1px dotted #999;"><%=rs.fields("s_mber_sex").value%>.<%=rs.fields("s_mber_f_name").value%>&nbsp;<%=rs.fields("s_mber_l_name").value%><br><%=rs.fields("s_mber_tel").value%></td>
  93.         <td style="border-bottom:1px dotted #999;">修改資料</td>
  94.         <td style="border-bottom:1px dotted #999;">刪除資料</td>
  95.         </tr>
  96.        <%
  97.            rs.movenext
  98.            rcount=rcount+1
  99.            loop
  100.            %>
  101. </table>
  102. 目前資料共有<%=mycount%>筆　目前顯示第<%=rs.absolutepage%>頁　共有<%=rs.pagecount%>頁資料
  103. </div>
  104. </td>
  105. </table>
  106.             



  110. <!--底圖透白-到此結束--></div>

  112. </body>
  113. </html>
複製代碼
遇到新的問題

程式執行之後.可以選擇換頁
不過在第一頁瀏覽時
在顯示目前頁面的地方會變成第二頁
由於資料只有十筆
在第二頁的時候會變成-3頁.

當我把rs.pagesize改成其他筆數時例如rs.pagesize=3時
在最後一頁會出現錯誤訊息
ADODB.Field 錯誤 '800a0bcd'
可能是 BOF 或 EOF 的值為 True，或目前的資料錄已被刪除。所要求的操作需要目前的資料錄。
收藏 分享
Free Style

mtlz610

帖子
2 
主題
1 
精華
0 
積分
9 
點名
0  
作業系統
windows7 
軟體版本
office2010 
閱讀權限
10 
性別
男 
來自
tw 
註冊時間
2011-7-5 
最後登錄
2011-7-24 
2#
發表於 2011-7-5 14:43 | 只看該作者
煩請管理員協助.感恩
Free Style

TOP

傘蜥蜴

帖子
26 
主題
10 
精華
0 
積分
50 
點名
0  
作業系統
windows XP 
軟體版本
office2000 
閱讀權限
20 
性別
男 
註冊時間
2011-11-1 
最後登錄
2018-6-13 
3#
發表於 2011-11-3 09:34 | 只看該作者
大致上的寫法如下
<%
'分頁程式
RS.PageSize=50
Page=CLng(Request.QueryString("Page"))
If Page>RS.PageCount Then Page=RS.PageCount End If
If Page="" or Page<1 Then
  Page=1
Else
  Page=Page
End If
If Not RS.EOF Then
   RS.AbsolutePage = Page
End If
%>

你在專研一下
ASP很久沒寫了~

TOP

        靜思自在 : 忘功不忘過，忘怨不忘恩。
返回列表 上一主題