文章内容防复制功能的实现

来源：互联网发布：北京洪涝灾害数据编辑：程序博客网时间：2024/06/05 17:50

收集的另一种方法

防止网页内容被拷贝的方法

为了防止内容被拷贝，通常的办法是屏蔽掉鼠标右键，不让查看源文件，但这也有很多办法突破，如使用Netscape浏览器就不会有这种现象，而且让人觉得很不方便，因为鼠标右键可以用来做其他很多事情，如保存图片啊等等。因此这里再介绍一个更好的办法，不用屏蔽鼠标右键，而是对屏蔽掉鼠标选择要copy内容的功能。

首先在页面的<head></head>区加入以下代码：

然后在标签里加入函数代码，让页面加载后自动执行。

ASP 防复制的代码

<%
'作用:文字防复制乱码函数
'Date:2006-3-6
'作者:blue2004
'参数str 为原文,str1作者也是你自己,reslut产生乱码的种子
Function ReadToCode(str,Str1,result)
dim name
dim i,j,k
If isnull(str) then
ReadToCode=""
Exit Function
End If
Randomize
k=instr(str,"</P>")
Do while k>0
result=""
for i=0 to 19
j=Int(128 * Rnd)+1
if j=60 or j=62 then
j=j+1
end if
result =result&chr(j) ' 产生随机数。
next
result="<span style='DISPLAY: none'>"&result&"</span>"
str=replace(str,"</p>",result&"<'/p>",1,1)
k=instr(str,"</p>")
loop
str=replace(str,"<'/p>","</p>")

k=instr(str,"<br>")
Do while k>0
result=""
for i=0 to 19
j=Int(128 * Rnd)+1
if j=60 or j=62 then
j=j+1
end if
result =result&chr(j) ' 产生随机数。
next
result="<span style='DISPLAY: none'>"&result&"</span>"
str=replace(str,"<br>",result&"<'br>",1,1)
k=instr(str,"<br>")
loop
str=replace(str,"<'br>","<br>")
ReadToCode=str&"<div align=right style='color=gray'>[版权归原作者及"&Str1&"共同拥有，转载请注明出处]</div>"
End Function

Dim a
a="嘎嘎，一篇<br>不错的好<p>文章哦</P><br><P>我艹，，让你偷。。木　JJ的家伙,嬲。。</p>"

'Only For Test
response.write (a)

Dim b
'为配合转换,字符串ａ的大小都替换成小写
b=ReadToCode(LCase(a),"blue2004","www.xxx.com")

'Output
response.write b
%>

相信你看完后知道如何使用了。嘎嘎

网页防复制代码

让左.右键和Ctrl+C都不能复制的代码

<SCRIPT LANGUAGE=javascript>
function click(){
alert('由于本区关系到作者的出品处。请勿未经作者同意非法转贴。谢谢合作') }
function click1() {
if (event.button==2) {alert('由于本区关系到作者的出品处。请勿未经作者同意非法转贴。谢谢合作') }}
function CtrlKeyDown(){
if (event.ctrlKey) {alert('不当的拷贝将损害您的系统！') }}
document.onkeydown=CtrlKeyDown;
document.onselectstart=click;
document.onmousedown=click1;
</SCRIPT>