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

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了asp文章中随机插入网站版权文字的实现代码，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含1676字，纯文字阅读大概需要3分钟。

内容图文

当然，如果你的网站文章中有图片，那么请记得一定要打上自己的LOGO，而且这个LOGO不要固定在这些图片的某个角落里，一定要随机出现在图片的任意位置，做到神出鬼没，让采集者感慨：对方网站站标真是变幻莫测，防不胜防啊……

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


''===随机生成干扰文字函数开始===
''===随机生成干扰文字函数一===
function rndk()
dim s,s1,n,n1
''随机插入你的网站版权文字，多个以|分割
s="脚本之家|脚本://www.gxlsystem.com。|//www.gxlsystem.com。|Jb51．net。|<font style=display:none>http://www.gxlsystem.com</font>|<span style=""display:none""><a href=//www.gxlsystem.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)，分割关键字改成它就可以了。

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

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

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

内容总结

以上是互联网集市为您收集整理的asp文章中随机插入网站版权文字的实现代码全部内容，希望文章能够帮你解决asp文章中随机插入网站版权文字的实现代码所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---