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

网络编程 ASP编程 应用技巧 分类:[default] 更新日期: 2016-03-11
这篇文章主要介绍了asp画中画广告插入在每篇文章中的实现方法,需要的朋友可以参考下

尽管很多人给出了给每篇文章加上画中画广告的方法,但是这些所谓的方法,都不能真正地实现文字环绕在广告周围的“画中画”效果,只能左对其或者右对齐。现在要讨论的这个方法才能真正实现像新浪网、搜狐网那样的画中画广告效果。

首先说一下错误的div+CSS方法,希望大家别被误导:

<div  style="float:left;">
<div  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=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

上面是通过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),"<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 即可。


> 本站内容系网友提交或本网编辑转载,其目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题,请及时与本网联系,我们将在第一时间删除内容!

相关文章
  • 利用ASP.NETMVC+Bootstrap搭建个人博客之修复UEditor编辑时Bug(四)
    利用ASP.NETMVC+Bootstrap搭建个人博客之修复UEditor编辑时Bug(四)
    这篇文章主要介绍了利用ASP.NET MVC+Bootstrap搭建个人博客之修复UEditor编辑时Bug四的相关资料,非常不错,具有参考借鉴价值,需要的朋友可以参考下我的个人博客站在使用百度富文本编辑器UEditor修改文章时,遇到了一些问题,(不知是bug,还是我没有配置好).但总算找到了解决方法,在此记录下来. 小站首页文章列表显示为(显示去除HTM ...
  • ASP.NET(C#)WebApi通过文件流下载文件的实例
    这篇文章主要介绍了ASP.NETC# Web Api通过文件流下载文件的方法,提供源码下载,需要的朋友可以参考下.下载文件到本地是很多项目开发中需要实现的一个很简单的功能.说简单,是从具体的代码实现上来说的,.NET的文件下载方式有很多种,本示例给大家介绍的是ASP.NET Web Api方式返回HttpResponseMessage下载文件到本地.实现的方 ...
  • PHP微信开发之查询微信精选文章
    这篇文章主要为大家详细介绍了PHP微信开发之简单实现查询微信精选文章的相关资料,感兴趣的小伙伴们可以参考一下查询微信里的一些精选的,点击量比较大的文章. 别忘记申请apikey(登录百度账号即可获取),要完成的功能是: 1.用户回复"文章",公众号要返回文章分类的编号(比如9.科技). 2.用户回复wz9,1,腾讯     则能返回科技类 ...
  • 解读ASP.NET5&MVC6系列教程1:ASP.NET5简介
    这篇文章主要介绍ASP.NET 5简介以及对各个版本号进行解释,ASP.NET 5中新的变化,需要的朋友可以参考下.ASP.NET 5简介 ASP.NET 5是一个跨时代的改写,所有的功能和模块都进行了独立拆分,做到了彻底解耦.为了这些改写,微软也是蛮 拼的,几乎把.NET Framwrok全部改写了一遍,形成了一个.NET Core的东西. 在.NET C ...
  • ASP.NETWebApi2实现多文件打包并下载文件的实例
    ASP.NETWebApi2实现多文件打包并下载文件的实例
    这篇文章主要介绍了ASP.NET Web Api 2利用ByteArrayContent和StreamContent实现多文件打包并下载的方法,提供源码下载,需要的朋友可以参考下.最近由于工作和个人事务,站点也好久没更新了,但这并不影响我对.NET的热情.站点的更新工作还是得想办法抽时间来完成的. 今天利用中午的时间来写一篇关于Asp.Net Web Api ...
猜你喜欢