ASP在线解压脚本 | 未完待续

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

<%
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
%>

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