文件上傳與下載軟體

① 上傳與下載有什麼區別它們實現的應用軟體分別有哪些

上傳與下載恰恰是兩個相反的操作方法。上傳是將電腦中的文件、數據、圖片、音樂、視頻上傳到指定的網站、信箱、博客、微薄等網上的地址；下載是將網上的文件、數據、圖片、音樂、視頻等下載到自己的電腦硬碟。由於上傳和下載有專門的程序比如FlashFXP等。有的網路硬碟或網站有自己專用的下載和上傳工具。像115網盤、DBank 數據銀行等，下載工具比較多，像IE、迅雷、快車等。

② 有沒有不限速的網盤上傳下載軟體，支持上傳大文件的

沒有的，網盤公司也是要花錢去租網線和存儲空間，不可能一直倒貼錢在上面，只會有2種情況要麼倒閉要麼通過會員收取去補支出的費用。

③ 百度知道的文件上傳和下載功能怎樣使用

第一步：登錄
網路的用戶可以直接登錄網路文庫，如果您還沒有網路id，先注冊一個。
請注意：被封禁用戶將無上傳文檔和下載文檔的許可權。
--------------------------------------------------------------------------------
第二步：點擊「分享我的文檔」按鈕
在首頁和詳細文檔頁等頁面，有一個橘黃色的按鈕，「分享我的文檔」，點擊後進入文檔上傳頁面。整個文檔上傳操作簡單快捷，主要包括兩個部分：提交文檔附件；填寫文檔簡介。
--------------------------------------------------------------------------------
第三步：上傳文檔一——提交文檔附件
A： 點擊上傳文檔頁面的「瀏覽」按鈕上傳文檔
請從自己本地電腦上上傳附件。
附件上傳完成後，點擊「開始上傳」按鈕，您提交的附件會進行自動上傳。
B： 需要注意的是，目前文檔支持的類型包括：
.doc/.docx；.ppt/.pptx/.pps；.xls/.xlsx；.pot；.pps；.vsd；.rtf
.wps；.et；.dps.pdf.txtC： 為了保證用戶的上傳速度，我們允許上傳大小小於 10M 的文檔。
若您的文檔大小超過10M。我們建議您對文檔進行分拆，例如將一份word文檔中的內容，分拆為上下兩部分進行上傳。
--------------------------------------------------------------------------------
第四步：上傳文檔——填寫文檔簡介
A： 文檔標題默認為您上傳的附件的名稱。您也可以進行修改。文檔標題不能為空，最長可以輸入50個漢字。
B： 對文檔進行簡要的介紹，能夠方便其他用戶快速了解您文檔中所包含的主要內容。
文檔介紹不能為空，最長可以輸入300個漢字。
C： 每一份文檔都有所屬的正確分類，我們建議您為自己的文檔選擇合適的分類，這能夠讓您的文檔得到更多的瀏覽和下載。
D： 您可以在上傳時，選擇您的文檔被下載時對方所需付出的財富值，也即文檔的售價。
我們建議您將售價設定為免費，方便文檔的快速分享，同時也會獲得系統的財富值獎勵。
知道財富值和網路文庫財富值不能通用、
如果你的文庫財富值足夠還是不能下載的話，
1.IE瀏覽器：菜單欄——工具——管理載入項——「顯示：IE中當前載入的載入項」下，在「已啟用」項下，找到「迅雷下載支持」，將其禁用，確定，重啟IE瀏覽器。
2. 360瀏覽器：菜單欄——工具——下載器——（右下方）設置——（在「常規」欄下）將「默認的下載工具」後的向下的小箭頭點開，在下拉列表中，選「用IE下載」，確定。
或者這樣【不要用迅雷下載，關閉迅雷監視，用IE流覽器進入網路文庫，登陸後，點擊文檔下邊的「下載此文檔」就可以下載了
如果你的IE默......餘下全文>>

④ 有什麼好用的手機傳輸軟體傳文件比較快的

1、AirDroid：文件傳輸與管理

使用平台：全平台（安卓&iOS、移動端&PC 端）。

傳輸屬性：實時傳輸，不限文件大小，平均速度 3-5m/s。

AirDroid 是一款老牌跨平台的無線傳輸管理軟體，不需安裝軟體，不需數據線，只需在手機上安裝 AirDroid App，在 PC 端僅用網頁即可實現對移動端的文件傳輸與管理。

2、Send Anywhere：全平台文件共享

使用平台：全平台（安卓&iOS、移動端&PC 端）。

傳輸屬性：有限期 10 分鍾至 48 小時，單次最高 300G，傳輸速度 1-3m/s。

Send Anywhere，正如它的名字，是一款專注於文件分享的軟體。它的傳輸方式非常多樣，包括密鑰、二維碼、鏈接、設備四大方式。Send Anywhere 的分享文件操作也很簡單，不需要注冊登錄。

3、Cute Http File Server：區域網在線網盤

使用平台：PC 端（Windows，Mac 和 Linux），移動端支持下載文件。

傳輸屬性：服務開啟後文件實時顯示，大小無限制，速度無限制。

這款軟體下載後無需安裝，雙擊點開即可使用。在同一網路下的設備都可以通過生成的網頁，直接訪問該文件夾，並且支持預覽大部分常見格式的文件，包括視頻、音頻、圖片和 TXT 文檔等等。

在網頁中，可以重命名、上傳及刪除文件，修改與本地同步。同樣，在本地修改後，網頁也可以同步。如果擔心避免被他人誤操作，可以在軟體內建立賬戶，進行許可權的管理。

4、Snapdrop：即點即用傳輸工具

使用平台：網頁版，不限設備。

傳輸屬性：實時分享，文件大小無限制，速度無限制。

Send Anywhere 可以直接使用網頁版，大多數都需要安裝應用。如果需要臨時在第三方設備使用，再進行一次下載安裝的操作會略顯繁瑣。

而 Snapdrop 就非常簡單了，只需在同一 WIFI 下進入網頁，它便會自動掃描周邊的設備，點擊設備圖標，選中文件即可開始傳輸。

如果遇到分享文件無響應的情況，可以嘗試更換瀏覽器，比如：谷歌、Edge 及手機內置瀏覽器，都是可以的。

沒有廣告、無需注冊、不限設備、即點即用，這樣一款僅需網頁就能高效進行文件傳輸的輕量級工具，一定要加入你的收藏夾！

5、文叔叔：不限速多功能網盤

使用平台：網頁版，不限設備。

傳輸屬性：最長永不過期，單次文件 5G 上限，下載速度無限制。

文叔叔它是一款既能長期存儲，又相對限制最少的網盤工具。如果使用文叔叔就完全不用擔心，在各大網盤都在限速的時候，文叔叔反其道而行。

開發者承諾上傳及下載永不限速，在實際測試過程中，3G 大小的文件上傳僅需 1 分鍾，下載也只花費 5 分鍾左右

⑤ 上傳和下載是什麼意思怎樣上傳和下載文件

上傳就是把本地的文件放到網路伺服器上
下載相反，是把網路伺服器上的文件復制回來
下載文件需要別人提供存放在網路伺服器上的文件才行
下載還分伺服器類和P2P類，如BT就算是P2P的，他下載的文件不在伺服器上，而是在別的網路用戶機子上
上傳則需要網路空間，用WEB或FTP的方式將文件從本地傳到網路空間上

⑥ 手機要上傳wps文件,要下載什麼軟體

WPS即可。
手機上傳WPS文件的方法與步驟：
首先打開WPS，打開後點擊左上角進行登陸。
登錄自己的賬號後，再點擊底部的"+"。
點擊搜索按鈕後，再點擊右側的【上傳文件】。
進入上傳文件頁面後，選擇文件，並點擊【已選擇】。
接著再選擇上傳位置，選擇好位置後，點擊【上傳】即可。
WPS Office是由北京金山辦公軟體股份有限公司自主研發的一款辦公軟體套裝，可以實現辦公軟體最常用的文字、表格、演示，PDF閱讀等多種功能。具有內存佔用低、運行速度快、雲功能多、強大插件平台支持、免費提供在線存儲空間及文檔模板的優點。
支持閱讀和輸出PDF（.pdf）文件、具有全面兼容微軟Office97-2010格式（doc/docx/xls/xlsx/ppt/pptx等）獨特優勢。覆蓋Windows、Linux、Android、iOS等多個平台。WPS Office支持桌面和移動辦公。且WPS移動版通過Google Play平台，已覆蓋超50多個國家和地區。

⑦ 在一個區域網網內做ftp伺服器來實現文件上傳和下載，用什麼好

軟體用Xlight FTP server就可以的。我這邊就用的這個，網上這個軟體很多的，配置也非常簡單。

⑧ 絕對高分求客戶端向伺服器上傳與下載文件的程序

＝＝＝＝＝＝＝＝＝＝上傳部分＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

一 WEB部分
1 首先把WEB頁獲得本地要上傳的文件名
2 WEB通過腳本把本地文件名(絕對路徑)給客戶端組件
3 WEB腳本控制組件開始傳送數據
4 最後判斷是否傳輸成功

二 組件部分
1 建立INTERNET連接
2 連接FTP伺服器
3 獲得本地文件名(絕對路徑)
4 返回遠程即將保存的文件名
5 傳送數據
6 判斷是否傳輸成功,返回狀態

WEB頁獲取本地文件

組件返回遠程文件名

組件傳送數據

返回

本例在VB6.0 +WIN2000+ IIS5.0 + SERV-U 5.0 下調試成功

VB部分
一、建立一個ActiveX DLL工程
二、更改工程名FtpConn
三、更改類名：clsPutFile
四、加入一個空模塊到工程中，此模塊主要對需要使用的函數進行聲明，在此不多做解釋，代碼如下：
Option Explicit

Declare Function GetProcessHeap Lib "kernel32" () As Long
Declare Function HeapAlloc Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, ByVal dwBytes As Long) As Long
Declare Function HeapFree Lib "kernel32" (ByVal hHeap As Long, ByVal dwFlags As Long, lpMem As Any) As Long
Public Const HEAP_ZERO_MEMORY = &H8
Public Const HEAP_GENERATE_EXCEPTIONS = &H4

Declare Sub CopyMemory1 Lib "kernel32" Alias "RtlMoveMemory" ( _
hpvDest As Any, ByVal hpvSource As Long, ByVal cbCopy As Long)
Declare Sub CopyMemory2 Lib "kernel32" Alias "RtlMoveMemory" ( _
hpvDest As Long, hpvSource As Any, ByVal cbCopy As Long)

Public Const MAX_PATH = 260
Public Const NO_ERROR = 0
Public Const FILE_ATTRIBUTE_READONLY = &H1
Public Const FILE_ATTRIBUTE_HIDDEN = &H2
Public Const FILE_ATTRIBUTE_SYSTEM = &H4
Public Const FILE_ATTRIBUTE_DIRECTORY = &H10
Public Const FILE_ATTRIBUTE_ARCHIVE = &H20
Public Const FILE_ATTRIBUTE_NORMAL = &H80
Public Const FILE_ATTRIBUTE_TEMPORARY = &H100
Public Const FILE_ATTRIBUTE_COMPRESSED = &H800
Public Const FILE_ATTRIBUTE_OFFLINE = &H1000

Type FILETIME
dwLowDateTime As Long
dwHighDateTime As Long
End Type

Type WIN32_FIND_DATA
dwFileAttributes As Long
ftCreationTime As FILETIME
ftLastAccessTime As FILETIME
ftLastWriteTime As FILETIME
nFileSizeHigh As Long
nFileSizeLow As Long
dwReserved0 As Long
dwReserved1 As Long
cFileName As String * MAX_PATH
cAlternate As String * 14
End Type

Public Const ERROR_NO_MORE_FILES = 18

Public Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" _
(ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long

Public Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" _
(ByVal hFtpSession As Long, ByVal lpszSearchFile As String, _
lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long

Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" _
(ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _
ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Public Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, _
ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean

Public Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" _
(ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
' Initializes an application's use of the Win32 Internet functions
Public Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" _
(ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal lFlags As Long) As Long

' User agent constant.
Public Const scUserAgent = "vb wininet"

' Use registry access settings.
Public Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Public Const INTERNET_OPEN_TYPE_DIRECT = 1
Public Const INTERNET_OPEN_TYPE_PROXY = 3
Public Const INTERNET_INVALID_PORT_NUMBER = 0

Public Const FTP_TRANSFER_TYPE_ASCII = &H1
Public Const FTP_TRANSFER_TYPE_BINARY = &H1
Public Const INTERNET_FLAG_PASSIVE = &H8000000

' Opens a HTTP session for a given site.
Public Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" _
(ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, _
ByVal sUsername As String, ByVal sPassword As String, ByVal lService As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long

Public Const ERROR_INTERNET_EXTENDED_ERROR = 12003
Public Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" ( _
lpdwError As Long, _
ByVal lpszBuffer As String, _
lpdwBufferLength As Long) As Boolean

' Number of the TCP/IP port on the server to connect to.
Public Const INTERNET_DEFAULT_FTP_PORT = 21
Public Const INTERNET_DEFAULT_GOPHER_PORT = 70
Public Const INTERNET_DEFAULT_HTTP_PORT = 80
Public Const INTERNET_DEFAULT_HTTPS_PORT = 443
Public Const INTERNET_DEFAULT_SOCKS_PORT = 1080

Public Const INTERNET_OPTION_CONNECT_TIMEOUT = 2
Public Const INTERNET_OPTION_RECEIVE_TIMEOUT = 6
Public Const INTERNET_OPTION_SEND_TIMEOUT = 5

Public Const INTERNET_OPTION_USERNAME = 28
Public Const INTERNET_OPTION_PASSWORD = 29
Public Const INTERNET_OPTION_PROXY_USERNAME = 43
Public Const INTERNET_OPTION_PROXY_PASSWORD = 44

' Type of service to access.
Public Const INTERNET_SERVICE_FTP = 1
Public Const INTERNET_SERVICE_GOPHER = 2
Public Const INTERNET_SERVICE_HTTP = 3

' Opens an HTTP request handle.
Public Declare Function HttpOpenRequest Lib "wininet.dll" Alias "HttpOpenRequestA" _
(ByVal hHttpSession As Long, ByVal sVerb As String, ByVal sObjectName As String, ByVal sVersion As String, _
ByVal sReferer As String, ByVal something As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long

' Brings the data across the wire even if it locally cached.
Public Const INTERNET_FLAG_RELOAD = &H80000000
Public Const INTERNET_FLAG_KEEP_CONNECTION = &H400000
Public Const INTERNET_FLAG_MULTIPART = &H200000

Public Const GENERIC_READ = &H80000000
Public Const GENERIC_WRITE = &H40000000

' Sends the specified request to the HTTP server.
Public Declare Function HttpSendRequest Lib "wininet.dll" Alias "HttpSendRequestA" (ByVal _
hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, ByVal sOptional As _
String, ByVal lOptionalLength As Long) As Integer

' Queries for information about an HTTP request.
Public Declare Function HttpQueryInfo Lib "wininet.dll" Alias "HttpQueryInfoA" _
(ByVal hHttpRequest As Long, ByVal lInfoLevel As Long, ByRef sBuffer As Any, _
ByRef lBufferLength As Long, ByRef lIndex As Long) As Integer

' The possible values for the lInfoLevel parameter include:
Public Const HTTP_QUERY_CONTENT_TYPE = 1
Public Const HTTP_QUERY_CONTENT_LENGTH = 5
Public Const HTTP_QUERY_EXPIRES = 10
Public Const HTTP_QUERY_LAST_MODIFIED = 11
Public Const HTTP_QUERY_PRAGMA = 17
Public Const HTTP_QUERY_VERSION = 18
Public Const HTTP_QUERY_STATUS_CODE = 19
Public Const HTTP_QUERY_STATUS_TEXT = 20
Public Const HTTP_QUERY_RAW_HEADERS = 21
Public Const HTTP_QUERY_RAW_HEADERS_CRLF = 22
Public Const HTTP_QUERY_FORWARDED = 30
Public Const HTTP_QUERY_SERVER = 37
Public Const HTTP_QUERY_USER_AGENT = 39
Public Const HTTP_QUERY_SET_COOKIE = 43
Public Const HTTP_QUERY_REQUEST_METHOD = 45
Public Const HTTP_STATUS_DENIED = 401
Public Const HTTP_STATUS_PROXY_AUTH_REQ = 407

' Add this flag to the about flags to get request header.
Public Const HTTP_QUERY_FLAG_REQUEST_HEADERS = &H80000000
Public Const HTTP_QUERY_FLAG_NUMBER = &H20000000
' Reads data from a handle opened by the HttpOpenRequest function.
Public Declare Function InternetReadFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal sBuffer As String, ByVal lNumBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Public Declare Function InternetWriteFile Lib "wininet.dll" _
(ByVal hFile As Long, ByVal sBuffer As String, _
ByVal lNumberOfBytesToRead As Long, _
lNumberOfBytesRead As Long) As Integer

Public Declare Function FtpOpenFile Lib "wininet.dll" Alias _
"FtpOpenFileA" (ByVal hFtpSession As Long, _
ByVal sFileName As String, ByVal lAccess As Long, _
ByVal lFlags As Long, ByVal lContext As Long) As Long
Public Declare Function FtpDeleteFile Lib "wininet.dll" _
Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, _
ByVal lpszFileName As String) As Boolean
Public Declare Function InternetSetOption Lib "wininet.dll" Alias "InternetSetOptionA" _
(ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByVal lBufferLength As Long) As Integer
Public Declare Function InternetSetOptionStr Lib "wininet.dll" Alias "InternetSetOptionA" _
(ByVal hInternet As Long, ByVal lOption As Long, ByVal sBuffer As String, ByVal lBufferLength As Long) As Integer

' Closes a single Internet handle or a subtree of Internet handles.
Public Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer

' Queries an Internet option on the specified handle
Public Declare Function InternetQueryOption Lib "wininet.dll" Alias "InternetQueryOptionA" _
(ByVal hInternet As Long, ByVal lOption As Long, ByRef sBuffer As Any, ByRef lBufferLength As Long) As Integer

' Returns the version number of Wininet.dll.
Public Const INTERNET_OPTION_VERSION = 40

' Contains the version number of the DLL that contains the Windows Internet
' functions (Wininet.dll). This structure is used when passing the
' INTERNET_OPTION_VERSION flag to the InternetQueryOption function.
Public Type tWinInetDLLVersion
lMajorVersion As Long
lMinorVersion As Long
End Type

' Adds one or more HTTP request headers to the HTTP request handle.
Public Declare Function HttpAddRequestHeaders Lib "wininet.dll" Alias "HttpAddRequestHeadersA" _
(ByVal hHttpRequest As Long, ByVal sHeaders As String, ByVal lHeadersLength As Long, _
ByVal lModifiers As Long) As Integer

' Flags to modify the semantics of this function. Can be a combination of these values:

' Adds the header only if it does not already exist; otherwise, an error is returned.
Public Const HTTP_ADDREQ_FLAG_ADD_IF_NEW = &H10000000

' Adds the header if it does not exist. Used with REPLACE.
Public Const HTTP_ADDREQ_FLAG_ADD = &H20000000

' Replaces or removes a header. If the header value is empty and the header is found,
' it is removed. If not empty, the header value is replaced
Public Const HTTP_ADDREQ_FLAG_REPLACE = &H80000000

五、輸入類代碼，代碼如下：

Option Explicit
Dim bActiveSession As Boolean
Dim hOpen As Long
Dim hConnection As Long
Dim scUserAgent As String
Dim strServer As String
Dim strUser As String
Dim strPassword As String
Dim nFlag As Long
Dim bRet As Boolean
Dim szFileLocal As String
Dim szFileRemote As String
Dim dwType As Integer

Public Function PUTFILE() As Boolean
On Error Resume Next
hOpen = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
hConnection = InternetConnect(hOpen, strServer, INTERNET_INVALID_PORT_NUMBER, strUser, strPassword, INTERNET_SERVICE_FTP, nFlag, 0)
bRet = FtpPutFile(hConnection, szFileLocal, szFileRemote, _
dwType, 0)
Call CloseConn
PUTFILE = bRet
End Function

Sub CloseConn()
If hConnection <> 0 Then InternetCloseHandle hConnection
hConnection = 0
End Sub

Function getRemoteName(filename)
Dim arrName() As String
arrName = Split(filename, ".")
Randomize
getRemoteName = Date & CInt(Rnd * 1000) & "." & arrName(UBound(arrName))
End Function

Private Sub Class_Initialize()
scUserAgent = "My FTP"
strServer = "www.XXX.cn"
strUser = "Username"
strPassword = "Password"
nFlag = INTERNET_FLAG_PASSIVE
szFileLocal = "DefultLocalFileName"
szFileRemote = "DefultRemoteFileName"
dwType = 1
End Sub

Public Property Get connServer() As Variant
connServer = strServer
End Property

Public Property Let connServer(ByVal vNewValue As Variant)
strServer = vNewValue
End Property

Public Property Get connUser() As Variant
connUser = strUser
End Property

Public Property Let connUser(ByVal vNewValue As Variant)
strUser = vNewValue
End Property

Public Property Get connPassword() As Variant
connPassword = strPassword
End Property

Public Property Let connPassword(ByVal vNewValue As Variant)
strPassword = vNewValue
End Property

Public Property Let LocalFileName(ByVal vNewValue As Variant)
szFileLocal = vNewValue
szFileRemote = getRemoteName(vNewValue)
End Property

Public Property Get RemoteFileName() As Variant
RemoteFileName = szFileRemote
End Property

六、生成DLL
七、使用VB6的打包工具打包成「Internet ActiveX 安裝包」,這是，VB打包後，還會給一個例子的HTML文件
八、建立HTML文件
<HTML>
<HEAD>
<TITLE>FtpConn.CAB</TITLE>
</HEAD>
<BODY>
<OBJECT ID="clsPutFile"
CLASSID="CLSID:D9BACC8F-0A99-46DA-ADA3-F1C25A48AA78"
CODEBASE="FtpConn.CAB#version=1,0,0,0">
</OBJECT>
<INPUT type="file" name="FileName"><button onclick="go()">GO~!</button>
<SCRIPT LANGUAGE="JavaScript">
<!-- by Newrocky 2004-12-7 QQ:1936234
function go()
{
if (FileName.value!='')
{
clsPutFile.LocalFileName=FileName.value;
alert(clsPutFile.RemoteFileName);//查看遠程文件名
if (clsPutFile.PutFile()) //開始傳送文件，如果返回true則成功，反之失敗
{
alert('上傳文件成功!');
}
else
{
alert('上傳文件失敗!')
}
}
else
{
alert('請選擇您要上傳的文件');
}
}
//-->
</SCRIPT>
</BODY>
</HTML>

ok~!

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝下載部分＝＝＝＝＝＝＝＝＝＝＝＝＝
首先，聲明一些變數
Dim strCommand As String

Dim strWebPage As String

為了動態設置Winsock控制項的一些屬性，在「開始」按鈕的Click事件加入以下代碼。

Winsock1.RemoteHost="192.168.100.101" '設置連接的IP地址

Winsock1.RemotePort = 80 '設置連接的遠程埠號

Winsock1.Connect '開始連接遠程計算機。

當Winsock控制項連接操作完成，就可以傳送FTP命令給伺服器了，因此在Winsock控制項的Connect事件中加入以下代碼：

On Error Resume Next '在錯誤處理程序結束後，恢復原有的運行

strWebPage= " 192.168.100.101/main.htm" '設置要下載的文件'添加FTP中取得文件的命令(GET)

strCommand = "GET " + strWebPage + " HTTP/1.0" + vbCrLf

strCommand = strCommand + "Accept: */*" + vbCrLf

strCommand = strCommand + "Accept: text/html" + vbCrLf

strCommand = strCommand + vbCrLf '必須以vbCrLf結束命令

Winsock1.SendData strCommand '向遠程計算機發送命令

當Winsock控制項獲取到數據時，需要對數據進行處理，本例中將獲取的內容顯示在文本框控制項中，因此在Winsock控制項的DataArrival事件加入以下代碼：

On Error Resume Next '在錯誤處理程序結束後，恢復原有的運行

Dim webData As String

Winsock1.GetData webData,vbString '獲取當前的數據塊

Text1.Text = Text1.Text + webData '顯示接收到的數據