ASP.NET实现FTP文件上载类

‘这个类允许你使用Visual Basic.NET对FTP网页执行直接链接。
‘这个类支持以下FTP命令：
‘-Upload 一个文件
‘-Download一个文件
‘-Create 一个目录
‘-Remove 一个目录
‘-改变目录
‘-Remove 一个文件
‘-Rename 一个文件
‘-Set 远程用户的用户名
‘-Set 远程用户的密码

Imports System
Imports System.Net
Imports System.IO
Imports System.Text
Imports System.Net.Sockets

‘FTP 类

Public Class clsFTP
#Region "Class Variable Declarations"
Private m_sRemoteHost, m_sRemotePath, m_sRemoteUser As String
Private m_sRemotePassword, m_sMess As String
Private m_iRemotePort, m_iBytes As Int32
Private m_objClientSocket As Socket
Private m_iRetValue As Int32
Private m_bLoggedIn As Boolean
Private m_sMes, m_sReply As String

‘设置用户来对FTP服务器读取和写入数据的数据包的大小
‘对下列具体大小

Public Const BLOCK_SIZE = 512
Private m_aBuffer(BLOCK_SIZE) As Byte
Private ASCII As Encoding = Encoding.ASCII
Public flag_bool As Boolean
‘普通变量定义
Private m_sMessageString As String
#End Region

#Region "Class Constructors"

‘Main类的构造器
Public Sub New()
　m_sRemoteHost = "microsoft"
　m_sRemotePath = "."
　m_sRemoteUser = "anonymous"
　m_sRemotePassword = ""
　m_sMessageString = ""
　m_iRemotePort = 21
　m_bLoggedIn = False
End Sub

‘参数化的构造器

Public Sub New(ByVal sRemoteHost As String, _
ByVal sRemotePath As String, _
ByVal sRemoteUser As String, _
ByVal sRemotePassword As String, _
ByVal iRemotePort As Int32)

　m_sRemoteHost = sRemoteHost
　m_sRemotePath = sRemotePath
　m_sRemoteUser = sRemoteUser
　m_sRemotePassword = sRemotePassword
　m_sMessageString = ""
　m_iRemotePort = 21
　m_bLoggedIn = False

End Sub

#End Region

#Region "Public Properties"

‘设置或得到你想链接的FTP服务器的名称

Public Property RemoteHostFTPServer() As String
　‘得到FTP服务器的名称
　Get
　　Return m_sRemoteHost
　End Get

‘设置FTP服务器的名称

　Set(ByVal Value As String)
　　m_sRemoteHost = Value
　End Set
End Property



‘设置或得到你想链接的FTP服务器的FTP端口

Public Property RemotePort() As Int32

‘得到FTP端口号

　Get
　　Return m_iRemotePort
　End Get

‘设置FTP端口数号

　Set(ByVal Value As Int32)
　　m_iRemotePort = Value
　End Set
End Property

‘设置或得到你想链接的FTP服务器的远程路径

Public Property RemotePath() As String

　‘得到远程路径
　Get
　　Return m_sRemotePath
　End Get
　‘设置远程路径
　Set(ByVal Value As String)
　　m_sRemotePath = Value
　End Set
End Property

‘设置你想链接的远程FTP服务器的密码

Public Property RemotePassword() As String
　Get
　　Return m_sRemotePassword
　End Get
　Set(ByVal Value As String)
　　m_sRemotePassword = Value
　End Set
End Property

‘设置或得到你想链接远程的FTP服务器的用户

Public Property RemoteUser() As String
　Get
　　Return m_sRemoteUser
　End Get

　Set(ByVal Value As String)
　　m_sRemoteUser = Value
　End Set
End Property

‘设置messagestring类

Public Property MessageString() As String
　Get
　　Return m_sMessageString
　End Get

　Set(ByVal Value As String)
　　m_sMessageString = Value
　End Set
End Property

#End Region
#Region "Public Subs and Functions"

‘从文件系统中返回一个文件列表。在string()函数中返回文件。

Public Function GetFileList(ByVal sMask As String) As String()
　Dim cSocket As Socket
　Dim bytes As Int32
　Dim seperator As Char = ControlChars.Lf
　Dim mess() As String

　m_sMes = ""
‘检查你是否登录到FTP服务器上
　If (Not (m_bLoggedIn)) Then
　　Login()
　End If

　cSocket = CreateDataSocket()
‘发送FTP命令

　SendCommand("NLST " & sMask)
　If (Not (m_iRetValue = 150 Or m_iRetValue = 125)) Then
　　MessageString = m_sReply
　　Throw New IOException(m_sReply.Substring(4))
　End If
　m_sMes = ""
　Do While (True)
　　m_aBuffer.Clear(m_aBuffer, 0, m_aBuffer.Length)
　　bytes = cSocket.Receive(m_aBuffer, m_aBuffer.Length, 0)
　　m_sMes += ASCII.GetString(m_aBuffer, 0, bytes)

　　If (bytes < m_aBuffer.Length) Then
　　　Exit Do
　　End If
　Loop

　mess = m_sMes.Split(seperator)
　cSocket.Close()
　ReadReply()

　If (m_iRetValue <> 226) Then
　　MessageString = m_sReply
　　Throw New IOException(m_sReply.Substring(4))
　End If

　Return mess
End Function

‘得到FTP服务器上的文件大小
Public Function GetFileSize(ByVal sFileName As String) As Long
　Dim size As Long

　If (Not (m_bLoggedIn)) Then
　　Login()
　End If

　‘发送一个FTP命令
　SendCommand("SIZE " & sFileName)
　size = 0

　If (m_iRetValue = 213) Then
　　size = Int64.Parse(m_sReply.Substring(4))
　Else
　　MessageString = m_sReply
　　Throw New IOException(m_sReply.Substring(4))
　End If

　Return size
End Function

‘登录FTP服务器

Public Function Login() As Boolean
　m_objClientSocket = _
　　New Socket(AddressFamily.InterNetwork, SocketType.Stream, ProtocolType.Tcp)
　Dim ep As New IPEndPoint(Dns.Resolve(m_sRemoteHost).AddressList(0), m_iRemotePort)

　Try
　　m_objClientSocket.Connect(ep)
　Catch ex As Exception
　　MessageString = m_sReply
　　Throw New IOException("Cannot connect to the remote server")
　End Try

　ReadReply()
　If (m_iRetValue <> 220) Then
　　CloseConnection()
　　MessageString = m_sReply
　　Throw New IOException(m_sReply.Substring(4))
　End If

　‘为了发送一个对服务器的用户登录ID，发送一个FTP命令

　SendCommand("USER " & m_sRemoteUser)

　If (Not (m_iRetValue = 331 Or m_iRetValue = 230)) Then
　　Cleanup()
　　MessageString = m_sReply
　　Throw New IOException(m_sReply.Substring(4))
　End If

　If (m_iRetValue <> 230) Then
　　‘为了发送一个对服务器的用户密码，发送一个FTP命令
　　SendCommand("PASS " & m_sRemotePassword)
　　If (Not (m_iRetValue = 230 Or m_iRetValue = 202)) Then
　　　Cleanup()
　　　MessageString = m_sReply
　　　Throw New IOException(m_sReply.Substring(4))
　　End If
　End If

　m_bLoggedIn = True
　‘为了改变映射的远程服务器的文件夹的目录，调用用户定义的ChangeDirectory函数
　ChangeDirectory(m_sRemotePath)

　‘返回最终结果
　Return m_bLoggedIn
End Function

‘如果模式值为真，对下载设置为二进制模式。否则，设置为ASCII模式

Public Sub SetBinaryMode(ByVal bMode As Boolean)
　If (bMode) Then
　　‘发送FTP命令，设置为二进制模式
　　‘(TYPE是一种用作说明请求类型的FTP命令.)
　　SendCommand("TYPE I")
　Else
　　‘发送FTP命令，设置ASCII模式。
　　‘(TYPE是一种用作说明请求类型的FTP命令。)
　　SendCommand("TYPE A")
　End If
　If (m_iRetValue <> 200) Then
　　MessageString = m_sReply
　　Throw New IOException(m_sReply.Substring(4))
　End If
End Sub

‘向配置好的本地目录下载一个文件。保持文件名一样。

Public Sub DownloadFile(ByVal sFileName As String)
　DownloadFile(sFileName, "", False)
End Sub

　‘向一个配置好的本地文件夹下载一个远程文件。保持文件名一样。 Public Sub DownloadFile(ByVal sFileName As String, _

ByVal bResume As Boolean)

DownloadFile(sFileName, "", bResume)

End Sub

‘对本地文件名下载一个远程文件。你必须包含一个路径。

‘本地文件名将会创建或者将会被重写，但是路径必须存在。

Public Sub DownloadFile(ByVal sFileName As String, _
　ByVal sLocalFileName As String)
　DownloadFile(sFileName, sLocalFileName, False)
End Sub

　‘对一个本地文件名下载一个远程文件。你必须包含一个路径。设置恢复标志。本地文件名将会被创建或被重写，但是本地路径必须存在。

Public Sub DownloadFile(ByVal sFileName As String, _
　ByVal sLocalFileName As String, _
　ByVal bResume As Boolean)

　Dim st As Stream
　Dim output As FileStream
　Dim cSocket As Socket
　Dim offset, npos As Long

[1] [2] [3]  下一页

Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
闵涛 E_mail:admin@mintao.net(欢迎提供学习资源)

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18