日期:2014-05-17  浏览次数:21229 次

asp如何在线生成excel并加密
请教:以下2种方式都可以,目的是服务器上的excel文件必须加密。
  1、直接在线生成excel文件并加密,
  2、给服务器上已经生成的excel文件加密。
  若以上不行,excel在线压缩到rar,在线给rar文件加密的办法也行。
求解~~~分数可追加!

------解决方案--------------------
看这个
http://club.excelhome.net/thread-220350-1-1.html
------解决方案--------------------
先去提取winrar.exe程序放到网站里或者是c:\windows\system32

VB code
<%
s_path=server.mappath("./")&"\"
Set WshShell = Server.CreateObject("WScript.Shell")
IsSuccess = WshShell.Run ("winrar a -pABC "&s_path&"\abc.rar "&s_path&"\Book1.xls",1, False)
if IsSuccess = 0 Then
Response.write "成功压缩!"
else
Response.write "压缩失败!权限不够或者该程序无法运行"
end if
%>

------解决方案--------------------
如果觉得压缩路径太深可以省略路径:
WshShell.Run ("winrar a -pABC -ep "&s_path&"\abc.rar "&s_path&"\Book1.xls",1, False)
// -ep表示压缩文件时不会包含路径信息(压缩多个文件时注意不要同名哦)