编辑“FoosunCMS-增加上一篇、下一篇功能”

<span style="border:1px solid #000; float:right; text-align:center; padding:6px;"><strong>导航：</strong>[[FoosunCMS教程|返回上一页]]</span>
<div style="clear:both;"></div>
[[FoosunCMS]]-增加上一篇、下一篇功能


使用方法：在需要调用的地方直接调用“{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)

在下面增加
<pre>
'生成上一篇下一篇
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
'完成
</pre>



== 参考来源 ==


*[http://www.foosun.net/ 参考来源]


[[category:FoosunCMS|F]]