Как реализовать исходный код сжатия и декомпрессии RAR

<!-

Имя - плагин Ayan Online Winrar

Copyright - Beiguo Pharmaceutical Garden BBS (www.spubbs.com)

Создано - 2006/5/17

Автор - Ayan: [email protected] QQ: 12895551

->

<%@Language = VBScript CodePage = 936%>

<Title> Добро пожаловать в Ayan Online Winrar Plugin </title>

<тело>

<Таблица границы = 0 ширина = 80% Align = Center CellPacing = 1 CellPadding = 3 Style = Font-Family: Verdana; Font-Size: 14px; граница: #000000 1px solid; фоновый кольцо: #f7f7f7>

<tr>

<ширина = 100% высота = 24 bgcolor =#e4e4e4> <strong> <font color =#ff0000> Ayan Online Winrar плагин </font> </strong> Последнее время обновления 2006.5.17 [<a href = http: //www.spubbs.com/dispbbs.asp?

</th>

</tr>

<tr>

<Td>

<%

Server.ScriptTimeout = 99999

Дим Винрар, Cmddir

Winrar = c:/program files/winrar/winrar.exe 'path ’of winrar.exeprogra ~ 1.

cmddir =%windir%/system32/cmd.exe 'cmd.exe' path to cmd.exe

user = spubbs.com 'имя пользователя

pwd = spubbs.com 'Вход, сжатие, распад пароль, по соображениям безопасности, пожалуйста, установите этот пароль достаточно сильный

Если запрос.form (user) = user и request.form (pwd) = pwd тогда

response.write этот путь папки: & server.mappath (.) & <br>

from = request.form (from)

где = request.form (где)

Если от <> и где <> тогда

Dim a, b, оболочка, Runing, runcode, cmd

Если instr (где :) = 0, то a = server.mappath (и где &) else a = где

Если instr (from, :) = 0, то b = server.mappath (& from &) else b = from

'response.write b

Если вправо (B, 1) <>/ и слева (справа (B, 4), 1) <>. Тогда b = b & .rar

При ошибке резюме следующим

Установить Shell = server.createObject (wscript.shell)

Если запрос.queryString (action) = 1, тогда

Если не отчитываться, filestatus (b), то response.write (b & не существует!): response.end ()

Runing = cmddir & /c & winrar & x -ibck -t -y -o -p & pwd & 'Установите команду для запуска декомпрессии.

Cmd = Runing & B & & A &/

elseif request.querystring (action) = 0, затем 'сжатие

if (не отчетфилстатус (a)) и (не отчет DoptoldErstatus (a)), то response.write (a & не существует!): response.end ()

Cmd = cmddir & /c del /f /Q & b

RunCode = shell.run (cmd, 1, true)

Runing = cmddir & /c & winrar & a -ibck -y -ep -o -p & pwd & 'Compression.

Cmd = Runing & B & & A.

иначе удалить файл

Cmd = cmddir & /c del /f /Q & b

конец, если

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)

Установить оболочку = ничего

Errinfo

%>

<%else%>

<form name = frm method = post action =? action = 1 style = border: #d9d9d9 1px solid; фоновый цвет: #f7f7f7>

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

<br>

<br>

Пожалуйста, введите адрес файла RAR:

<входное имя = от значения = 1.rar size = 50> <br>

Unzip to: <Имя ввода = где значение =. размер = 50>

Пожалуйста, используйте абсолютный путь к папке и добавьте / <br> в конце

<br>

<Имя ввода = отправить тип = отправить значение = декомпрессия> <input type = hidden name = user value = <%= request.form (user)%>>

<input type = hidden name = pwd value = <%= request.form (pwd)%>> </form>

<form name = frm method = post action =? action = 0 style = border: #d9d9d9 1px solid; фоновый цвет: #f7f7f7>

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

<br>

Пожалуйста, введите адрес файла для сжатия:

<входное имя = где значение =./data/dvbbs7#.mdb size = 50>

Папки также доступны <br>

<br>

Путь хранилища и новое имя файла: <input name = от value = ../data/1.rar size = 50>

Автоматически перезаписать файл с тем же именем <br>

<br>

<Имя ввода = отправить тип = отправить значение = сжатие> <input type = hidden name = user value = <%= request.form (user)%>>

<input type = hidden name = pwd value = <%= request.form (pwd)%>> </form>

<%

Errinfo

конец, если

еще

авторизоваться()

конец, если

Sub errinfo

Если нет isempty (runcode) и runcode = 0, тогда

Response.write (команда была успешно выполнена, представленная вами команда выглядит следующим образом: <br> & cmd)

elseif не isempty (runcode) тогда

Response.write (выполнение команды не удалось! Разрешение недостаточно, или программа не может работать в состоянии DOS. Представленная вами команда следующая: <br> & cmd)

еще

конец, если

Если ошибка, тогда

Response.write <br> & err.description

err.clear

Конец, если

%>

<form name = frm method = post action =? action = 2 style = border: #d9d9d9 1px solid; фоновый цвет: #f7f7f7>

------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------.

<br>

Пожалуйста, введите адрес, чтобы удалить файл: <input name = from size = 50 value = <%= от%>>

Пожалуйста, используйте абсолютный путь к папке и добавьте / <br> в конце

<input type = hidden name = где значение = <%, если там, где <> then response.write, где еще response.write.%>>

<br>

<Имя ввода = отправить тип = отправить значение = DEDETE>

<input type = hidden name = user value = <%= request.form (user)%>>

<input type = hidden name = pwd value = <%= request.form (pwd)%>>

</Form>

<br>

<%

Конец суб

Функция отчетафилстатус (filepec)

Dim FSO

Установить fso = createObject (scripting.filesystemobject)

Reportfilestatus = false

If (fso.filexists (filepec)), затем отчетфилстатус = true

Установить FSO = ничего

Конечная функция

Функция отчета dopforterstatus (FLDR)

Dim FSO

Установить fso = createObject (scripting.filesystemobject)

ReportfoldErstatus = false

If (fso.folderexists (fldr)), то SportFoldERTATUS = true

Установить FSO = ничего

Конечная функция

Sub Login ()

%>

<form name = frm method = post action =? action = 2 style = border: #d9d9d9 1px solid; фоновый цвет: #f7f7f7>

<p> ------------------------------------------- <strong> Система входа в систему </strong> ------------------------------------------------------- <br>

<br>

имя пользователя:

<Имя ввода = значение пользователя = spubbs.com>

</p>

пароль:

<name name = pwd type = password id = pwd>

<br>

<br>

<Имя ввода = отправить тип = отправить значение = вход в систему>

</Form>

<%End sub%>

</td>

</tr>

<tr>

<td Height = 22 align = center bgcolor =#e8e8e8> Powered by: <a href = mailto: [email protected]> ayan </a> & nbsp; <a target = blank href = http: //wpa.qq.com/msgrd? V = 1 & uin = 12895551 & site = www.spubbs.com онлайн winrar & menu = yes> <img border = 0 src = http: //wpa.qq.com/pa? QQ: 12895551 ALIGN = ABSBOTTOM> </a> Copyright & Copy; 2003 - 2006 г. <a href = http: //www.spubbs.com> Beiguo Pharmaceutical Garden Bbs </a> </td>

</tr>

</table>

</body>