winrar| Upload | compress | online <%
' First of all, reduce the browser security level
The ' Csdb folder contains cmd.exe Rar.exe files to extract (*.rar) after decompression, the storage directory is CSDB
On Error Resume Next
Unzip_path=server.mappath ("Csdb") & "\"
Set WshShell = server. CreateObject ("Wscript.Shell")
issuccess = Wshshell.run ("WinRAR x-r-o+" &unzip_path& "*.rar" &unzip_path& "", 1, False)
' WinRAR < command >-< switch 1>-< switch n> < compressed file > < file ...> <@ list file ...> < decompression path \>
' Command: X-Extract files from full path in compressed file
' Switch:-R-Together with subfolders
' Switch:-o+-overwrite files already in existence
' Switch:-o--do not overwrite files that already exist
If issuccess = 0 Then
Response.Write "Command executed successfully! "
Else
Response.Write Command Execution failed! Insufficient permissions or the program cannot run in DOS
End If
If Err.Number <> 0 Then
Response.Write "<p> Error Number:" & Err.Number
Response.Write "<p> Reason:" & Err.Description
Response.Write "<p> Source of Error:" & Err.Source
Response.Write
End If
%>
