用Javascript与WScript实现PPT->HTM在线转换,压缩并上传

原创 2006年05月20日 13:06:00

 


<%@ page language="java" contentType="text/html;charset=GBK"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
  <head>
    <base href="http://localhost:8080/web1/">
   
    <title>My JSP 'MyJsp.jsp' starting page</title>
   
    <meta http-equiv="pragma" content="no-cache">
    <meta http-equiv="cache-control" content="no-cache">
    <meta http-equiv="expires" content="0">
    <meta http-equiv="keywords" content="keyword1,keyword2,keyword3">
    <meta http-equiv="description" content="This is my page">
   
    <!--
    <link rel="stylesheet" type="text/css" href="styles.css">
    -->

 <SCRIPT LANGUAGE="JavaScript">
 <!--

 var target_htm_name = "test";


 var target_htm_folder = "c://temp//tchaid//uptmp//" + target_htm_name;
 var target_htm_file = target_htm_folder + "//" + target_htm_name + ".htm";
 var target_rar_file = target_htm_folder + "//" + target_htm_name + ".rar";

 function check_folder()
 {
  var fso = new ActiveXObject("Scripting.FileSystemObject");
  if(!fso.FolderExists("c://temp"))
   fso.CreateFolder("c://temp");

  if(!fso.FolderExists("c://temp//tchaid"))
   fso.CreateFolder("c://temp//tchaid");

  if(!fso.FolderExists("c://temp//tchaid//uptmp"))
   fso.CreateFolder("c://temp//tchaid//uptmp");

  if(!fso.FolderExists(target_htm_folder))
   fso.CreateFolder(target_htm_folder);
 }

 function ConvertPPT2MHT(file)
 {
  var PPT = new ActiveXObject("PowerPoint.Application");
  var Pres = PPT.Presentations.Open(file, false, false, false);
  Pres.SaveAs(target_htm_file, 12, false);
  Pres.Close();
 }
 
 function Compress()
 { 
  var winRar=new ActiveXObject("WScript.Shell");  
  var tmp = winRar.CurrentDirectory;
  winRar.CurrentDirectory = target_htm_folder;
  var cmd="winrar a "+ target_rar_file + " . -r" ;
  winRar.run(cmd,1,true);
  winRar.CurrentDirectory = tmp;
 

  var fso = new ActiveXObject("Scripting.FileSystemObject");
  fso.DeleteFile(target_htm_file,true);

  var t = target_htm_folder + "//" + target_htm_name + ".files";
  fso.DeleteFolder (t,true);

  winRar.SendKeys("^a");
  winRar.SendKeys(target_rar_file);
  winRar = null;
 }
 
 function do_upload()
  {
   var form = document.forms["myform"];
   if(form.sFile.value == target_rar_file)
    form.submit();
   else
    setTimeout('do_upload()',10); //由于消息机制,winRar.SendKeys的按键消息此时还没有生效,这里用
  }                                                       //定时器来给系统一个机会来在提交之前把按键消息处理完
 
 function on_upload(form)
 {
  var form = document.forms["myform"];
 
  if(form.sFile.value.length == 0)
  {
   alert("你没有选择任何文件,请选择要上传的PPT或DOC文件!");
   return false ;
  }

  var type = 0 ;
  if(/ppt$/i.test(form.sFile.value)) 
   type = 1 ;       //PPT文件
  else if(/doc$/i.test(form.sFile.value))
   type = 2 ;       //DOC文件
 
  if(type == 0)
  {
   alert("请选择PPT文件或DOC文件上传!");
   return false ;
  }

  form.sFile.focus();
  check_folder();
  ConvertPPT2MHT(form.sFile.value);
  Compress();

 do_upload();
 }
 
  
  
 

 //-->
 </SCRIPT>
  </head>
 
  <body>
   
    Select a PPT file
 <form name="myform" action="upload_handler.jsp" method="post" enctype="multipart/form-data">
  <input type="file" name="sFile" id="sFile" />
  <input type="button" name="Button" value="upload" onclick="on_upload()"/>
  <input type="submit" name="Button" value="submit"/>
 </form>
   
  </body>
</html>

Servlet:htm+javascript+css+servlet (ajax)实现上传(能显示进度条)

本示例需要commons-fileupload-1.3.jar和commons-io-2.4.jar的支持,新手请参阅无进度条的上传 http://blog.csdn.net/tabactivity/...

使用JAVA在线下载图片至本地,并上传至FTP

1.首先我们需要将图片下载至本地。相关操作类如下所示: /** * 下载文件到本地 * * @param urlString * 被下载的文件地址 *...

Flex在线拍照并上传(兼容multipart/form-data)

关于Flex拍照的文章很多,Camera的用法基本上类似。   上传的一般做法是:得到ByteArray之后直接放在Request的体内容中传给服务器端,服务器打开请求流,直接读取byte[...

开发ASP.NET MVC 在线录音录像(音视频录制并上传)

开发ASP.NET MVC 在线录音录像(音视频录制并上传) 最近有个在线招聘录音的开发需求,需要在招聘网站上让招聘者上传录音和视频。 找到两个不错的javascript开...

WEB前端大图片压缩并上传例子

  • 2014年12月01日 15:47
  • 41KB
  • 下载

flash在线拍照并上传到后台(servlet)

一、flash在线拍照并上传到后台(servlet)       第一步:先新建一个ActionScript文件:ShiBieFunction.as       该文件的核心代码如下:       ...

压缩本地图片并上传至服务器

实现思路 先从本地图库中获取图片路径,再进行压缩保存图片到新的路径,最后上传该图片.1.获取系统图片路径:private void getImgPic() { Intent i = ...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Javascript与WScript实现PPT->HTM在线转换,压缩并上传
举报原因:
原因补充:

(最多只允许输入30个字)