admin 管理员组

文章数量: 1184232

由于项目的要求,要实现如下功能:
把服务器里面的文件定期自动制作成光盘镜像文件(ISO),并提供下载

实现代码:

<%
dim f,toiso
f=Server.mappath("1.txt") ' 把文件1.txt加入镜像文件
d=Server.mappath("test") '把文件夹test加入镜像文件
toiso=Server.mappath("bh.iso")'输出镜像文件bh.iso
set wshell = server.CreateObject("WScript.Shell")
ers = wshell.run ("E:/Progra~1/UltraISO/UltraISO.exe -imax -l -f "&f&" -d "&d&" -volu TEST_CD -out "&toiso,1,false)
if ers=0 then
response.Write("制作成ISO文件成功！")
else
response.Write("制作ISO文件发生错误："&ers)
end if
set wshell=nothing
%>

所需插件:
安装:UltraISO,我用的是7.0的版本

提醒:不要频繁使用此功能,服务器容易瘫痪,建议用的时候再开一下此功能,如果发现服务器瘫痪,重新启动就可以解决问题

本文标签： 加入镜像 文件 系统

版权声明：本文标题：ASP进阶：高级技巧让你的光盘镜像ISO更具专业性 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1773365210a3561106.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。