asp画中画广告插入在每篇文章中的实现方法

时间:2021-05-28

尽管很多人给出了给每篇文章加上画中画广告的方法,但是这些所谓的方法,都不能真正地实现文字环绕在广告周围的“画中画”效果,只能左对其或者右对齐。现在要讨论的这个方法才能真正实现像新浪网、搜狐网那样的画中画广告效果。

首先说一下错误的div+CSS方法,希望大家别被误导:

<div id="outer" style="float:left;"><div id="inner" style="float:left;margin:0;width:200px;height:200px;"></div>文字内容</div>

上面只能算作是左对齐的效果。还有很多借助表格或者iframe来实现的,也不外乎如此。

那么,怎么才能真正实现在每篇文章中批量添加画中画广告的效果呢?可以采用截取字段来进行,有两段代码。

第一段是分析文章内容字数,然后插入广告的代码:

Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr''截取合适数量的字符串if len(ArticleContent)<320 then headlen=200else headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'获得截取的文字内容RightContent=Right(ArticleContent,Len(ArticleContent)-Len(LeftContent))ModifyContent=LeftContent &"<div style=""float:left;""><script language=""javascript"" src=""http://pare) If iTemp <=0 Then iStrStart = Len(Str) Else iStrStart = iTemp + Len(SubStr) iStrCount = iStrCount + 1 End If Loop StrCount = iStrCountEnd Function

以新云网站管理系统为例。首先找到生长静态文章页面的代码文件/inc/NewsChannel.asp (其它CMS与此类似),在第248行 HtmlContent = Replace(HtmlContent, "{$ArticleContent}", ArticleContent) 的前面插入第一段代码,在页面中的适当为止插入第二段代码,然后将该行中的ArticleContent 改为ModifyContent 即可。

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章