参考了sina的代码,想出来的一个代码,请大家使用,不要传播,转载请注明:来自脚本之家<!-- //时间计算 var showit=false; var today=new Date(); var urlpath; function testdate() { urlpath='http://www.scripthome.net/bbs';showit=true if(today.getHours()>='10' && today.getHours()<'12') { urlpath='http://www.jb51.net';showit=true } } testdate(); var MSIE=navigator.userAgent.indexOf("MSIE"); var OPER=navigator.userAgent.indexOf("Opera"); if(showit==true) { if (document.all && MSIE!=-1 && OPER==-1) { // this is a 4.x browser, no? function changediv(){ document.getElementById('hiddenLayer').style.display = "block"; document.getElementById('interstitialFrame').src = urlpath; setTimeout("hidediv()",5000) } function hidediv(){ document.getElementById('hiddenLayer').style.display="none"; SYtag=2; } function showfull(){ setTimeout("changediv()",2000); } showfull(); }} if(showit==true) { if (document.all && MSIE!=-1 && OPER==-1) { // this is a 4.x browser, no? document.write('<DIV ID="hiddenLayer" style="display: none; height: 0">'); expandableIframe = '<IFRAME id="interstitialframe" width=0 HEIGHT=0 NORESIZE SCROLLING=No FRAMEBORDER=0 MARGINHEIGHT=0 MARGINWIDTH=0></IFRAME>'; document.write(expandableIframe); } document.write('</div>'); } // -->

　　推荐阅读

　　Apply an AutoFormat to an Excel Spreadsheet

Script Code 复制代码 代码如下:Const xpRangeAutoFormatList2 = 11 Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True Set objWorkbook = objExcel.Workbooks.Add() Set objWorkshe>>>详细阅读

本文标题：站长必须要知道的javascript广告代码 原创

地址：http://www.17bianji.com/kaifa2/JS/30384.html

 1/2    1