网络编程
位置:首页>> 网络编程>> Asp编程>> 如何在服务器端调用winzip命令行对文件压缩和解压(4)

如何在服务器端调用winzip命令行对文件压缩和解压(4)

  发布时间:2008-01-26 20:44:00 

标签:rar,压缩,服务器,zip,wsh

有了以上的准备,那么我们现在来编写VBS来执行文件解压和压缩就易如反掌了:


'test.vbs
'*********************
'上面用SHELL对象启动程序
'*********************
Set WshShell = Wscript.CreateObject("Wscript.Shell")
WshShell.Run ("c:\wzzip.exe c:\test.zip c:\a.txt c:\b.txt")


test.asp

'*********************
'上面用SHELL对象启动程序
'*********************
<script language="VBScript.Encode" runat=server>
'上面用SHELL对象启动程序
Set WshShell = server.CreateObject("Wscript.Shell")
IsSuccess = WshShell.Run (" c:\wzzip.exe c:\test.zip c:\a.txt c:\b.txt" ,1, true)
if IsSuccess = 0 Then 
Response.write " 命令成功执行!"
else 
Response.write " 命令执行失败!权限不够或者该程序无法在DOS状态下运行"
end if
</script>


怎么样很简单吧,如果我们再把文件上传和此结合起来,就会产生很多使用的功能。如:
在用上传组件上传多个文件后,可以对其多个文件打包,以提供给其他人zip文件下载或者上传一个zip文件后,可以利用程序对其解压,以提供给其他人单个文件下载很方便用户吧!我会在以后的文章里把这两种变化写出来!文中难免有疏漏的地方,请大家多多指正!

以上的例子均在win2000+iis5.0上测试过!

0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com