您正在使用IPV4(3.92.28.52)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情       【腾讯云】爆款1核2G云服务器首年48元,还有iPad Pro、Bose耳机、京东卡等你来抽!      
虚位以待
2021年 冬至节 20
2021年 圣诞节 24
2022年 元 旦 31
2022年 春 节 62
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    asp画中画广告插入在每篇文章中的实现方法
    内容摘要: 第一段是分析文章内容字数,然后插入广告的代码:DimLeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr''截取合适数量的字符串iflen(ArticleContent)320thenheadlen=200elseheadlen=320e......
    第一段是分析文章内容字数,然后插入广告的代码:

    DimLeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr

    ''截取合适数量的字符串

    iflen(ArticleContent)<320then

    headlen=200

    else

    headlen=320

    endif

    tempStr=ArticleContent

    LeftContent=InterceptString(tempStr,headlen)

    '获得截取的文字内容

    RightContent=Right(ArticleContent,Len(ArticleContent)-Len(LeftContent))

    ModifyContent=LeftContent&"<divstyle=""float:left;""><scriptlanguage=""javascript""src=""http://www.eryi.org/ad.js""></script></div>"&RightContent

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

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

    FunctionInterceptString(txt,length)

    Dimx,y,ii,c,ischines,isascii,tempStr

    txt=trim(txt)

    x=len(txt)

    y=0

    ifx>=1then

    forii=1tox

    c=asc(mid(txt,ii,1))

    ifc<0orc>255then

    '说明是一个中文字符

    y=y+2

    ischines=1

    isascii=0

    else

    '说明是一个ascii码

    y=y+1

    ischines=0

    isascii=1

    endif

    '如果长度已经大于定义子字符串长度,就判断是否包含敏感字符串是否分开

    ify>=lengththen

    ifischines=1andStrCount(left(trim(txt),ii),"<a")=StrCount(left(trim(txt),ii),"</a>")then

    txt=left(trim(txt),ii)'"字符串限长

    exitfor

    else

    ifisascii=1thenx=x+1

    endif

    endif

    next

    InterceptString=txt

    else

    InterceptString=""

    endif

    EndFunction

    '判断字符串出现的次数

    FunctionStrCount(Str,SubStr)

    DimiStrCount

    DimiStrStart

    DimiTemp

    iStrCount=0

    iStrStart=1

    iTemp=0

    Str=LCase(Str)

    SubStr=LCase(SubStr)

    DoWhileiStrStart<Len(Str)

    iTemp=Instr(iStrStart,Str,SubStr,vbTextCompare)

    IfiTemp<=0Then

    iStrStart=Len(Str)

    Else

    iStrStart=iTemp+Len(SubStr)

    iStrCount=iStrCount+1

    EndIf

    Loop

    StrCount=iStrCount

    EndFunction

    版权声明:本内容来源于网络,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:asp实现读取数据库输出json代码 下一篇:ASP把XML转换为XHTML的方法
    发布日期:2021/11/1
    手机扫二维码直达本页
    发布时间:17:03:34
    点击:297
    录入:壹家怡园
    相关文章
    Baidu
    YiJiaCMS 6.0.9.10888 Build 21.11.30(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护
    ©2000-2021