盡管很多人給出了給每篇文章加上畫中畫廣告的方法，但是這些所謂的方法，都不能真正地實現文字環繞在廣告周圍的“畫中畫”效果，只能左對其或者右對齊?，F在要討論的這個方法才能真正實現像新浪網、搜狐網那樣的畫中畫廣告效果。

首先說一下錯誤的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