代码运行框制作方法-JS特效-爱易网页

代码运行框制作方法

日期：2014-05-18　浏览次数：20156 次

以下是程序代码

<SCRIPT>
function run_zzjs(obj)
{//欢迎来到站长特效网，我们的网址是www.zzjs.net，很好记，zz站长，js就是js特效，本站收集大量高质量js代码，还有许多广告代码下载。
  var TestWin=open('');
  TestWin.document.write(obj.value);
}
function runcode_copy(element)
{
 var codeobj = document.getElementById(element);
 var meintext = codeobj.value;
 try {
if (window.clipboardData)
  {
  // the IE-manier
  window.clipboardData.setData("Text", meintext);
  // waarschijnlijk niet de beste manier om Moz/NS te detecteren;
  // het is mij echter onbekend vanaf welke versie dit precies werkt:
  }
  else if (window.netscape)
  {
  // dit is belangrijk maar staat nergens duidelijk vermeld:
  // you have to sign the code to enable this, or see notes below
  netscape.security.PrivilegeManager.enablePrivilege('UniversalXPConnect');
  // maak een interface naar het clipboard
  var clip = Components.classes['@mozilla.org/widget/clipboard;1']
    .createInstance(Components.interfaces.nsIClipboard);
  if (!clip) return;
  // maak een transferable
  var trans = Components.classes['@mozilla.org/widget/transferable;1']
   .createInstance(Components.interfaces.nsITransferable);
  if (!trans) return;
  // specificeer wat voor soort data we op willen halen; text in dit geval
  trans.addDataFlavor('text/unicode');
  // om de data uit de transferable te halen hebben we 2 nieuwe objecten
  // nodig om het in op te slaan
  var str = new Object();
  var len = new Object();
  var str = Components.classes["@mozilla.org/supports-string;1"]
     .createInstance(Components.interfaces.nsISupportsString);
  var copytext=meintext;
  str.data=copytext;
  trans.setTransferData("text/unicode",str,copytext.length*2);
  var clipid=Components.interfaces.nsIClipboard;
  if (!clip) return false;
 //欢迎来到站长特效网，我们的网址是www.zzjs.net，很好记，zz站长，js就是js特效，本站收集大量高质量js代码，还有许多广告代码下载。
  clip.setData(trans,null,clipid.kGlobalClipboard);
//欢迎来到站长特效网，我们的网址是www.zzjs.net，很好记，zz站长，js就是js特效，本站收集大量高质量js代码，还有许多广告代码下载。
  }
 } catch (e) {alert('站长特效提示您因为安全策略的原因，此项功能已被您的浏览器禁止。关闭此窗口，然后按下“Ctrl+C”组合键完成复制。');  codeobj.focus();
 }
 codeobj.select();
   return false;
}
function myurl(){
var url;
var mytitle;
url=document.location;
mytitle = document.title;//标题
if(mytitle == null){
    var t_titles = document.getElementByTagName("title")
    if(t_titles && t_titles.length >0)
    {
       mytitle = t_titles[0];
    }else{
       kdocTitle = "";
    }
}
websiteinfo=mytitle+'  '+url;
document.getElementById("_www_zzjs_net").value = websiteinfo;
}
function copy_clip(copy){
if (window.clipboardData){
window.clipboardData.setData("Text", copy);}
else if (window.netscape){
//sky于2009年12月31号修改。
 try{
  netscape.security.PrivilegeManager.enablePrivilege('UniversalXPConnect');
  }
  catch (e) {
        alert("您已经取消操作！\n或者此操作被浏览器拒绝！解决方法如下：\n在浏览器地址栏输入“about:config”后回车\n将signed.applets.codebase_principal_support的值设置为'true',双击改变。");
                  }
var clip = Components.classes['@mozilla.org/widget/clipboard;1'].createInstance(Components.interfaces.nsIClipboard);
if (!clip) return;
var trans = Components.classes['@mozilla.org/widget/transferable;1'].createInstance(Components.interfaces.nsITransferable);
if (!trans) return;
trans.addDataFlavor('text/unicode');
var str = new Object();
var len = new Object();
var str = Components.classes["@mozilla.org/supports-string;1"].createInstance(Components.interfaces.nsISupportsString);
var copytext=copy;
str.data=copytext;
trans.setTransferData("text/unicode",str,copytext.length*2);
var clipid=Components.interfaces.nsIClipboard;
if (!clip) return false;
clip.setData(trans,null,clipid.kGlobalClipboard)</div></div>

<div class="clearfix"></div>
                    </div>
                    <nav aria-label="...">
                        <ul class="pager">
                            <li class="previous"><a href="4667">上一篇：狡猾的按钮特效</a></li>

<li class="next"><a href="2542">下一篇：在页面中点击鼠标实现插入字段效果</a></li>
                        </ul>
                    </nav>

<div class="alert alert-warning" role="alert">
                        <strong>免责声明：</strong> 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
                    </div>

<div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34395' title='承载京东C2C野心的拍拍网：梦想丰满，现实骨感' target="_blank">
                        承载京东C2C野心的拍拍网：梦想丰满，现实骨感</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/10827' title='快递企业征收“份子钱” 成全了谁 苦了谁？' target="_blank">
                        快递企业征收“份子钱” 成全了谁 苦了谁？</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34168' title='HTC的三大迷惘：高管釜底抽薪 产品营销战略混乱' target="_blank">
                        HTC的三大迷惘：高管釜底抽薪 产品营销战略混乱</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/16165' title='网络文学竞争白热化 百度多酷文学网上线' target="_blank">
                        网络文学竞争白热化 百度多酷文学网上线</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/10821' title='阿朗力避步北电后尘 急切停止自我革新' target="_blank">
                        阿朗力避步北电后尘 急切停止自我革新</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34267' title='华为变阵:任正非调整三大业务布局' target="_blank">
                        华为变阵:任正非调整三大业务布局</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/6908' title='小米2S试水高端化 纯“性价比”玩法已成过去式' target="_blank">
                        小米2S试水高端化 纯“性价比”玩法已成过去式</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34411' title='乐视今日临时停牌 受广电酝酿新规消息影响' target="_blank">
                        乐视今日临时停牌 受广电酝酿新规消息影响</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34087' title='SAP高层调整：联席CEO孟鼎铭成唯一掌舵人' target="_blank">
                        SAP高层调整：联席CEO孟鼎铭成唯一掌舵人</a></li></div>
                   
                
        </ol>
    </div>
</div>

</div>

</div>
            </div>
            <div class="clearfix"></div>

<footer class=" footer navbar-bottom">
<em>友情链接：</em>
    
      <a href="http://www.aiyiweb.com/" target="_blank">爱易网 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">云虚拟主机技术 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">云服务器技术 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">程序设计技术 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">开发网站 </a>            
    
      <a href="http://www.aiyiweb.com/" target="_blank">APP开发教程 </a>            
    
<br />
<script type="text/javascript">(function(){document.write(unescape('%3Cdiv id="bdcs"%3E%3C/div%3E'));var bdcs = document.createElement('script');bdcs.type = 'text/javascript';bdcs.async = true;bdcs.src = 'http://znsv.baidu.com/customer_search/api/js?sid=15239353030108964139' + '&plate_url=' + encodeURIComponent(window.location.href) + '&t=' + Math.ceil(new Date()/3600000);var s = document.getElementsByTagName('script')[0];s.parentNode.insertBefore(bdcs, s);})();</script>

Copyright © 2013-2026 爱易网页 当前在线：185人　
        网站在12时19分10秒内访问总人数：74746人
    当前 11.51%
　<a href="https://beian.miit.gov.cn" target="_blank">粤ICP备18100884号-2 </a>
<script charset="UTF-8" id="LA_COLLECT" src="//sdk.51.la/js-sdk-pro.min.js"></script>
<script>LA.init({ id: "JszEmKrtpbU59dY5", ck: "JszEmKrtpbU59dY5" })</script>

</footer>

</div>
   
</body>
</html>