主要功能:
1。在网页上嵌入ocx控件,实现文件的下载和上传
方法:
1。FTP控件的制作--利用VB制作FTP控件
制作:运行VB,新建一个AtiveX的工程(如,InetFTP),引用Inet.ocx部件。
打包:利用VB自带的打包工具对已制作好的FTP控件进行打包
2。 在网页中引用FTP控件 ,代码附后,
问题: 运行ftp.execute("put c:/test/a.doc /fwbody/12345678.doc") 时出错
附:<HTML>
<HEAD>
<TITLE>InetFTP.CAB</TITLE>
</HEAD>
<BODY>
<OBJECT ID="UserControl1" WIDTH="" HEIGHT=""
CLASSID="CLSID:06005D40-E135-4A41-AC94-3B74B9E872DD"
CODEBASE="http://server/InetFTP.CAB#version=1,0,0,0">
</OBJECT><SCRIPT LANGUAGE="JavaScript">function down()
{
var wordapp,ftp,wdoc;
ftp=document.all('UserControl1');
ftp.username="user";
ftp.password="user";
ftp.RemoteHost ="192.168.0.222" ;
ftp.RemotePort = "21 ";
ftp.execute("put c:/test/a.doc /fwbody/12345678.doc")
//这一句执行命令将c:\test\a.doc上传到ftp服务器的fwbody目录下保存为12346578.doc}
</script>
</BODY>
</HTML>
1。在网页上嵌入ocx控件,实现文件的下载和上传
方法:
1。FTP控件的制作--利用VB制作FTP控件
制作:运行VB,新建一个AtiveX的工程(如,InetFTP),引用Inet.ocx部件。
打包:利用VB自带的打包工具对已制作好的FTP控件进行打包
2。 在网页中引用FTP控件 ,代码附后,
问题: 运行ftp.execute("put c:/test/a.doc /fwbody/12345678.doc") 时出错
附:<HTML>
<HEAD>
<TITLE>InetFTP.CAB</TITLE>
</HEAD>
<BODY>
<OBJECT ID="UserControl1" WIDTH="" HEIGHT=""
CLASSID="CLSID:06005D40-E135-4A41-AC94-3B74B9E872DD"
CODEBASE="http://server/InetFTP.CAB#version=1,0,0,0">
</OBJECT><SCRIPT LANGUAGE="JavaScript">function down()
{
var wordapp,ftp,wdoc;
ftp=document.all('UserControl1');
ftp.username="user";
ftp.password="user";
ftp.RemoteHost ="192.168.0.222" ;
ftp.RemotePort = "21 ";
ftp.execute("put c:/test/a.doc /fwbody/12345678.doc")
//这一句执行命令将c:\test\a.doc上传到ftp服务器的fwbody目录下保存为12346578.doc}
</script>
</BODY>
</HTML>
参考:
通过网页实现文件上传
http://tech.sina.com.cn/c/4084.html
参考:用INET 控件 实现文件上传的例子
Internet Transfer控件提供了Internet 上最常使用的两种协议 :HTTP 和FTP。使用HTTP 协议可以连接到WWW服务器上来下载文件;使 用FTP协议则可以登录到FTP 服务器。一般的FTP命令,例如CD、GET 都可以通过Execute 方法实现。
下面是一个设置INET控件属性的例子。
inet1.URL=ftp://username:password@hostname/document
inet1.Protocol=2-icFTP
inet1.RemoteHost=hostname
inet1.RemotePort=21
inet1.Username=username
inet1. Password=password
执行文件传输:
Inet1.Execute "ftp://username:password@hostname", _
"PUT" &local_filename & " UPLOAD1.TXT"
right1 = Inet1.StillExecuting
Do While right1
right1 = Inet1.StillExecuting
DoEvents
Loop
这样便实现了文件的上载。