ASP在线解压脚本

近日在作在线判题系统的题库设计部分,在导入导出题目的时候需要用到解压和压缩,实际操作中并不需要像其它写的一样需要拷贝cmd.exe文件到RAR文件目录下,直接调用即可,代码如下:

1
2
3
4
5
6
7
<%
filename="C:\\TEMPUPLOAD.zip"
commd="C:\\WinRAR\\RAR x -o+ " & filename & " " & "C:\\Unzip\\"
set WshShell = server.createobject("wscript.shell")
succ=WshShell.Run(commd,0,true)
set WshShell=nothing
%>