青岛星网网站栏目里有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 压缩文件所在的目录名字
'======================================