這篇文章主要介紹了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 &< style=floatdiv:left=floatd 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 xc=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 即可。