日韩精品中文字幕一区二区-日韩精品中文字幕一区-日韩精品中文字幕视频-日韩精品在线一区二区三区-第一页在线-第一福利视频

當前位置: 首頁IT技術 → 實現長文章分頁和頁碼條顯示的經驗分享

實現長文章分頁和頁碼條顯示的經驗分享

更多

本文章是關于作者的一個小經驗心得,關于長文章分頁顯示思路及頁碼條顯示新思路 ,希望能給大家帶來幫助或啟發。

思路是VBSCRIPT的。

CurrentPage=Request.QueryString("page")
'CurrentPage是當前頁的意思

PageCount = Int(Len(Content)/SIZE) + 1
'Content是長文章內容
'SIZE是每一頁顯示字數
'PageCount是最后一頁的頁碼

START=Cint((CurrentPage-1)*SIZE+1)
'START是每一頁的啟始字數

If START<1 Then START=1
Content=Mid(Content,START,SIZE)
'以上截取出來每一頁的文字

'下面是顯示頁碼條,胡想的,不過挺簡單的,也挺實用。。。我覺得用于一般的分頁夠了。
'PAGEBAR_COUNT的意思是每一次顯示多少個頁碼,不太準的,因為我除二取整了(咳,差不多就行了,呵呵)
PageBar="<br/><a href="""&FileName&"?act=View&id="&ID&"&Page=1"">[<<]</a>"
For i=CurrentPage-Cint(PAGEBAR_COUNT/2) to CurrentPage+Cint(PAGEBAR_COUNT/2)
If i>0 and i<=PageCount Then  PageBar=PageBar&"<a href="""&FileName&"?act=View&id="&ID&"&Page="&i&""">["&i&"]</a>"
Next
PageBar=PageBar&"<a href="""&FileName&"?act=View&id="&ID&"&Page="&PageCount&""">[>>]</a>"

熱門評論
最新評論
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字數: 0/500 (您的評論需要經過審核才能顯示)
主站蜘蛛池模板: 迎宾进行曲| 速度与激情18| 鬼龙院花子的一生| 陈廷嘉| 夫妻那点事免费看| 卢靖姗老公是谁| 电视直播pro| 风之谷钢琴谱| 黄视频免费在线| 国家干部电视剧| 江湖之社团风暴| 河南省物业管理条例| 韩国一级免费| 杂牌摄像头软件通用app| 步步惊心剧照| 三年电影免费高清完整版| 爱神的诱惑| 天秤座是风象星座?| 欲望之夜| 集体生活成就我教学设计| 日韩欧美视频在线播放| 王芊| 寻梦环游记英文| 家庭琐事电影| 座头市电影完整免费观看| 10000个卫视频道| 狼来了ppt免费下载| free gay movies| 陷阱:致命的诱惑| 永远的牧歌简谱| 黄光亮| 南极之恋演员表| 二胡独奏我的祖国| junk boy| 在屋顶上流浪| 员工离职协议书| 帅气动漫头像| 吴燕妮个人资料简介| 孤芳岚影| 漂流者| 小镇姑娘高清播放|