<div id="outer" style="float:left;">
<div id="inner" style="float:left;margin:0;width:200px;height:200px;"></div>
文字內容
</div>

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

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 即可。

原文地址：http://www.eryi.org/blog/post/huazonghua-guanggao.html