"用ASP实现" 自动解压RAR文件的功能_registeratlasstartupscript下载多文件时怎么自动压缩-CSDN博客

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <title>Ajax - Sample1</title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> //请一定要将此页的编码设为UTF-8,否则将出现乱码 <meta name="author" content="tonyhl[at]126.com" /> <meta http-equiv="pragma" content="no-cache"/> <script language="javascript" type="text/javascript" src="reg.js"></script> <link rel="stylesheet" href="css.css" type="text/css" media="all"/> <style type="text/css">  </style> </head> <body> <h2>Ajax应用实例: 注册模块</h2> <div id="Layer1"> <div id="msg"></div> </div>

然后就要上传一个执行RAR.EXE的程序 CMD.EXE 这个是windows里的程序(不必我在多说了吧)。程序RAR.EXE这个文件就可以了。最后就开始执行这些程序了。看一下下面的代码

<% dim ylj,ywj,Mlpath,Shell,rarcomm,RetCode,cmd,comm,fso Mlpath="E:/page/mian/"　　''存放RAR.EXE和CMD.EXE的路径 ylj=Server.mappath("mian")&"/"　''解压文件后所放的路径 ywj=Server.mappath("mian/apathy.rar")　''要解压的RAR文件 Set Shell = Server.CreateObject("Wscript.Shell") rarcomm= "E:/page/mian/cmd.exe /c "&Mlpath&"rar.exe x -t -o+ -p- " cmd=rarcomm&ywj&" "&ylj RetCode = Shell.Run(cmd,1, True) %>