asp实现rar压缩和解压缩源代码

lt
br>

<
input type="hidden" name="where" value=<
%if where<
>
"" then response.Write where else response.Write "."% >
>

<
br>

<
input name="submit" type="submit" value=" 删 除 ">

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

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

<
/FORM>

<
br>

<
%
End Sub
Function ReportFileStatus(filespec) 

 
Dim fso
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
ReportFileStatus=false
 
If (fso.FileExists(filespec)) Then 
ReportFileStatus = true
 
Set fso =nothing
End Function
Function ReportFolderStatus(fldr) 

 
Dim fso
 
Set fso = CreateObject("Scripting.FileSystemObject")
 
ReportFolderStatus=false
 
If (fso.FolderExists(fldr)) Then 
ReportFolderStatus = true
 
Set fso =nothing
End Function
Sub login()
% >

<
form name="frm" method="post" action="?action=2" style="BORDER:
#d9d9d9 1px solid
background-color:
#f7f7f7">

 
<
p>
--------------------------------------<
strong>
登陆系统<
/strong>
---------------------------------------<
br>

 
 
 
<
br>

用户名：
<
input name="user" value="spubbs.com">

 
<
/p>

密 码：
 
 
 
<
input name="pwd" type="password" id="pwd">
 
 

 
 
 
<
br>

 
<
br>

 
<
input name="submit" type="submit" value=" 登陆 ">

<
/FORM>

<
%End sub% >

<
/td>

<
/tr>

<
tr>

 
<
td height="22" align="center" bgcolor="
#e8e8e8">
Powered By ：<
a href = "mailto:tqsir@hotmail.com">
阿言<
/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?p=1:12895551:3 alt=给阿言发即时消息QQ:12895551 align=absbottom>
<
/a>
 
 
Copyright &
copy
2003 - 2006 
<
a href="http://www.spubbs.com">
北国药苑BBS<
/a>
<
/td>

<
/tr>

<
/table>

<
/body>