不考虑性能的话，可以用sql标签调用

上一篇：

select top 1 InfoID,ClassID,Title,AddDate,DefaultPic,Intro from [KS_InfoList] Where  InfoID>[KS:Current:InfoID] And DelTF=0 And Verify=1 Order By InfoID asc

下一篇：

select top 1 InfoID,ClassID,Title,AddDate,DefaultPic,Intro from [KS_InfoList] Where  InfoID<[KS:Current:InfoID] And DelTF=0 And Verify=1 Order By InfoID desc

循环体自己写了。