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

代码运行框制作方法

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

以下是程序代码

<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/34282' title='亚马逊推特价闪购纪念入华十周年 总裁一职仍空缺' target="_blank">
                        亚马逊推特价闪购纪念入华十周年 总裁一职仍空缺</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34292' title='中电信率先推移动转售业务 中下旬批量上市' target="_blank">
                        中电信率先推移动转售业务 中下旬批量上市</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/10812' title='雅安地震 绝不宽恕应用人们爱心的骗子！' target="_blank">
                        雅安地震 绝不宽恕应用人们爱心的骗子！</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/6890' title='HTC与苹果三星距离扩展 C2B形式成新武器' target="_blank">
                        HTC与苹果三星距离扩展 C2B形式成新武器</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/6922' title='打车软件火了 恶性循环来了' target="_blank">
                        打车软件火了 恶性循环来了</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/6913' title='PC迎9年来出货量新低 平板电脑渐成主流' target="_blank">
                        PC迎9年来出货量新低 平板电脑渐成主流</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/34107' title='“宽带中国”计划已正式上升为国家战略' target="_blank">
                        “宽带中国”计划已正式上升为国家战略</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/6855' title='众贷网满月开张 网络金融监管再受质疑' target="_blank">
                        众贷网满月开张 网络金融监管再受质疑</a></li></div>
                   
                
                  <div class="col-md-6 col-xs-12">
                      <li class="articleAbout"><a href='/ItNews/16169' title='网友爆料称微软雇水军宣传主机Xbox One' target="_blank">
                        网友爆料称微软雇水军宣传主机Xbox One</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-2025 爱易网页 当前在线：656人　
        网站在1天2时5分37秒内访问总人数：254949人
    当前 6.32%
　<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>