asp文章干扰码实现方法

也许你会问为什么网站要这么做呢？原因不外呼两种：一是为了防止复制或采集，你想想文章中多了这么多的干扰码，如果你复制或采集了必须手动一个个的删除，给采集者增加了一定的工作量，一般会吓跑他们。二是可以宣传网站，因为干扰码中可以是自己网站的相关信息，如网址等，当别人复制或采集了这些文章，如果不做任何处理的话，访客就会这个网站看到其它网站的信息了。无形中为这个网站做了宣传。

asp实现在文章中添加干扰码的方法其实不是很复杂，只要将准备好的干扰文字插入到文章中即可。这里涉及到三个问题：

1.如何产生干扰码，前面已经将了干扰码一般有两种，对于随机无意义的字符，我们只要用程序生成一段随机的字符就可以了，如何生成随机字符？请看：8个asp生成随机字符的函数 。对于有特定涵义的字符其实也很简单，将特定的某一字符或某一组字符存入字符，在随机抽取插入，在以后会给出具体方法。

2.如何将干扰码插入文章中。对于这个问题，一般的做发是将干扰码放到换行或回车之后及<br>或</p>，另一种方法是随机的在文章中放置，此时必须用style="display:none"样式将其隐藏。

3.如何不影响正常访客的浏览。一般使用干扰码的文章都有一个背景色，只要把干扰码的文字颜色设置成于文章背景色一致就可以达到隐藏干扰码的目的了，呵呵。

下面给出干扰码具体使用的asp代码例子：

下面就要将Arndcode插入文章的内容中,使用了replace来替换</p>.这里只是插到了</p>后，对于<br>道理是一样的。

content=replace(content,"</p>","</p>"&Arndcode)

centent为文章的内容。这样就OK了。

function rndcode(byVal stars,byVal ends)

'by 点梦知识库 from:dianmeng.com

dim rndlen,i

randomize

rndLen = int(stars*rnd+ends-stars)

for i = 1 to rndLen

      randomize    

      rndcode = rndcode & chr(int(127*rnd+1))     

next

end function

Arndcode=rndcode(20,100)

Arndcode = replace(Arndcode,"<","") '替换掉<,>以防页面变形

Arndcode = replace(Arndcode,">","")

'下面设置干扰码的样式，只要做到和背景色一致就可以了

Arndcode = "<font style=""color:背景色代码"">" & Arndcode & "</font>"