Function ExtractCompressedFile(zipfilename,winrardir,storedir)
dim WShShell
Set WShShell = Server.CreateObject("WScript.Shell")
cmd="cmd /c " & winrardir & "\winrar.exe x " & storedir & "\" & zipfilename & " " & storedir
RetCode = WShShell.Run(cmd,1,true)
if RetCode = 0 Then
'解压缩完成后删除压缩文件
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile(storedir & "\" & zipfilename)
set fs=nothing
ExtractCompressedFile = true
else
ExtractCompressedFile = false
end if
set WShShell=nothing
End Function