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

2024-05-04 11:05:19

字体：大中小

来源：转载

供稿：网友

虽然很多人都每一篇文章添加图片广告的方法，但这些所谓的方法并不能真正实现广告周围文本的效果，只能左右对齐，本文是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=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://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,tempStrtxt=trim(txt)x = len(txt)y = 0if 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=0else  '说明是一个ascii码 y = y + 1 ischines=0 isascii=1end 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 = txtelse InterceptString = ""end ifEnd 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 = iStrCountEnd Function

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

上述是asp中广告插入在文章的实现方法，希望了解完本文介绍后大家都有了一定的了解，也希望大家继续支持错新技术频道！

上一篇：详细介绍Webform 内置对象 Session对象、Application全局对象，ViewState

下一篇：简述ASP 和组件之间的划分服务