实现自动分页功能其实很简单 - 风讯CMS - 爱建站

,,,,CMS教程,模板无忧,建站教程,CMS教程,风讯Cms教程,

SEO SEO

首页  >   风讯CMS > 实现自动分页功能其实很简单  >  正文

实现自动分页功能其实很简单

2018-09-27 07:33:15 向站长提问 编辑: admin 阅读:

 

本文讨论区:http: bbs foosun net dispbbs asp?boardID=22&ID=5814&page=1 我改的已经太多了,对大家不适用,只能将这一小段代码贴出来,能看懂的就用吧; 注重:请将(Page)中的 "( "替换为 "[ "和 ") "替换为 "] "不包括引号 Refresh function asp文件


本文讨论区:http://bbs.foosun.net/dispbbs.asp?boardID=22&ID=5814&page=1

我改的已经太多了,对大家不适用,只能将这一小段代码贴出来,能看懂的就用吧;

注重:请将(Page)中的"("替换为"["")"替换为"]"不包括引号

Refresh/function.asp文件。找到if IsNull(NewsContent) then NewsContent = ""这一行

if IsNull(NewsContent) then NewsContent = ""
"自动分页开始
Dim PageCount,Content,PageContent
if NewsContent <> "" and InStr(1,NewsContent,"Application("WordNum") <> 0 then
PageCount=Int(Len(NewsContent)/Application("WordNum"))
Content=left(NewsContent,Application("WordNum"))&"(Page)"
for i=1 to PageCount
if i = PageCount then
PageContent=Mid(NewsContent,Application("WordNum")*i 1,Application("WordNum"))
else
PageContent=Mid(NewsContent,Application("WordNum")*i 1,AApplication("WordNum")) &"(Page)"
end if
Content = Content & PageContent
next
NewsContent = Content
else
NewsContent = NewsContent
end if
"自动分页结束这段代码你们复制过去也不能使用。主要是因为我将每页字符数WordNum存入了Application对象。你们可以直接在Inc/Const.asp中加入这一行

Const WordNum = 3000 "自动分页每页字符数

查看更多 风讯cms教程  风讯cms模板


实现自动分页功能其实很简单
http://www.yuedudg.cn/article/15106991.html

 

友情链接
phpcms之家 cms综合网 帝国cms常识
discuz经验网 wp之家 织梦之家
zblog之家 ecshop经验网


Tags: CMS教程 模板无忧 建站教程 CMS教程 风讯Cms教程


手机浏览本文
实现自动分页功能其实很简单

实现自动分页功能其实很简单

站内推荐

网站分类

标签列表

关于我们
文章内容来源互联网仅供参考,如果还有疑问请联系我们!我们将竭力帮您解决您的问题
联系我们:

QQ: 397423577 

email:397423577@qq.com

微信:ganenboy