超精华的asp代码大全第1/2页(12)

-jhrs 忽视zip文件里的文件的隐藏、只读、系统属性 
-Jhrs 只解压带有隐藏、只读、系统属性的文件 
-n 只解压叫新的文件，如果要解压的文件比已存在的新则替换。 
-o 不用通过yes来确定是否要替换文件 
-v 创建一个压缩文件的列表信息 
-@list 先创建一个包含所有要解压的文件的文件，然后按所包含的的文件名解压 
...............（其他具体看帮助文件） 
例如： 
创建所有文件到当前目录下 
wzunzip test.zip 
从test.zip中创建abc.txt到当前目录下 
wzunzip test.zip abc.txt 
创建在test.zip中的目录结构及文件到当前目录下 
wzunzip -d test.zip 
创建在test.zip中的目录结构及文件到c:\docs下 
wzunzip -d test.zip c:\docs从test.zip中创建包含在files.ist中的文件名的文件 
wzunzip test.zip @files.lst 
显示test.zip的文件列表内容 
wzunzip -v test.zip 
显示压缩文件中所有类型为txt的文件列表内容 
wzunzip -v test.zip *.txt 


有了以上的准备，那么我们现在来编写VBS来执行文件解压和压缩就易如反掌了： 
'test.vbs 
'********************* 
'上面用SHELL对象启动程序 
'********************* 
Set WshShell = Wscript.CreateObject("Wscript.Shell") 
WshShell.Run ("c:\wzzip.exe c:\test.zip c:\a.txt c:\b.txt") 


'test.asp 
'********************* 
'上面用SHELL对象启动程序 
'********************* 
<script language="VBScript.Encode" runat=server> 
'上面用SHELL对象启动程序 
Set WshShell = server.CreateObject("Wscript.Shell") 
IsSuccess = WshShell.Run (" c:\wzzip.exe c:\test.zip c:\a.txt c:\b.txt" ,1, true) 
if IsSuccess = 0 Then 
Response.write " 命令成功执行！" 
else 
Response.write " 命令执行失败！权限不够或者该程序无法在DOS状态下运行" 
end if 
</script> 
利用ASP远程注册DLL的方法 
-------------------------- 
<% Response.Buffer = True %> 
<% Server.ScriptTimeout = 500 
Dim frmFolderPath, frmFilePath 

frmFolderPath = Request.Form("frmFolderPath") 
frmFilePath = Request.Form("frmDllPath") 
frmMethod = Request.Form("frmMethod")