防止代码复制

2008-02-23 07:52:38来源：互联网阅读 ()

//插入 document.body.oncopy event事件中
//或者 <body>的"oncopy"属性
function copyCode()
{
try
{
var range = document.selection.createRange();
if (document.selection.type != "none")
{
var parent = range.parentElement();
var parentName = parent.tagName;
if (parentName != null)
{
if (parentName.toLowerCase() == "pre")
{
// Replace superfluous tags in a <pre> block.
var re = / /gi;
var code = range.htmlText.replace(re, "\r\n");

// Replace non-breaking spaces.
re = / /gi;
code = code.replace(re, " ");

// Replace & characters.
re = /&/gi;
code = code.replace(re, "&");

// Replace < characters.
re = /</gi;
code = code.replace(re, "<");

// Replace > characters.
re = />/gi;
code = code.replace(re, ">");

// CJM: Remove colorization
re = /<\/?span([^>])*>/gi;
code = code.replace(re, "");

if (code != null)
{
window.event.returnValue = false;
window.clipboardData.setData("Text", code);
}
}
}
}
}
catch(e) {}
}

<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="feiyun">
<META NAME="Keywords" CONTENT="nocopy">
<META NAME="Description" CONTENT="no copy">
</HEAD>
<BODY oncopy="return copyCode();" >
防代码复制，不信你试试（只防止代码复制，其他可以复制） 
<TABLE>
<TR>
<TD>aa</TD>
<TD>bb</TD>
<TD>cc</TD>
</TR>
<TR>
<TD>dd</TD>
<TD>ee</TD>
<TD>ff</TD>
</TR>
</TABLE>

<PRE lang=vbscript><%
option explicit
dim fso
set fso = createobject("scripting.filesystemobject")
dim asplines, jslines, aspbytes, jsbytes, aspwords
iterate(server.mappath("/web_api"))
response.write "ASP:
Total Lines Coded: " & asplines & "
Total Bytes: " & aspbytes & "
Total Individual Elements (words) Typed: " & aspwords
response.write "
JScript:
Total Lines Coded: " & jslines & "
" & "Total Bytes: " & jsbytes
function iterate(path)
dim folder, folders, files, file, ts, txt, arr, f
set folder = fso.getfolder(path)
set files = folder.files
dim rx, c
set rx = new regexp
rx.ignorecase = true
rx.global = true
rx.pattern = " "
for each file in files
if right(file.name,4)=".asp" or right(file.name,3)=".js" then
set ts = file.openastextstream
if ts.atendofstream then txt = "" else txt = ts.readall
ts.close
txt = rx.replace(txt," ")
txt = replace(txt,vbcrlf&vbcrlf,vbcrlf)