|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
ASP脚本是采用明文(plaintext)方式来编写的。winrar|紧缩|winrar|紧缩服务器用WScript.Shell组件挪用winrar中的rar.exe,在代码的同目次要上传cmd.exe和rar.exe
用法:rar.asp?path=要紧缩的文件夹&rarname=紧缩后的文件名&includefolder=包含子文件夹就不会空
<%
用法http://xx/rar.asp?path=要紧缩的文件夹&rarname=紧缩后的文件名&includefolder=包插子文件夹就不会空,
onerrorresumenext
AppPath=server.mappath(".")&""寄存RAR.EXE和CMD.EXE的路径
zipfolder=server.mappath(request("path"))&""要紧缩的文件或文件夹
rarfile=request("rarname")
thispath=server.mappath(".")&""
ifzipfolder""andrarfile""then
SetShell=Server.CreateObject("WScript.Shell")
iferr.number0then
response.write"服务器不撑持"
response.end
endif
ifrequest("includefolder")""then
cmd=thispath&"cmd.exe/c"&thispath&"rar.exea-ep1-r-t-o+"&thispath&rarfile&""&zipfolder&""
else
cmd=thispath&"cmd.exe/c"&thispath&"rar.exea-ep1-t-o+"&thispath&rarfile&""&zipfolder&""
endif
response.writecmd
RetCode=Shell.Run(cmd,1,True)
response.write"<ahref="&rarfile&">"&rarfile&"</a>"
iferr.number0then
response.write"<ahref="&rarfile&">"&rarfile&"</a>"
else
response.writeerr.description
endif
else
response.write"没有参数"
endif
%>
</p>由于ASP提供的是一对多的服务,所以用户的一些特殊需求很难得到满足。 |
|