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

程序加载，特殊文件夹（如系统文件夹）信息获取等功能。 

如果你的系统里支持ADO等COM部件，你同样可以使用， 
下面这个例子演示打开写字板查看文本文件，同时创建一个文本文件并写入一 
段话，你可以把他拷贝到写字板中，然后以.vbs为后缀存盘，之后双击他， 

'test.vbs 
'********************* 
'下面用SHELL对象启动程序 
'********************* 
Set WshShell = Wscript.CreateObject("Wscript.Shell") 
WshShell.Run ("notepad " & Wscript.ScriptFullName) 


'*********************************************** 
'用COM对象Scripting.FileSystemObject操作文本文件 
'*********************************************** 
Set fs = Wscript.CreateObject("Scripting.FileSystemObject") 
Set a = fs.CreateTextFile("c:\testfile.txt", True) 
a.WriteLine("这是一个测试。") 
a.Close 

也可以在asp等web编程语言中应用 
<script language="VBScript.Encode" runat=server> 
'上面用SHELL对象启动程序 
Set WshShell = server.CreateObject("Wscript.Shell") 
IsSuccess = WshShell.Run ("D:\winnt\system32\cmd.exe" ,1, true) 
if IsSuccess = 0 Then 
Response.write " 命令成功执行！" 
else 
Response.write " 命令执行失败！权限不够或者该程序无法在DOS状态下运行" 
end if 
</script> 
注： 
1.其中runat=server必须要有 
2.Set WshShell = Wscript.CreateObject("Wscript.Shell") 
要改为Set WshShell = server.CreateObject("Wscript.Shell")， 
3.参数1代表SW_SHOWNORMAL， 激活并显示一个窗口。若窗口是最小化或最大化，则恢复到其原来的大小和位置。 
4.TRUE代表返回执行的错误，False或者为指定代表脚本继续执行而不等待进程结束。 
5.调用WSH的内置对象了，可以象调用函数和过程一样。 
如call WshShell.Run ("D:\winnt\system32\cmd.exe" ,1, true) 

如果你对WSH感兴趣，想了解更多的话，请察看 
http://msdn.microsoft.com/library/default....onwshbasics.asp 
http://www.dev-club.com/club/bbs/showEssence.asp?id=11136 

现在我们言归正传来看看如何对文件进行压缩和解压！ 
大家都知道winzip对文件解压和压缩都易如反掌，但是如何通过程序和命令行对其调用呢？ 
当然winzip的作者已经开发出 
WinZip Command Line Support Add-On Version 1.0