当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp文章中随机插入网站版权文字的实现代码

ASP
ASP正则表达式技巧
ASP Access实现网站计数器(访问量)
ASP新闻分页,将一篇过长的文章分页,生成静态页面
一些关于asp 购物车的想法
一个sql查询器,自动画表格填字段
ASP实现文件直接下载的代码
把网页中的(电话,qq等数字)生成图片的ASP程序
asp长文章用分页符来分页显示
Asp函数介紹(37个常用函数)
ASP中的面向对象类
分页实现方法的性能比较
asp ajax跨域提交数据
asp修改文件和文件夹的名字的代码
ASP 多关键词查询实例代码
asp被杀毒软件误删的解决方法
asp 多关键词搜索的简单实现方法
asp 根据IP地址自动判断转向分站的代码
asp dictionary对象的用法
ASP 千万级数据分页的存储过程
ASP隐藏真实文件的下载功能实现代码

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 58 ::
收藏到网摘: n/a

网站不断被人抄袭采集,在百度对采集网站还没有有效的打击下,我们不能指望百度可以识别这些采集网站,那么只能依靠我们自己给我们辛辛苦苦做的内容加上版权文字,以打击这种不劳而获的采集行为。 当然,如果你的网站文章中有图片,那么请记得一定要打上自己的LOGO,而且这个LOGO不要固定在这些图片的某个角落里,一定要随机出现在图片的任意位置,做到神出鬼没,让采集者感慨:对方网站站标真是变幻莫测,防不胜防啊……
切入正题。我们怎么才能在自己的文章中随机插入版权文字呢?昨晚花了点时间,写了段简单的随机插入随机的文字的代码,asp版本的:

''===随机生成干扰文字函数开始===
''===随机生成干扰文字函数一===
function rndk()
dim s,s1,n,n1
''随机插入你的网站版权文字,多个以|分割
s="软晨学习网|脚本:http://www.ruanchen.com。|http://www.ruanchen.com。|Jb51.net。|<font style=display:none>http://www.kanshule.com</font>|<span style=""display:none""><a href=http://www.ruanchen.com>脚本</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=transtr&str1(i)&rndk()&k
next
end function
''===随机生成干扰文字函数结束===
在具体调用的时候,比如我们的内容字段content,用上面的函数转换一下就ok了,像transtr(content)这样就行了。我这里取的分割关键字是段落结束之前的<p></p>,你也可以改成其他如<br>换行等,如果你的字段没有经过UBB转化,那么换行回车符号为 CHR(10) & CHR(10),分割关键字改成它就可以了。
我们网站的内容虽然不能说百分百是原创,但也是我们一篇篇辛辛苦苦地整理出来的啊,别人通过程序几个小时就能把你几个月甚至几年的心血就偷窃过去了,放到谁身上也不舒心啊。
所以,飘易放出这样的随机插入版权的代码,希望能遏制部分这些采集者的嚣张气焰。
如果你有更好的方法,欢迎留下您的评论。