盡管很多人給出了給每篇文章加上畫(huà)中畫(huà)廣告的方法，但是這些所謂的方法，都不能真正地實(shí)現(xiàn)文字環(huán)繞在廣告周?chē)摹爱?huà)中畫(huà)”效果，只能左對(duì)其或者右對(duì)齊。現(xiàn)在要討論的這個(gè)方法才能真正實(shí)現(xiàn)像新浪網(wǎng)、搜狐網(wǎng)那樣的畫(huà)中畫(huà)廣告效果。
首先說(shuō)一下錯(cuò)誤的div+CSS方法，希望大家別被誤導(dǎo)：
div id="outer" style="float:left;">
div id="inner" style="float:left;margin:0;width:200px;height:200px;">/div>
文字內(nèi)容
/div>
上面只能算作是左對(duì)齊的效果。還有很多借助表格或者iframe來(lái)實(shí)現(xiàn)的，也不外乎如此。
那么，怎么才能真正實(shí)現(xiàn)在每篇文章中批量添加畫(huà)中畫(huà)廣告的效果呢？可以采用截取字段來(lái)進(jìn)行，有兩段代碼。
第一段是分析文章內(nèi)容字?jǐn)?shù)，然后插入廣告的代碼：
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr
''截取合適數(shù)量的字符串
if len(ArticleContent)320 then
headlen=200
else
headlen=320
end if
tempStr=ArticleContent
LeftContent=InterceptString(tempStr,headlen)
'獲得截取的文字內(nèi)容
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
上面是通過(guò)DIV+JS 來(lái)插入廣告的，廣告代碼放在ad.js文件中，也可以通過(guò)table+JS 或者直接用iframe的方式來(lái)插入。不管以那種方式，都必須設(shè)置其屬性為左對(duì)齊或右對(duì)齊，這樣才能保證為止環(huán)繞在廣告周?chē)?/p>
接下的第二段就是畫(huà)中畫(huà)廣告代碼的判斷了。
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
'說(shuō)明是一個(gè)中文字符
y = y + 2
ischines=1
isascii=0
else
'說(shuō)明是一個(gè)ascii碼
y = y + 1
ischines=0
isascii=1
end if
'如果長(zhǎng)度已經(jīng)大于定義子字符串長(zhǎng)度，就判斷是否包含敏感字符串是否分開(kāi)
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) '"字符串限長(zhǎng)
exit for
else
if isascii=1 then x=x+1
end if
end if
next
InterceptString = txt
else
InterceptString = ""
end if
End Function
'判斷字符串出現(xiàn)的次數(shù)
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
以新云網(wǎng)站管理系統(tǒng)為例。首先找到生長(zhǎng)靜態(tài)文章頁(yè)面的代碼文件/inc/NewsChannel.asp （其它CMS與此類(lèi)似），在第248行 HtmlContent = Replace(HtmlContent, "{$ArticleContent}", ArticleContent) 的前面插入第一段代碼，在頁(yè)面中的適當(dāng)為止插入第二段代碼，然后將該行中的ArticleContent 改為ModifyContent 即可。
您可能感興趣的文章:- 信息頁(yè)文內(nèi)畫(huà)中畫(huà)廣告js實(shí)現(xiàn)代碼(文中加載廣告方式)
