3.0增加上一篇、下一篇功能 - 风讯CMS - 爱建站

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

SEO SEO

首页  >   风讯CMS > 3.0增加上一篇、下一篇功能  >  正文

3.0增加上一篇、下一篇功能

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

 

使用方法:在需要调用的地方直接调用“{FS_上一篇}”和{FS_下一篇}标签就行了


使用方法:在需要调用的地方直接调用“{FS_上一篇}”和{FS_下一篇}标签就行了。

最终效果如:

上一篇:6日IT:赛门铁克公布完成Veritas收购交易
下一篇:日本政府出售中日本铁路价值46亿美元的股份

修改方法:

打开修改/admin/Refresh/Function.asp文件

第一步,在第一行<%后(也就是第二行)增加

dim NextTempStr,PreviousTempStr

第二步,在Content = GetVisionStr & Content这一行

在下面增加

Content = Replace(Content,"{FS_上一篇}",PreviousTempStr)
Content = Replace(Content,"{FS_下一篇}",NextTempStr)

第三步,找到Function RefreshNews(NewsRecordSetObj)

在下面增加

"生成上一篇下一篇
dim NowNewsID,NowClassID
NowNewsID = NewsRecordSetObj("ID")
NowClassID = NewsRecordSetObj("ClassID")
dim NextSql,NextRs,NextClassRs
"上一篇
NextSql = "Select TOP 1 id,NewsID,ClassID,Title,Path,FileName,FileExtName From News where ID < " & NowNewsID & " and ClassID = "" & NowClassID & "" order by id desc"
Set NextRs = Conn.Execute(NextSql)
If NextRs.eof or NextRs.bof Then
PreviousTempStr = "上一篇:没有了"
Else
Set NextClassRs = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID="" & NowClassID & """)
If not NextRs.eof then PreviousTempStr = "上一篇:<a href="" & NextClassRs(0) & "/" & NextClassRs(1) & "/" & NextRs(5) & "." & NextRs(6) & "" title =""&NextRs(3)&"">"&NextRs(3)&"</a>"
NextClassRs.Close
Set NextClassRs = nothing
NextRs.Close
Set NextRs = nothing
End If
"下一篇
NextSql = "Select TOP 1 id,NewsID,ClassID,Title,Path,FileName,FileExtName From News where ID > " & NowNewsID & " and ClassID = "" & NowClassID & "" order by id"
Set NextRs = Conn.Execute(NextSql)
If NextRs.eof or NextRs.bof Then
NextTempStr = "下一篇:没有了"
Else
Set NextClassRs = Conn.Execute("Select SaveFilePath,ClassEName from NewsClass where ClassID="" & NowClassID & """)
If not NextRs.eof then NextTempStr = "下一篇:<a href="" & NextClassRs(0) & "/" & NextClassRs(1) & "/" & NextRs(5) & "." & NextRs(6) & "" title =""&NextRs(3)&"">"&NextRs(3)&"</a>"
NextClassRs.Close
Set NextClassRs = nothing
NextRs.Close
Set NextRs = nothing
End If
"完成

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

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


3.0增加上一篇、下一篇功能
http://www.yuedudg.cn/article/15106081.html

 

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


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


手机浏览本文
3.0增加上一篇、下一篇功能

3.0增加上一篇、下一篇功能

站内推荐

网站分类

标签列表

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

QQ: 397423577 

email:397423577@qq.com

微信:ganenboy