用js在客户端自动从ftp下载文件，并写入页面。

zoutuo1986

浏览: 179217 次
性别:
来自: 长沙

最近访客更多访客>>

壹亻憔悴

552442857

zhfling

nihao005588

博主相关

博客

微博

相册

留言

关于我

文章分类

社区版块

存档分类

博客分类：

private
code

1、写bat文件；2、执行bat文件；3、读取数据文件

<%@ page language="java" contentType="text/html; charset=GB18030"
    pageEncoding="GB18030"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=GB18030">
<title>页面一</title>
</head>
<body>
<div id='desc'></div>
<FORM method="POST" action='../IndexServlet' name='abc' enctype="multipart/form-data" >
	<div style='display:none'><textarea id='file' name='file'></textarea></div>
	<input type='button' value='获取数据' onclick='getData(this)'/>
	<input id='submit' type='submit' value='提交数据' disabled="disabled"/>
</FORM>
<script>
var baseUrl="D:";
var batFileUrl = baseUrl+"\\myftp.bat";
var dataFileUrl = baseUrl+"\\test.txt";
var fso=null;
function getData(obj){
	obj.disabled="disabled";
	try{
		 if(window.ActiveXObject){
			 fso=new ActiveXObject("Scripting.FileSystemObject"); 
			 batFile = fso.CreateTextFile(batFileUrl,true);
			 batFile.WriteLine(baseUrl);
			 batFile.WriteLine("echo open 10.192.36.129>ftp.txt");
			 batFile.WriteLine("echo sxrisk>>ftp.txt");
			 batFile.WriteLine("echo 1qaz2wsx>>ftp.txt");
			 batFile.WriteLine("echo get /cccc/sxrisk/test.txt>>ftp.txt");
			 batFile.WriteLine("echo bye>>ftp.txt");
			 batFile.WriteLine("ftp -s:ftp.txt");
			 batFile.WriteLine("del ftp.txt");
			 batFile.Close();
			 document.getElementById('desc').innerHTML="创建本地bat文件成功";
			 WshShell = new ActiveXObject("WScript.Shell");
			 WshShell.Run("cmd /C call "+batFileUrl,2,false);//2:不显示cmd窗口
			 document.getElementById('desc').innerHTML+="<br/>执行bat文件,下载文件结束。";
			 //fso.DeleteFile(batFileUrl);
			 setTimeout("readData()",100);
		 }else{
			 alert("不支持window.ActiveXObject");
		 }
	}catch(e){
		alert(e);
	}
	obj.disabled="";
}
var count=0;
function readData(){
	var kk=null;
	try{
		 kk=fso.OpenTextFile(dataFileUrl);
	}catch(e){
		if(count<10){
			setTimeout("readData()",1000);
			document.getElementById('desc').innerHTML+="<br/>读取数据文件失败,1秒后继续";
			count++;
		}
		return;
	}
	var str='';
	while(!kk.atEndOfLine){
		str+=kk.readLine()+'   ';
	}
	kk.Close();
	fso.DeleteFile(dataFileUrl);
	document.getElementById('file').innerHTML=str;
	document.getElementById('desc').innerHTML+="<br/>读取数据文件成功";
	document.getElementById('submit').disabled='';
}
</script>
</body>
</html>

--结果

----ActiveXObject对象有很大几率创建不了，需要做的：

1、降低Internet 选项--安全--自定义级别，经测试IE8版本浏览器只要降低这一项即可，其他默认。

2、网上有说，cmd中执行命令"regsvr32 scrrun.dll"，可以处理"automation服务器不能创建对象"的问题。

3、在注册表中，给Scripting.FileSystemObject项添加权限的事情我也做了，右击"Scripting.FileSystemObject项",添加权限，

4、创建cmd文件，执行修复什么东西的脚本，不知道管不管用，我也试过。(来自:http://www.jb51.net/article/9772.htm)

5、请将以下语句复制到记事本中，另存为后缀为.cmd的文件，并运行。当然在命令行下一句句运行也没问题。 

echo 正在修复，这个过程可能需要几分钟，请稍候…… 
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%/System32/dacui.dll 
rundll32.exe advpack.dll /DelNodeRunDLL32 %systemroot%/Catroot/icatalog.mdb 
regsvr32 /s comcat.dll 
regsvr32 /s asctrls.ocx 
regsvr32 /s oleaut32.dll 
regsvr32 /s shdocvw.dll /I 
regsvr32 /s shdocvw.dll 
regsvr32 /s browseui.dll 
regsvr32 /s browseui.dll /I 
regsvr32 /s msrating.dll 
regsvr32 /s mlang.dll 
regsvr32 /s hlink.dll 
regsvr32 /s mshtml.dll 
regsvr32 /s mshtmled.dll 
regsvr32 /s urlmon.dll 
regsvr32 /s plugin.ocx 
regsvr32 /s sendmail.dll 
regsvr32 /s mshtml.dll /i 
regsvr32 /s scrobj.dll 
regsvr32 /s corpol.dll 
regsvr32 /s jscript.dll 
regsvr32 /s msxml.dll 
regsvr32 /s imgutil.dll 
regsvr32 /s cryptext.dll 
regsvr32 /s inseng.dll 
regsvr32 /s iesetup.dll /i 
regsvr32 /s cryptdlg.dll 
regsvr32 /s actxprxy.dll 
regsvr32 /s dispex.dll 
regsvr32 /s occache.dll 
regsvr32 /s iepeers.dll 
regsvr32 /s urlmon.dll /i 
regsvr32 /s cdfview.dll 
regsvr32 /s webcheck.dll 
regsvr32 /s mobsync.dll 
regsvr32 /s pngfilt.dll 
regsvr32 /s licmgr10.dll 
regsvr32 /s hhctrl.ocx 
regsvr32 /s inetcfg.dll 
regsvr32 /s trialoc.dll 
regsvr32 /s tdc.ocx 
regsvr32 /s MSR2C.DLL 
regsvr32 /s msident.dll 
regsvr32 /s msieftp.dll 
regsvr32 /s xmsconf.ocx 
regsvr32 /s ils.dll 
regsvr32 /s msoeacct.dll 
regsvr32 /s wab32.dll 
regsvr32 /s wabimp.dll 
regsvr32 /s wabfind.dll 
regsvr32 /s oemiglib.dll 
regsvr32 /s directdb.dll 
regsvr32 /s inetcomm.dll 
regsvr32 /s msoe.dll 
regsvr32 /s oeimport.dll 
regsvr32 /s msdxm.ocx 
regsvr32 /s dxmasf.dll 
regsvr32 /s laprxy.dll 
regsvr32 /s l3codecx.ax 
regsvr32 /s acelpdec.ax 
regsvr32 /s mpg4ds32.ax 
regsvr32 /s danim.dll 
regsvr32 /s Daxctle.ocx 
regsvr32 /s lmrt.dll 
regsvr32 /s datime.dll 
regsvr32 /s dxtrans.dll 
regsvr32 /s dxtmsft.dll 
regsvr32 /s wshom.ocx 
regsvr32 /s wshext.dll 
regsvr32 /s vbscript.dll 
regsvr32 /s scrrun.dll mstinit.exe /setup 
regsvr32 /s msnsspc.dll /SspcCreateSspiReg 
regsvr32 /s msapsspc.dll /SspcCreateSspiReg 
echo. 
echo. 
echo 修复成功！任意键退出！ 
pause>nul