• 注册
热门标签
↑ 收起导航

文章中随机插入网站版权文字达到防采集目的

网站内容不一定全是原创,但我们辛辛苦苦写出来的文章,被别人Ctrl+C Ctrl+V的复制粘贴,心里总会有些许的郁闷吧!我们可以随机的插入版权文字,至少让采集者得手动删除吧!那怎么才能在自己的文章中随机插入版权文字呢?下面给出一段简单的随机插入随机的文字的代码。asp版本的:

vb 代码
 
  1. <% 
  2. ''===随机生成干扰文字函数开始=== 
  3. ''===随机生成干扰文字函数=== 
  4. function rndk() 
  5. dim s,s1,n,n1 
  6. ''随机插入你的网站版权文字,如有多个可用|分割 
  7. s="来自:诺豆网 | 诺豆网:http://yangjunwei.com | http://yangjunwei.com。|Ha i Bo r.C N。|<font style=display:none>http://yangjunwei.com</font>|<span style=""display:none""><a href=http://yangjunwei.com>nuodou.com</a></span>" 
  8. s1=split(s,"|"
  9. Randomize 
  10. n=Int((ubound(s1) - lbound(s1) + 1) * Rnd + lbound(s1)) 
  11. Randomize 
  12. n1=Int((10 - 1 + 1) * Rnd + 1) 
  13. if n1<=3 then '30%概率出现 
  14. rndk=s1(n) 
  15. else 
  16. rndk="" 
  17. end if 
  18. end function 
  19. ''===随机生成干扰文字函数二=== 
  20. function transtr(str) '调用该函数转化 
  21. dim str1,i,k 
  22. k="<p></p>" '分割关键字 
  23. str1=split(str,k) 
  24. for i=lbound(str1) to ubound(str1) 
  25. transtr=transtr&str1(i)&rndk()&k 
  26. next 
  27. end function 
  28. ''===随机生成干扰文字函数结束=== 
  29. %>

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

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

如果你有更好的方法,欢迎留下您的评论。

版权声明:转载请注明来自杨俊伟博客,本文地址:http://yangjunwei.com/a/162.html
除非注明,杨俊伟博客文章均为原创,转载请注明出处和链接!
 

发表评论 



我还是想用邮箱注册

登录

忘记密码 ?

用第三方帐号快捷登录

已有账户?前往登录吧~

注册