|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
我想详细了解ASP整站代码与PSP整站代码有什么优缺点,那个更好,更安全,更用容易维护,和管理。。。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
%>
优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|