内容简介:这篇文章主要介绍了asp画中画广告插入在每篇文章中的实现方法,需要的朋友可以参考下
尽管很多人给出了给每篇文章加上画中画广告的方法,但是这些所谓的方法,都不能真正地实现文字环绕在广告周围的“画中画”效果,只能左对其或者右对齐。现在要讨论的这个方法才能真正实现像新浪网、搜狐网那样的画中画广告效果。
首先说一下错误的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=""http://www.eryi.org/ad.js""></script></div>"& RightContent
上面是通过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 即可。
以上所述就是小编给大家介绍的《asp画中画广告插入在每篇文章中的实现方法》,希望对大家有所帮助,如果大家有任何疑问请给我留言,小编会及时回复大家的。在此也非常感谢大家对 码农网 的支持!
猜你喜欢:- Firefox 将添加画中画功能
- 聊聊 Web 视频播放的画中画模式
- Firefox 71 发布,具有画中画支持及更多功能
- 谷歌 Chrome OS 重磅升级:画中画、App 快捷方式
- canvas实现画中画动画效果--网易娱乐年度盘点H5动画解密
- Chrome 73 新功能初探:自动画中画和支持硬件媒体按钮
本站部分资源来源于网络,本站转载出于传递更多信息之目的,版权归原作者或者来源机构所有,如转载稿涉及版权问题,请联系我们。
Head First Web Design
Ethan Watrall、Jeff Siarto / O’Reilly Media, Inc. / 2009-01-02 / USD 49.99
Want to know how to make your pages look beautiful, communicate your message effectively, guide visitors through your website with ease, and get everything approved by the accessibility and usability ......一起来看看 《Head First Web Design》 这本书的介绍吧!
MD5 加密
MD5 加密工具
XML、JSON 在线转换
在线XML、JSON转换工具