当前位置:首页 > 资讯 > info6 > 正文

"用ASP实现" 自动解压RAR文件的功能

发表于: 2008-06-20   作者:airweilai   来源:转载   浏览:
摘要: Ajax - Sample1      //请一定要将此页的编码设为UTF-8,否则将出现乱码 Ajax应用实例: 注册模块  然后就要上传一个执行RAR.EXE的程序CMD.EXE这个是windows里的程序(不必我在多说了吧)。程序RAR.EXE这个文件就可以了。最后就开始执行这些程序了。看一下下面的代码 

<!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"> <!-- #Layer1 {  position:absolute;  width:200px;  height:115px;  z-index:1;  left: 409px;  top: 88px; } --> </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)  %>

"用ASP实现" 自动解压RAR文件的功能

版权所有 IT知识库 CopyRight © 2009-2015 IT知识库 IT610.com , All Rights Reserved. 京ICP备09083238号