国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

在ASP中輕松實現記錄集分頁顯示

2024-05-04 11:07:39
字體:
來源:轉載
供稿:網友
大家都知道在Dreamwerver中可以很方便地實現記錄集的分頁顯示,但是生成的代碼的確很龐大,影響了網頁的顯示速度,看起來條理也不是很清晰,那么,可不可以用簡單的方式實現同樣的功能呢?當然可以,筆者通過以下一些簡單的代碼就實現了記錄集的分頁顯示,現在拿出來大家一起分享。

  主要代碼如下:

<%
 If rs1.recordcount>0 Then ' 記錄集不為空則處理記錄
  rs1.pagesize = 10 ' 設置每頁顯示的記錄數
  num=rs1.recordcount ' 記錄總數
  pagenum=rs1.pagecount ' 頁總數
  page=request("page") ' 獲取頁碼的原始信息
  ' 處理頁碼原始信息的開始!
  If page <> "" then
   page = cint(page)
  if err.number <> 0 then
   err.clear
   page = 1
  end if
  if page < 1 then
   page = 1
  end if
 else
  page = 1
 End if
 if page*rs1.pagesize > num and not((page-1)*rs1.pagesize < num)then
  page=1
 end if
 ' 處理頁碼原始信息的結束!設置當前頁碼
 rs1.absolutepage = page
%>
<!--判斷當前頁是否是最后一頁,并根據判斷設置記錄的重復顯示-->
<% if page<>pagenum then
   lablenum=rs1.pagesize
  else
   lablenum=num-(page-1)*rs1.pagesize
  end if
  for i=1 to lablenum
%>
<tr bgcolor="#FFFFFF">
 <td height="25"><div align="center"><%=(rs1.Fields.Item("id").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("名稱").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("地址").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("類別").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("最后修改").Value)%></div></td>
 <td><div align="center"><%=(rs1.Fields.Item("修改人").Value)%></div></td>
</tr>
<%
 rs1.movenext
next
%>
<!--當前頁的記錄顯示結束,以下代碼為記錄集分頁鏈接代碼-->
<table width="70%" border="0" align="center" cellpadding="0" cellspacing="0">
 <tr>
  <td height="35">
   <div align="right">
    <font color="#333333">
     共有 <%=num%> 個鏈接 |
     <a href=linkadmin.asp?page=1>首頁</a> |
     <%if page>1 then%><a href=linkadmin.asp?page=<%=page-1%>><%end if%>上一頁</a> |
     <%if page<pagenum then%><a href=linkadmin.asp?page=<%=page+1%>><%end if%>下一頁</a> |
     <a href=linkadmin.asp?page=<%=pagenum%>>尾頁</a> |
      頁次:<%=page%>/<%=pagenum%>頁 |
      共<%=pagenum%>頁
    </font>
   </div>
  </td>
 </tr>
</table>
<!--記錄集分頁鏈接代碼結束,記錄集為空時執行以下代碼-->
<%else%>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="6"><div align="center"><% response.Write("沒有結果可顯示!") %>
</div></td>
</tr>
<%
end if
rs1.Close()
Set rs1 = Nothing
%>

  好了,很簡單吧!只要簡單地修改一下就能插入到你的網頁顯示記錄的地方了,趕快試試吧!  
發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 永福县| 左权县| 成武县| 玛纳斯县| 泸州市| 临武县| 东山县| 泸溪县| 台中县| 随州市| 榆中县| 城固县| 绿春县| 千阳县| 库尔勒市| 堆龙德庆县| 乃东县| 仁布县| 玛纳斯县| 隆昌县| 德化县| 台安县| 昌吉市| 桐柏县| 英吉沙县| 六安市| 江孜县| 岢岚县| 五指山市| 红桥区| 南部县| 祁阳县| 鱼台县| 拉萨市| 黑水县| 武清区| 准格尔旗| 松阳县| 达拉特旗| 宁德市| 临泉县|