画中画着画不出的画 asp画中画广告插入在每篇文章中的实现方法

文字内容

Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr
''截取合适数量的字符串
if len(ArticleContent)<320 then
 headlen=200
else
 headlen=320
end if
tempStr=ArticleContent
LeftC
'获得截取的文字内容
RightC
ModifyC &"

上面是通过DIV+JS 来插入广告的，广告代码放在ad.js文件中，也可以通过table+JS 或者直接用iframe的方式来插入。不管以那种方式，都必须设置其属性为左对齐或右对齐，这样才能保证为止环绕在广告周围。

接下的第二段就是画中画广告代码的判断了。

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),"<>") 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 即可。

以上就介绍了画中画着画不出的画 asp画中画广告插入在每篇文章中的实现方法，包括了画中画着画不出的画方面的内容，希望对ASPjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。

本文网址链接：http://www.codes51.com/article/detail_1743020.html