有序图片顺手下载程序代码.hta-CFANZ编程社区

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>下载图片</title>
</head>
<mce:style><!--
input {
width:100%;
}
--></mce:style><style mce_bogus="1">input {
width:100%;
}</style>
<body>

网址(程序自动在前面加上http://并自动在后面加上/):<input id=url_0 value="www.00.com.cn" >
节1(程序自动在后面加上/):<input id=url_1 value="customers" >
节2(程序自动在后面加上/):<input id=url_2 value="c566" >
<font color=red>货号</font>节3(程序自动在后面加上/):<input  id=url_3 value="ABQX" >
节4(程序自动在后面加上/,货号也是自动增加并加上_):<input  id=url_4 value="viewLarger" >
图片名字1<input id=pic_1  value="main" >
图片名字2(程序自动在后面加上_)<input id=pic_2   value="variation" >
<font color=red>色码</font>图片名字3(程序自动在后面加上_)<input id=pic_3   value="001" >
图片名字4(程序自动在后面加上_)<input id=pic_4   value="view" >
图片名字5(程序自动在后面加上_)<input id=pic_5   value="1" >
图片名字6<input id=pic_6   value="538x538" >
图片类型(程序自动在前面加上.):<input id=pic_type   value="jpg">

图片另存为名字(程序自动在后面加上.jpg)<input id=save_as   value="" >
图片另存为文件夹(上级目录是程序目录,不存在此目录时,自动创建,注程序不检查错误,所以,不能包含特殊字符和留空)<input id=folder   value="img" >
图片全部路径显示(请点击下面的按钮,自动组合,右键用ie打开下面的地址):<input id=path type=button οnclick="join_path();" value="点我组织图片路径并显示在这给下载时用." οncοntextmenu="window.open(this.value);">
<input type=button value=开始下载保存(可以先修改上面文件名和文件夹后再点击) οnclick="down_pic();">

<mce:script type="text/javascript"><!--
function  join_path()

{
   ge("save_as").value = ge("url_3").value + "_" + ge("pic_3").value;
                    
   ge("path").value = "http://" + ge("url_0").value + "/"
                    + ge("url_1").value  + "/"
                    + ge("url_2").value  + "/"
                    + ge("url_3").value  + "/"
                    + ge("url_3").value + "_" + ge("url_4").value  + "/"
                    + ge("pic_1").value  + "_"
                    + ge("pic_2").value + "_"
                    + ge("pic_3").value + "_"
                    + ge("pic_4").value + "_"
                    + ge("pic_5").value + "_"
                    + ge("pic_6").value
                    + "." + ge("pic_type").value ;                
}

function ge(tid)
{
  return document.getElementById(tid);
}


var  fso, XML,ado,fp
XML = new ActiveXObject("Microsoft.XMLHTTP");
fso = new ActiveXObject("Scripting.FileSystemObject");
ado = new ActiveXObject("ADODB.Stream");


function  down_pic()
{
  XML.abort();
  if (ge("folder").value.length < 1) return alert("请输入保存目录");
  if (ge("save_as").value.length < 1) return alert("图片另存为名字不能留空");
  if (ge("path").value.indexOf("http://") < 0) return alert("请填写好图片路径信息后,点击组织图片路径按钮再点击下载.");
  
  if (!fso.folderExists(ge("folder").value))fso.CreateFolder(ge("folder").value);
  fp = fso.getFolder(ge("folder").value) + "/" + ge("save_as").value;
  if (fso.fileExists(fp+".jpg"))fp = fp + "_" + (new Date()).getTime();
  fp += ".jpg";
  XML.onreadystatechange=stateChange;
  XML.open("GET", ge("path").value, false);
  XML.send();
}

function stateChange()
{
  if (XML.readyState == 4)
  {// 4 = "loaded"
  
    if (XML.status == 200)
    {// 200 = OK      
        ado.Type = 1;//1
        ado.Mode = 3;
        ado.Open(); 
        ado.Position=0;
        ado.Write(XML.responseBody);
        ado.SaveToFile(fp , 1) ;  
        ado.SetEOS();
        ado.Close();
        alert("保存完成");
    }else
     {     
      alert("下载出错");       
     }     
  }
}
// --></mce:script>
</body>
</html>
提供文件定位,另存为命名控制