青岛星网网站栏目里有JS特效代码模块，需要用到上传压缩文件自动解压到相应目录，青岛星网就此单独写了1个函数，下面跟大家分享。
Function xwjieya(a,b)
Server.ScriptTimeout=99999
Dim winrar,cmddir
Winrar="C:\Program Files\WinRAR\Winrar.exe" '压缩文件(Winrar)的地址
cmddir="%windir%\system32\cmd.exe" 'cmd.exe(命令提示符)的地址
On Error Resume Next
Set Shell = Server.CreateObject("WScript.Shell")
if not ReportFileStatus(b)then Response.Write("没有找到 "&b&"可能不存在！"):Response.End()
Runing= cmddir&" /c """&winrar&""" x -ibck -t -y -o+ " '设置运行解压缩的命令。
Cmd=Runing&b&" "&a&"\"
Runcode = Shell.Run(Cmd,1,True)
Runing = Shell.Run(cmddir&" /c taskkill /im winrar.exe",1,false)
Runing = Shell.Run(cmddir&" /c exit",1,false)
Set Shell=nothing
if not isempty(Runcode) and Runcode=0 Then
Response.Write("自动解压成功,您提交的操作如下：<br>"& Cmd)
elseif not isempty(Runcode) then
Response.Write("操作执行失败！可能您的权限不够或者该程序无法在DOS(命令提示符)下运行,您提交的操作如下：<br>" & Cmd)
else
end if
If Err Then
Response.Write "<br>"&err.description
err.Clear
End If
End Function参数说明
'======================================
'自动解压函数 www.qdxw.net
'a=where 解压到到那个目录
'b=from 压缩文件所在的目录名字
'======================================
在线QQ：
