风讯3系列文章内容“画中画广告”实现方法_风讯Cms教程

在文章内容中，我发现前端时间大家在讨论文章显示内容画中画的功能，实际上这个功能对于本人是没有什么用的，因为本人是写JAVA的，对于ASP这种东西我也不是太懂！！！但是本着学习风讯的态度，本着贡献的态度，就草草的写了一个实现出来，希望大家不要笑话我！！！假如有什么不对的地方或者代码可以写的更漂亮的地方，希望大家给予我修改一下，同时告诉大家，这种实现，我已经在风讯的治理控制台上，增加了相应的控制画中画的代码，并且可以控制画中画显示的日期长短！！！！你也可以根据你的需要来不停的修改画中画显示的方式。

在此也非常感谢风讯，那个我曾经学习过7年城市中能够出这么好的东西，表示敬佩！！！

我今天就首先上图片，等晚上，网速上来，我在发修改代码！！！！
此主题相关图片如下：


大家可以完善的地方：

主要是要分析文章找到适当的插入画中画广告的位置，就是再那个字符后面插入的问题，你仔细看看我上面的图片，就会发现是断了句子的，这个不好，最好的方式是增加我下面代码中分析功能的那个函数的分析功能，智能判定假如不是新的行，就继续下移一个插入字符，直到找到新的行位置，再插入，比较好

程序代码的更改是比较简单的，大家多看看，我很少上来，假如有什么问题，希望大家在这个帖子后面说明

Demo地址http://www.passatclub.com.cn

1。找到Manage\Admin\Refresh\Function.asp这个文件

2。找到Function GetNewsContent(TempletContent,NewsRecordSet,NewsContent) 这个函数，大约在282行左右，不一定，因为我更改了很多的风讯的东西。

3。修改后的代码如下;

Function GetNewsContent(TempletContent,NewsRecordSet,NewsContent)
TempletContent = Replace(TempletContent,"{News_Title}",NewsRecordSet("Title"))
if Not IsNull(NewsRecordSet("SubTitle")) then
TempletContent = Replace(TempletContent,"{News_SubTitle}",NewsRecordSet("SubTitle"))
else
TempletContent = Replace(TempletContent,"{News_SubTitle}","")
end if
if Not IsNull(NewsRecordSet("Author")) then
TempletContent = Replace(TempletContent,"{News_Author}",NewsRecordSet("Author"))
else
TempletContent = Replace(TempletContent,"{News_Author}","")
end if
'====================================================开始
'分析文章内容，插入广告代码,todo:将在数据中设置一个字段来设置是否文章中包含广告内容
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr
'截取字符串
if len(NewsContent)<400 then
headlen=len(NewsContent)/2
else
headlen=400
end if
tempStr=NewsContent
LeftContent=InterceptString(tempStr,headlen)
'获取实际的截取的长度
RightContent=Right(NewsContent,Len(NewsContent)-Len(LeftContent))
headAdStr="<table border=0 cellspacing=0 cellpadding=0 align=left><tr><td><div id=""embedAd"" name=""embedAd"" style=""DISPLAY:""><!--画中画广告开始--><table border=0 cellspacing=0 cellpadding=0 style=""margin-top:5px;margin-bottom:3px;margin-left:7px;margin-right:8px""><tr><td><!--画中画开始-->"
tailAdStr="<!--画中画开始--></td></tr></table></td></tr></table><!--画中画广告结束--></div>"

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