<!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> 提供文件定位,另存为命名控制