主頁 > 知識庫 > 如何編寫翻頁函數(shù)?

如何編寫翻頁函數(shù)?

熱門標簽:推銷電話機器人怎么打電話的 重慶400電話哪里辦理 教育機構地圖標注 400電話是怎么申請 武漢如何辦理400電話 語音電銷機器人視頻 遼寧營銷智能外呼系統(tǒng)價格多少 自適應地圖標注 常州智能外呼電銷機器人如何

page.inc
%
Sub ShowPageBar(TotalPage,CurPage,strUrl)
'
參數(shù)TotalPage:全部頁數(shù);CurPage:當前頁數(shù);strUrl:翻頁使用的連接地址.

DIM strPage
CurPage=GetValidPageNO(TotalPage,CurPage)
Response.Write "TABLE WIDTH=''100%''>"
Response.Write "tr>td width=''100%'' align=''right''>"
Response.Write "
頁數(shù):" CurPage "/" TotalPage "  "
IF InStr(strUrl,"?")=0 THEN
strPage="?Page="
ELSE
strPage="Page="
END IF

IF Curpage>1 THEN
Response.Write "a href=" strUrl strPage"1>
第一頁/a>"
ELSE
Response.Write "
第一頁"
END IF

IF CurPage>=2 THEN
Response.Write "a href=" strUrl strPage CurPage-1">
上一頁/a>"
ELSE
Response.Write "
上一頁"
END IF

IF cInt(CurPage)cInt(TotalPage) THEN
Response.Write "a href=" strUrl strPage CurPage+1">
下一頁/a>"
ELSE
Response.Write "
下一頁"
END IF

IF cInt(CurPage) >cInt(TotalPage) THEN
Response.Write "a href=" strUrl strPage TotalPage">
最末頁/a>"
ELSE
Response.Write "
最末頁"
END IF
Response.Write "/td>/tr>/table>"
END SUB

Function GetValidPageNo(PageCount,CurPage)
Dim iPage
iPage=CurPage
IF cInt(CurPage)1 THEN
iPage= 1
END IF
IF cInt(iPage) > cInt(PageCount) THEN
iPage= PageCount
END IF
GetValidPageNo=iPage
END Function
%>

看看引用這個函數(shù)的例子:

chunfeng.asp
!--#include Virtual="page.inc"-->
%
SET objConn=Server.CreateObject("ADODB.CONNECTION")
SET objRst=Server.CreateObject("ADODB.RECORDSET")
objConn.Open Application("dsn")

strSQL="select * from
要使用的查詢
objRst.Open strSQL,objConn,adOpenStatic
'
打開數(shù)據(jù)記錄.
objRst.PageSize=20
'
設置單頁的數(shù)據(jù)記錄數(shù)
iPageCount=objRst.PageCount
'
定義了一個頁碼數(shù)量的變量.
If Len(Request.QueryString("Page"))=0 Then
CurPage=1
Else
CurPage=CInt(Request.Querystring("Page"))
End If
'
得到當前的頁碼.
objRst.AbsolutePage=CurPage
'
設置記錄集中的當前頁.

'
開始調(diào)用顯示翻頁的函數(shù),顯示頁數(shù)欄.
'
函數(shù)原型:ShowPageBar(TotalPage,CurPage,strUrl) .
strUrl="chunfeng.asp"
'
定義連接的URL,可以用我們自己的頁面地址.
ShowPageBar iPageCount,CurPage,strUrl
'
調(diào)用完成.

----------------------------------------------------------------------------------------------------------------

這里顯示自己的內(nèi)容
----------------------------------------------------------------------------------------------------------------

 

objConn.Close
SET objRst=NOTHING
SET objConn=NOTHING
%>

 

 

您可能感興趣的文章:
  • php中文本數(shù)據(jù)翻頁(留言本翻頁)
  • 點圖片上一頁下一頁翻頁效果
  • PHP 翻頁 實例代碼
  • PHP 長文章分頁函數(shù) 帶使用方法,不會分割段落,翻頁在底部
  • php實現(xiàn)的仿阿里巴巴實現(xiàn)同類產(chǎn)品翻頁
  • 在圖片上顯示左右箭頭類似翻頁的代碼
  • 解析Android中實現(xiàn)滑動翻頁之ViewFlipper的使用詳解
  • 通過MySQL優(yōu)化Discuz!的熱帖翻頁的技巧
  • PHP翻頁跳轉功能實現(xiàn)方法
  • MongoDB快速翻頁的方法

標簽:遵義 中山 朔州 柳州 威海 雞西 襄陽 邯鄲

巨人網(wǎng)絡通訊聲明:本文標題《如何編寫翻頁函數(shù)?》,本文關鍵詞  如何,編寫,翻頁,函數(shù),如何,;如發(fā)現(xiàn)本文內(nèi)容存在版權問題,煩請?zhí)峁┫嚓P信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《如何編寫翻頁函數(shù)?》相關的同類信息!
  • 本頁收集關于如何編寫翻頁函數(shù)?的相關信息資訊供網(wǎng)民參考!
  • 推薦文章