由于项目的要求,要实现如下功能:
把服务器里面的文件定期自动制作成光盘镜像文件(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的版本
提醒:不要频繁使用此功能,服务器容易瘫痪,建议用的时候再开一下此功能,如果发现服务器瘫痪,重新启动就可以解决问题