28,391
社区成员
发帖
与我相关
我的任务
分享怎么实现上传的文件自动压缩啊？
要使客户端上传上来的word excel exe等文件不在ie中直接打开，我想让用户上传的文件自动压缩成.zip或.rar文件。我用的是无惧上传类
...全文
请发表友善的回复…
发表回复
fm1982 2003-10-17
- 打赏
- 举报
用vb自己做的控件在asp里调用。。
不知道哪里就有这个控件
不知道哪里就有这个控件
这笑容依然真实 2003-10-17
- 打赏
- 举报
想了想，可能要用API吧，把WINRAR或WINZIP程序自动唤醒，不然，把他们的压缩算法写进程序里也可以。
这笑容依然真实 2003-10-17
- 打赏
- 举报
关注中......
zhljsdly 2003-10-17
- 打赏
- 举报
多谢楼上的回答，现谢谢，马上结贴
tw_82820 2003-10-17
- 打赏
- 举报
关注
topmonkey 2003-10-17
- 打赏
- 举报
<script language="VBScript" runat="server">
''上面用SHELL对象启动程序
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run ("C:\Progra~1\WinRar\winrar.exe a d:\t\tt.rar d:\t\tt\*.*" ,1, true)
if IsSuccess = 0 Then
Response.write " 命令成功执行！"
else
Response.write " 命令执行失败！权限不够或者该程序无法在DOS状态下运行"
end if
</script>
d:\t\tt.rar 压缩形成的文件，d:\t\tt\*.* 要压缩的文件<br>
liujun999999 2003-10-17
- 打赏
- 举报
要实现客户端上传上来的word excel exe等文件不在ie中直接打开不一定要直接打开啊
可以通过下面二种办法来实现：
Web开发人员都有过这样的疑问，如何让一个文件，尤其是一个已知类型的文件，发送到客户端，直接提示让浏览者下载，而不是用与它喙亓某绦虼蚩Ｒ郧拔颐亲畛Ｓ玫陌旆ň褪前颜庋奈募拥搅唇由希庋梢匀娩勒咄ü慊魇蟊暧壹哪勘炅泶嫖聪略厮唇拥奈募５牵庋辛礁霾蛔愕牡胤剑?
一是：如果浏览器能够识别已下载文件的扩展名，则浏览器就会激活该扩展名所关联的程序来打开
所下载的文件。比如：在Windows平台上，如果用户点击的链接链接的是一个“.doc”文件的话，那么，浏览器就会启动Microsoft Word应用程序来打开它。
二是：如果采用链接的办法的话，任何能看到该链接的人都可以下载该文件，你虽然也可以对所下载的文件进行权限设置，但那样做也不是很方便的。有时候我们需要更为灵活和富有弹性的方式，下面的程序能够很方便地克服以上两方面的不足。
这种办法是可靠的，但你必须记住：没有授权的用户不能够通过在浏览器地址栏里输入文件的URL来取得该文件的下载权。所以，要下载的文件应该放到虚拟目录之外的一个目录里，比如：如果你的虚拟目录是C:\Mengxianhui\Tomcat4\Website\MyApp的话，那么，存放在该目录和该目录下的任何子目录下所有文件对因特网上的任何用户都是可见的。要直接下载一个文件，我们需要做两件事，第一件事是：设定响应的内容类为“application/octet-stream”，大小写无关。第二件事是：设置HTTP的响应头名字为：Content-Disposition，设定值为：attachment; filename = theFileName。这里的theFileName就是出现在文件下载对话框里的默认文件名，通常和所下载的文件名字相同，但也可以不同。下面，我们就平常最常用的JSP和ASP页面来举一个实际应用的例子。
TestFileDownload.JSP页面的例子：
<%
// 得到文件名字和路径
String filename = "MengxianhuiDocTest.doc";
String filepath = "D:\\";
// 设置响应头和下载保存的文件名
response.setContentType("APPLICATION/OCTET-STREAM");
response.setHeader("Content-Disposition",
"attachment; filename=\"" + filename + "\"");
// 打开指定文件的流信息
java.io.FileInputStream fileInputStream =
new java.io.FileInputStream(filepath + filename);
// 写出流信息
int i;
while ((i=fileInputStream.read()) != -1) {
out.write(i);
}
fileInputStream.close();
out.close();
%>
值得注意的是：在你要下载的文件内容里，除了文件的内容之外，不应该再附加有其它任何的字符，包括空格和回车换行符。我们有时在编写代码的时候，为了使代码清晰可读，往往会添加一些空格、制表符或者回车换行符，这样虽然看起来比较清晰，但有时可能会得不到正确的结果。比如：
<%@ page import="java.io.*"
%> <jsp:useBean id="MyBeanFromMengxianhui" scope="page"
class="com.Mengxianhui.DownloadBean" />
应该写成这样：
<%@ page import="java.io.*"
%><jsp:useBean id="MyBeanFromMengxianhui" scope="page"
class="com.Mengxianhui.DownloadBean" />
TestFileDownload.ASP页面的例子：
在ASP里，没有提供从文件读取文件流信息的方法，因此，为了得到文件的流信息，我们必须借助其他的工具，最简单的就是编写一个VB或C的DLL组件，让组件返回文件的流信息。下面是一个用VB编写的DLL的例子，工程名字为MengXHFileDownLoad，类模块的名字为BinReadFromFile，类方法readBinFromFile如下：
Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String
On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum
fl = FileLen(bfilename)
ReDim binbyte(fl)
Get #FileNum, , binbyte
Close #FileNum
readBinFromFile = binbyte
Exit Function
errHandler:
Exit Function
End Function
把上面的代码编译成MengXHFileDownLoad.DLL，然后注册即可使用。下面以直接下载一个When A Man Loves A Woman.mp3的MP3文件为例子，我们要编写的ASP脚本代码如下：
<%@ Language=VBScript %>
<%
Response.buffer = TRUE
Response.ContentType = "APPLICATION/OCTET-STREAM"
Response.AddHeader "Content-Disposition","attachment;filename=When A Man Loves A Woman.mp3"
Dim varStream, oMyObject
Set oMyObject = Server.CreateObject("MengXHFileDownLoad.BinReadFromFile")
varStream = oMyObject.readBinFromFile("E:\MengXianhui\Mp3\When A Man Loves A Woman.mp3")
Response.BinaryWrite(varStream)
Set oMyObject = Nothing
Response.End
%>
当我们运行上面的TestFileDownload.ASP文件时，浏览器会弹出一个文件下载的对话框，提示我们下载，而不是用默认的MP3播放器打开。
这种方法也可以把我们的ASP页面生成的HTML源代码保存成一个文件，下面的代码会提示你把ASP执行的结果保存成Test.htm文件。具体的方法是：
<%
Response.ContentType = "APPLICATION/OCTET-STREAM"
Response.AddHeader "Content-Disposition","attachment;filename=Test.htm"
Response.write "<div style=''background-color:navy;color:#FFFFFF''>测试</div>"
Response.write "<a href=''http://lucky.myrice.com''>;"
Response.write "<img src=''http://lucky.myrice.com/back.jpg''>;【孟宪会之精彩世界】</a>"
Response.End
%>
当我们的文件数目很少时，也可以直接在服务器端进行设置，让这些文件直接下载。具体做法是：在Internet服务管理器里，选“属性”项，然后选“HTTP Headers”标签页进行设置即可！！
可以通过下面二种办法来实现：
Web开发人员都有过这样的疑问，如何让一个文件，尤其是一个已知类型的文件，发送到客户端，直接提示让浏览者下载，而不是用与它喙亓某绦虼蚩Ｒ郧拔颐亲畛Ｓ玫陌旆ň褪前颜庋奈募拥搅唇由希庋梢匀娩勒咄ü慊魇蟊暧壹哪勘炅泶嫖聪略厮唇拥奈募５牵庋辛礁霾蛔愕牡胤剑?
一是：如果浏览器能够识别已下载文件的扩展名，则浏览器就会激活该扩展名所关联的程序来打开
所下载的文件。比如：在Windows平台上，如果用户点击的链接链接的是一个“.doc”文件的话，那么，浏览器就会启动Microsoft Word应用程序来打开它。
二是：如果采用链接的办法的话，任何能看到该链接的人都可以下载该文件，你虽然也可以对所下载的文件进行权限设置，但那样做也不是很方便的。有时候我们需要更为灵活和富有弹性的方式，下面的程序能够很方便地克服以上两方面的不足。
这种办法是可靠的，但你必须记住：没有授权的用户不能够通过在浏览器地址栏里输入文件的URL来取得该文件的下载权。所以，要下载的文件应该放到虚拟目录之外的一个目录里，比如：如果你的虚拟目录是C:\Mengxianhui\Tomcat4\Website\MyApp的话，那么，存放在该目录和该目录下的任何子目录下所有文件对因特网上的任何用户都是可见的。要直接下载一个文件，我们需要做两件事，第一件事是：设定响应的内容类为“application/octet-stream”，大小写无关。第二件事是：设置HTTP的响应头名字为：Content-Disposition，设定值为：attachment; filename = theFileName。这里的theFileName就是出现在文件下载对话框里的默认文件名，通常和所下载的文件名字相同，但也可以不同。下面，我们就平常最常用的JSP和ASP页面来举一个实际应用的例子。
TestFileDownload.JSP页面的例子：
<%
// 得到文件名字和路径
String filename = "MengxianhuiDocTest.doc";
String filepath = "D:\\";
// 设置响应头和下载保存的文件名
response.setContentType("APPLICATION/OCTET-STREAM");
response.setHeader("Content-Disposition",
"attachment; filename=\"" + filename + "\"");
// 打开指定文件的流信息
java.io.FileInputStream fileInputStream =
new java.io.FileInputStream(filepath + filename);
// 写出流信息
int i;
while ((i=fileInputStream.read()) != -1) {
out.write(i);
}
fileInputStream.close();
out.close();
%>
值得注意的是：在你要下载的文件内容里，除了文件的内容之外，不应该再附加有其它任何的字符，包括空格和回车换行符。我们有时在编写代码的时候，为了使代码清晰可读，往往会添加一些空格、制表符或者回车换行符，这样虽然看起来比较清晰，但有时可能会得不到正确的结果。比如：
<%@ page import="java.io.*"
%> <jsp:useBean id="MyBeanFromMengxianhui" scope="page"
class="com.Mengxianhui.DownloadBean" />
应该写成这样：
<%@ page import="java.io.*"
%><jsp:useBean id="MyBeanFromMengxianhui" scope="page"
class="com.Mengxianhui.DownloadBean" />
TestFileDownload.ASP页面的例子：
在ASP里，没有提供从文件读取文件流信息的方法，因此，为了得到文件的流信息，我们必须借助其他的工具，最简单的就是编写一个VB或C的DLL组件，让组件返回文件的流信息。下面是一个用VB编写的DLL的例子，工程名字为MengXHFileDownLoad，类模块的名字为BinReadFromFile，类方法readBinFromFile如下：
Function readBinFromFile(ByVal bfilename As String) As Variant
Dim fl As Long
Dim FileNum As Long
Dim binbyte() As Byte
Dim binfilestr As String
On Error GoTo errHandler
FileNum = FreeFile
Open bfilename For Binary As #FileNum
fl = FileLen(bfilename)
ReDim binbyte(fl)
Get #FileNum, , binbyte
Close #FileNum
readBinFromFile = binbyte
Exit Function
errHandler:
Exit Function
End Function
把上面的代码编译成MengXHFileDownLoad.DLL，然后注册即可使用。下面以直接下载一个When A Man Loves A Woman.mp3的MP3文件为例子，我们要编写的ASP脚本代码如下：
<%@ Language=VBScript %>
<%
Response.buffer = TRUE
Response.ContentType = "APPLICATION/OCTET-STREAM"
Response.AddHeader "Content-Disposition","attachment;filename=When A Man Loves A Woman.mp3"
Dim varStream, oMyObject
Set oMyObject = Server.CreateObject("MengXHFileDownLoad.BinReadFromFile")
varStream = oMyObject.readBinFromFile("E:\MengXianhui\Mp3\When A Man Loves A Woman.mp3")
Response.BinaryWrite(varStream)
Set oMyObject = Nothing
Response.End
%>
当我们运行上面的TestFileDownload.ASP文件时，浏览器会弹出一个文件下载的对话框，提示我们下载，而不是用默认的MP3播放器打开。
这种方法也可以把我们的ASP页面生成的HTML源代码保存成一个文件，下面的代码会提示你把ASP执行的结果保存成Test.htm文件。具体的方法是：
<%
Response.ContentType = "APPLICATION/OCTET-STREAM"
Response.AddHeader "Content-Disposition","attachment;filename=Test.htm"
Response.write "<div style=''background-color:navy;color:#FFFFFF''>测试</div>"
Response.write "<a href=''http://lucky.myrice.com''>;"
Response.write "<img src=''http://lucky.myrice.com/back.jpg''>;【孟宪会之精彩世界】</a>"
Response.End
%>
当我们的文件数目很少时，也可以直接在服务器端进行设置，让这些文件直接下载。具体做法是：在Internet服务管理器里，选“属性”项，然后选“HTTP Headers”标签页进行设置即可！！
zhljsdly 2003-10-17
- 打赏
- 举报
高手指路啊
