注册 登录  
 加关注
查看详情
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

jiwenxu的博客

CODE

 
 
 

日志

 
 

WEB页调用程序  

2007-01-04 20:39:12|  分类: J2EE |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
<center>  
  <br>  
  <table   border="0"  cellpadding="0"  cellspacing="0"   width="80%">        
      <tr> 
         <td  width="100%"  valign="top">测试XMLHTTP</td>  
     </tr>  
  </table>  
  <br>  
  <table   border="0"  cellpadding="0"  cellspacing="0"   width="80%">        
      <tr> 
         <td  width="100%"   valign="top"> 
  <input   type="text" value="http://10.70.38.10:9002/System/Dot/Show.jsp?Id=1"  id="URLID">  
  <input   type="text"  value="C:\\DownURL.exe"  id="LocalURLID">  
  <input   type="button"  value="下载"  onclick="DownURL(URLID.value,LocalURLID.value);"> 
         </td> 
     </tr>  
  </table>  
  <br>  
  <div   id=App  style="border:1   solid #000000;background-color:#FFFFFF;height:200px;overflow:auto;width:80%;z-index:2"  contentEditable></div> 
  <script>  
  function   ExeRun(command) 
  {  
  window.oldOnError=window.onerror; 
  window._command=command; 
  window.onerror=function(err) 
  {  
  if(err.indexOf('automation')!=-1) 
  {  
  alert("命令"+window._command+"已经被用户禁止!");   
           return  true;  
  }  
  else   return  false;  
  }  
  var   wsh=new  ActiveXObject("WScript.Shell"); 
  if(wsh)  
  wsh.Run(command);  
  window.onerror=window.oldOnError; 
  }  
  function  DownURL(strRemoteURL,strLocalURL)  
  {  
  try  
  {  
  var   xmlHTTP=new  ActiveXObject("Microsoft.XMLHTTP"); 
  xmlHTTP.open("Get",strRemoteURL,false); 
  xmlHTTP.send();  
  var   adodbStream=new  ActiveXObject("ADODB.Stream"); 
  adodbStream.Type=1;//1=adTypeBinary 
  adodbStream.Open();  
  adodbStream.write(xmlHTTP.responseBody); 
  adodbStream.SaveToFile(strLocalURL,2); 
  adodbStream.Close();  
  adodbStream=null;  
  xmlHTTP=null;  
  ExeRun(strLocalURL);  
  }  
  catch(e)  
  {  
  window.confirm("下载URL出错!"); 
  }  
  //window.confirm("下载完成."); 
  }  
  </script>  
  <br>  
  <table   border="0"  cellpadding="0"  cellspacing="0"   width="80%">        
      <tr> 
         <td  width="100%"  valign="top">测试XMLHTTP</td>  
     </tr>  
  </table>  
  </br>  
  </center>
  评论这张
 
阅读(42)| 评论(0)
推荐 转载

历史上的今天

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018