尽管很多人给出了给每篇文章加上画中画广告的方法,但是这些所谓的方法,都不能真正地实现文字环绕在广告周围的“画中画”效果,只能左对其或者右对齐。现在要讨论的这个方法才能真正实现像新浪网、搜狐网那样的画中画广告效果。
首先说一下错误的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=200 else headlen=320 end if tempStr=ArticleContent LeftContent=InterceptString(tempStr,headlen) '获得截取的文字内容 RightContent=Right(ArticleContent,Len(ArticleContent)-Len(LeftContent)) ModifyContent=LeftContent &"<div style=""float:left;""><script language=""javascript"" src="/UploadFiles/2021-04-02/">上面是通过DIV+JS 来插入广告的,广告代码放在ad.js文件中,也可以通过table+JS 或者直接用iframe的方式来插入。不管以那种方式,都必须设置其属性为左对齐或右对齐,这样才能保证为止环绕在广告周围。
接下的第二段就是画中画广告代码的判断了。
Function InterceptString(txt,length) Dim x,y,ii,c,ischines,isascii,tempStr txt=trim(txt) x = len(txt) y = 0 if x >= 1 then for ii = 1 to x c=asc(mid(txt,ii,1)) if c< 0 or c >255 then '说明是一个中文字符 y = y + 2 ischines=1 isascii=0 else '说明是一个ascii码 y = y + 1 ischines=0 isascii=1 end if '如果长度已经大于定义子字符串长度,就判断是否包含敏感字符串是否分开 if y >= length then if ischines=1 and StrCount(left(trim(txt),ii),"<a")=StrCount(left(trim(txt),ii),"</a>") then txt = left(trim(txt),ii) '"字符串限长 exit for else if isascii=1 then x=x+1 end if end if next InterceptString = txt else InterceptString = "" end if End Function '判断字符串出现的次数 Function StrCount(Str,SubStr) Dim iStrCount Dim iStrStart Dim iTemp iStrCount = 0 iStrStart = 1 iTemp = 0 Str=LCase(Str) SubStr=LCase(SubStr) Do While iStrStart < Len(Str) iTemp = Instr(iStrStart,Str,SubStr,vbTextCompare) If iTemp <=0 Then iStrStart = Len(Str) Else iStrStart = iTemp + Len(SubStr) iStrCount = iStrCount + 1 End If Loop StrCount = iStrCount End Function以新云网站管理系统为例。首先找到生长静态文章页面的代码文件/inc/NewsChannel.asp (其它CMS与此类似),在第248行 HtmlContent = Replace(HtmlContent, "{$ArticleContent}", ArticleContent) 的前面插入第一段代码,在页面中的适当为止插入第二段代码,然后将该行中的ArticleContent 改为ModifyContent 即可。
画中画广告
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
P70系列延期,华为新旗舰将在下月发布
3月20日消息,近期博主@数码闲聊站 透露,原定三月份发布的华为新旗舰P70系列延期发布,预计4月份上市。
而博主@定焦数码 爆料,华为的P70系列在定位上已经超过了Mate60,成为了重要的旗舰系列之一。它肩负着重返影像领域顶尖的使命。那么这次P70会带来哪些令人惊艳的创新呢?
根据目前爆料的消息来看,华为P70系列将推出三个版本,其中P70和P70 Pro采用了三角形的摄像头模组设计,而P70 Art则采用了与上一代P60 Art相似的不规则形状设计。这样的外观是否好看见仁见智,但辨识度绝对拉满。