asp画中画广告插入在每篇文章中的实现方法
尽管很多人给出了给每篇文章加上画中画广告的方法,但是这些所谓的方法,都不能真正地实现文字环绕在广告周围的“画中画”效果,只能左对其或者右对齐。现在要讨论的这个方法才能真正实现像新浪网、搜狐网那样的画中画广告效果。
首先说一下错误的div+CSS方法,希望大家别被误导:
<divid="outer"style="float:left;"> <divid="inner"style="float:left;margin:0;width:200px;height:200px;"></div> 文字内容 </div>
上面只能算作是左对齐的效果。还有很多借助表格或者iframe来实现的,也不外乎如此。
那么,怎么才能真正实现在每篇文章中批量添加画中画广告的效果呢?可以采用截取字段来进行,有两段代码。
第一段是分析文章内容字数,然后插入广告的代码:
DimLeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr ''截取合适数量的字符串 iflen(ArticleContent)<320then headlen=200 else headlen=320 endif tempStr=ArticleContent LeftContent=InterceptString(tempStr,headlen) '获得截取的文字内容 RightContent=Right(ArticleContent,Len(ArticleContent)-Len(LeftContent)) ModifyContent=LeftContent&"<divstyle=""float:left;""><scriptlanguage=""javascript""src=""http://www.eryi.org/ad.js""></script></div>"&RightContent
上面是通过DIV+JS来插入广告的,广告代码放在ad.js文件中,也可以通过table+JS或者直接用iframe的方式来插入。不管以那种方式,都必须设置其属性为左对齐或右对齐,这样才能保证为止环绕在广告周围。
接下的第二段就是画中画广告代码的判断了。
FunctionInterceptString(txt,length) Dimx,y,ii,c,ischines,isascii,tempStr txt=trim(txt) x=len(txt) y=0 ifx>=1then forii=1tox c=asc(mid(txt,ii,1)) ifc<0orc>255then '说明是一个中文字符 y=y+2 ischines=1 isascii=0 else '说明是一个ascii码 y=y+1 ischines=0 isascii=1 endif '如果长度已经大于定义子字符串长度,就判断是否包含敏感字符串是否分开 ify>=lengththen ifischines=1andStrCount(left(trim(txt),ii),"<a")=StrCount(left(trim(txt),ii),"</a>")then txt=left(trim(txt),ii)'"字符串限长 exitfor else ifisascii=1thenx=x+1 endif endif next InterceptString=txt else InterceptString="" endif EndFunction '判断字符串出现的次数 FunctionStrCount(Str,SubStr) DimiStrCount DimiStrStart DimiTemp iStrCount=0 iStrStart=1 iTemp=0 Str=LCase(Str) SubStr=LCase(SubStr) DoWhileiStrStart<Len(Str) iTemp=Instr(iStrStart,Str,SubStr,vbTextCompare) IfiTemp<=0Then iStrStart=Len(Str) Else iStrStart=iTemp+Len(SubStr) iStrCount=iStrCount+1 EndIf Loop StrCount=iStrCount EndFunction
以新云网站管理系统为例。首先找到生长静态文章页面的代码文件/inc/NewsChannel.asp(其它CMS与此类似),在第248行HtmlContent=Replace(HtmlContent,"{$ArticleContent}",ArticleContent)的前面插入第一段代码,在页面中的适当为止插入第二段代码,然后将该行中的ArticleContent改为ModifyContent即可。