• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    asp文章中随机插入网站版权文字的实现代码
    当然,如果你的网站文章中有图片,那么请记得一定要打上自己的LOGO,而且这个LOGO不要固定在这些图片的某个角落里,一定要随机出现在图片的任意位置,做到神出鬼没,让采集者感慨:对方网站站标真是变幻莫测,防不胜防啊……

        切入正题。我们怎么才能在自己的文章中随机插入版权文字呢?昨晚花了点时间,写了段简单的随机插入随机的文字的代码,asp版本的:


    ''===随机生成干扰文字函数开始===
    ''===随机生成干扰文字函数一===
    function rndk()
    dim s,s1,n,n1
    ''随机插入你的网站版权文字,多个以|分割
    s="脚本之家|脚本:https://www.jb51.net。|https://www.jb51.net。|Jb51.net。|font style=display:none>http://www.kanshule.com/font>|span style=""display:none"">a href=https://www.jb51.net>脚本/a>/span>"
    s1=split(s,"|")
    Randomize
    n=Int((ubound(s1) - lbound(s1) + 1) * Rnd + lbound(s1))
    Randomize
    n1=Int((10 - 1 + 1) * Rnd + 1)
    if n1=3 then '30%概率出现
    rndk=s1(n)
    else
    rndk=""
    end if
    end function
    ''===随机生成干扰文字函数二===
    function transtr(str) '调用该函数转化
    dim str1,i,k
    k="p>/p>" '分割关键字
    str1=split(str,k)
    for i=lbound(str1) to ubound(str1)
    transtr=transtrstr1(i)rndk()k
    next
    end function
    ''===随机生成干扰文字函数结束===

        在具体调用的时候,比如我们的内容字段content,用上面的函数转换一下就ok了,像transtr(content)这样就行了。我这里取的分割关键字是段落结束之前的p>/p>,你也可以改成其他如br>换行等,如果你的字段没有经过UBB转化,那么换行回车符号为 CHR(10)  CHR(10),分割关键字改成它就可以了。

        我们网站的内容虽然不能说百分百是原创,但也是我们一篇篇辛辛苦苦地整理出来的啊,别人通过程序几个小时就能把你几个月甚至几年的心血就偷窃过去了,放到谁身上也不舒心啊。

        所以,飘易放出这样的随机插入版权的代码,希望能遏制部分这些采集者的嚣张气焰。

        如果你有更好的方法,欢迎留下您的评论。
    上一篇:asp MYSQL出现问号乱码的解决方法
    下一篇:ASP利用XMLHTTP实现表单提交以及cookies的发送的代码
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

    asp文章中随机插入网站版权文字的实现代码 asp,文章,中,随机,插入,网站,