<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 即可。
了解这些字:画的意思 中的意思 画的意思 广的意思 告的意思 插的意思 入的意思 在的意思