- 1PS提示：因為圖層已鎖定，無法編輯圖層的處理方法
- 2Adobe Illustrator CS5 序列號大全
- 3picacg蘋果版怎么找不到|picacg ios版是不是下架了介紹
- 4ACDsee注冊碼免費分享（含ACDsee18、ACDsee10等版本）
- 5蘋果iphone自動時間不準確的多種校正方法
- 6PDF瀏覽器能看3D文件嗎？PDF瀏覽器看3D文件圖文詳細教程
- 7Potato(馬鈴薯聊天)怎么注冊不了|Potato不能注冊處理方法介紹
- 8Potato(土豆聊天)怎么換頭像|Potato app更改頭像方法介紹
- 9ipad版office如何激活? office365激活的圖文說明教程
- 10最新的Adobe Illustrator CS4序列號大全
- 11Mac怎么通過設置VPN來登錄youtube等國外網站
- 12qq郵件是否已讀怎么看 QQ郵箱已經發出去的郵件怎么知道對方是否已經查看
[摘要]Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage retval = "第" & curpage & "頁/總" &...
Function ExportPageInfo(ByRef rs,curpage,i,LinkFile) Dim retval, j, pageNumber, BasePage
retval = "第" & curpage & "頁/總" & rs.pagecount & "頁 "
retval = retval & "本頁" & i & "條/總" & rs.recordcount & "條 "
If curpage = 1 Then
retval = retval & "首頁 前頁 "
Else
retval = retval & "<a href=’’" & LinkFile & "page=1’’>首頁</a> <a href=’’" & LinkFile & "page=" & cstr(curpage - 1) & "’’>前頁</a> "
End If
If curpage = rs.pagecount Then
retval = retval & "后頁 末頁"
Else
retval = retval & "<a href=’’" & LinkFile & "page=" & cstr(curpage + 1) & "’’>后頁</a> <a href=’’" & LinkFile & "page=" & cstr(rs.pagecount) & "’’>末頁</a>"
End if
retval = retval & "<br/>"
BasePage = (curpage \ 10) * 10
If BasePage > 0 Then retval = retval & " <a href=’’" & LinkFile & "page=" & (BasePage - 9) & "’’><<</a>"
For j = 1 to 10
pageNumber = BasePage + j
If PageNumber > rs.pagecount Then Exit For
If pageNumber = Cint(curpage) Then
retval = retval & " <font color=’’#FF0000’’>" & pageNumber & "</font>"
Else
retval = retval & " <a href=’’" & LinkFile & "page=" & pageNumber & "’’>" & pageNumber & "</a>"
End If
Next
If rs.pagecount > BasePage Then retval = retval & " <a href=’’" & LinkFile & "page=" & (BasePage + 11) & "’’>>></a>"
ExportPageInfo = retval
End Function
應用
<%
adoPageRS.open "SELECT * FROM news ORDER BY addtime DESC", conn, 1, 1
if err.number <> 0 then
response.write "數據庫操作失敗："&err.description
else
if adoPageRS.eof and adoPageRS.bof then
response.write "沒有記錄"
else
%>
<div align="center">
<center>
<table width="100%" border="0" cellspacing="1" cellpadding="2">
<tr class="big">
<td width="60%">新 聞 標 題</td>
<td width="25%" align="center">日期</td>
<td width="15%" align="center">操 作</td>
</tr>
<%
adoPageRS.pagesize = 10
adoPageRS.absolutepage = curpage
for i = 0 to 9
%>
<tr>
<td><%= adoPageRS("title") %></td>
<td align="center">
<% = adoPageRS("addtime") %>
</td>
<td align="center"><a href=’’newsman.asp?action=edit&id=<%= adoPageRS("id")%>’’>編輯</a>
<a href=’’javascript:confirmDel(<%= adoPageRS("id") %>)’’>刪除</a></td>
</tr>
<%
adoPageRS.movenext
if adoPageRS.eof then
i = i + 1
exit for
End If
next
%>
<tr align="center">
<td colspan="3">
<% = ExportPageInfo(adoPageRS, curpage, i, "Newsman.asp?") %>
</td>
</tr>
</table>
</center>
</div>
標簽：ASP分頁函數
推薦資訊 總人氣榜
