'Launcher on top with shell object
SET WSHSHELL = Server.createObject ("wscript.shell")
IsSuccess = WshShell.Run ( "E: /wwwroot/TempProductPic/TempUpFile/wzzip.exe E: /wwwroot/TempProductPic/TempUpFile/TempUpFile.zip E: / wwwroot / TempProductPic / TempUpFile / 20043 /", 1, true)
IF Issuccess = 0 THEN
The 'response.write "command successfully!"
Call Downfile ("E: /wwwroot/tempproductpic/tempupfile/tempupfile.zip", "TempproductPic.zip")
Else
Response.write "Download File Failed or No Image is available for download !!!"
END IF
Sub Downfile (DLFILE, FileName) 'DLFile is the file name to download, filename is the file name for download.
Set fso1 = server.createObject ("scripting.filesystemObject")
IF fso1.fileexists (dlfile) THEN
Set S = Server.createObject ("AdoDb.Stream")
S.Mode = 3
S.TYPE = 1
S.Open
'S.loadfromfile (server.mappath (dlfile))
S.LoadFromFile (DLFile)
Response.addheader "Content-Disposition", "Attachment; FileName =" & FileName
Response.charset = "GB2312"
Response.contentType = "Application / Unknow"
Response.binaryWrite (S.READ)
Response.flush
S.Close
SET S = Nothing
Call Delfile ("E: / WWROOT/TempproductPic/tempupfile/tempupfile.zip")
Else
Response.write "There is no picture available for download !!"
END IF
SET FSO1 = Nothing
End Sub
Sub Delfile (FilePath)
SET FSO = Server.createObject ("scripting.filesystemObject")
'Filepath = server.mappath (DELRS (0) & DELRS (1))
IF fso.fileexists (filepath) THEN
Fso.Deletefile filepath, true 'If there is this file, delete
END IF
SET FSO = Nothing 'Clear FSO Object
End Sub
Set wshshell = Nothing
script>