防止代碼複製

來源:互聯網
上載者:User

//插入 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 <br> tags in a <pre> block.
     var re = /<br>/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) {}
}

<HTML>
<HEAD>
<TITLE>防複製 </TITLE>
<SCRIPT language=javascript src="/blog/js/oncopy.js">
</SCRIPT>

<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();" >
<FONT COLOR="#FF0000">防代碼複製,不信你試試(只防止代碼複製,其他可以複製)</FONT><BR>
<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><%
<SPAN class=vb-statement>option</SPAN> <SPAN class=vb-statement>explicit</SPAN>
<SPAN class=vb-statement>dim</SPAN> fso
<SPAN class=vb-statement>set</SPAN> fso = createobject(<SPAN class=vb-string>"scripting.filesystemobject"</SPAN>)
<SPAN class=vb-statement>dim</SPAN> asplines, jslines, aspbytes, jsbytes, aspwords
iterate(server.mappath(<SPAN class=vb-string>"/web_api"</SPAN>))
response.write <SPAN class=vb-string>"ASP:
Total Lines Coded: "</SPAN> & asplines & <SPAN class=vb-string>"
Total Bytes: "</SPAN> & aspbytes & <SPAN class=vb-string>"
Total Individual Elements (words) Typed: "</SPAN> & aspwords
response.write <SPAN class=vb-string>"
JScript:
Total Lines Coded: "</SPAN> & jslines & <SPAN class=vb-string>"
"</SPAN> & <SPAN class=vb-string>"Total Bytes: "</SPAN> & jsbytes
<SPAN class=vb-statement>function</SPAN> iterate(path)
    <SPAN class=vb-statement>dim</SPAN> folder, folders, files, file, ts, txt, arr, f
    <SPAN class=vb-statement>set</SPAN> folder = fso.getfolder(path)
    <SPAN class=vb-statement>set</SPAN> files = folder.files
    <SPAN class=vb-statement>dim</SPAN> rx, c
    <SPAN class=vb-statement>set</SPAN> rx = <SPAN class=vb-keyword>new</SPAN> regexp
    rx.ignorecase = <SPAN class=vb-keyword>true</SPAN>
    rx.global = <SPAN class=vb-keyword>true</SPAN>
    rx.pattern = <SPAN class=vb-string>"  +"</SPAN>
    <SPAN class=vb-statement>for</SPAN> <SPAN class=vb-statement>each</SPAN> file in files
        <SPAN class=vb-statement>if</SPAN> right(file.name,<SPAN class=vb-literal>4</SPAN>)=<SPAN class=vb-string>".asp"</SPAN> <SPAN class=vb-keyword>or</SPAN> right(file.name,<SPAN class=vb-literal>3</SPAN>)=<SPAN class=vb-string>".js"</SPAN> <SPAN class=vb-statement>then</SPAN>
            <SPAN class=vb-statement>set</SPAN> ts = file.openastextstream
            <SPAN class=vb-statement>if</SPAN> ts.atendofstream <SPAN class=vb-statement>then</SPAN> txt = <SPAN class=vb-string>""</SPAN> <SPAN class=vb-statement>else</SPAN> txt = ts.readall
            ts.close
            txt = rx.replace(txt,<SPAN class=vb-string>" "</SPAN>)
            txt = replace(txt,vbcrlf&vbcrlf,vbcrlf)
            arr = split(replace(txt,vbcrlf,<SPAN class=vb-string>" "</SPAN>),<SPAN class=vb-string>" "</SPAN>)
            aspwords = aspwords + ubound(arr)
            arr = split(txt,vbcrlf)
            <SPAN class=vb-statement>if</SPAN> right(file.name,<SPAN class=vb-literal>4</SPAN>)=<SPAN class=vb-string>".asp"</SPAN> <SPAN class=vb-statement>then</SPAN>
                asplines = asplines + ubound(arr)
                aspbytes = aspbytes + len(txt)
            <SPAN class=vb-statement>else</SPAN>
                jslines = jslines + ubound(arr)
                jsbytes = jsbytes + len(txt)
            <SPAN class=vb-statement>end</SPAN> <SPAN class=vb-statement>if</SPAN>
        <SPAN class=vb-statement>end</SPAN> <SPAN class=vb-statement>if</SPAN>
    <SPAN class=vb-statement>next</SPAN>
    <SPAN class=vb-statement>set</SPAN> folders = folder.subfolders
    <SPAN class=vb-statement>for</SPAN> <SPAN class=vb-statement>each</SPAN> f in folders
        iterate f.path
    <SPAN class=vb-statement>next</SPAN>
<SPAN class=vb-statement>end</SPAN> <SPAN class=vb-statement>function</SPAN>
%></PRE>

</BODY>
</HTML>



相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。