編寫思路:把本地文件在客戶端通過base64編碼以后發送目的地.
測試過程中,上傳文件過大,導致超時不成功.
后來經過改善.把編碼分段發送.測試20M成功
編寫目的:在傳統的解決方案里面,一次一次選取上傳可以.但是在碰到把數據庫里文件路徑讀出來,并把這些文件上傳到一個地方的時候就比較麻煩.
如果得到路徑一個一個去找到用ftp當然也是可以的,但每次找這些文件我看都會比較費時。這里編寫這個主要就是為了通過數據庫里的文件路徑取得文件.把文件一次批量上傳到一個地方.
其主要目的還是為了鍛煉一下自己.
解決過程:起初試著用模擬鍵盤輸入強行賦值給file控件用傳統的方法上傳?？墒抢吓龅娇罩档那闆r，以至有很多文件沒有發送出去。查閱一些資料,現在是把所有路徑通過數據庫取到然后寫到一個js里。然后在前臺用js讀取這些路徑,通過xmlhttp來發送文件。
因為ie不太喜歡xmlHttp.總認為他有惡意行為.所以老談出提示警告.所以操作的時候不能使用web路徑.只能用物理路徑去訪問它.
然后服務端有一文件來接收這些編碼,并對其進行解碼.所以我稱之為"c/s". ^_^
目前很多代碼還在完善中.
簡單介紹一下:
-------------------------------------------------------------
aryFiles.push("c://aaa.zip") ;
aryFiles.push("c://bbb.exe") ;
這里為文件路徑和文件.可為多個
以后這個路徑也可以通過file控件在客戶端取到
http:// www.xxx.com/xxx/xxx.asp
這個是目的地,可以改為自己想要的地址.
ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename)
server.mappath(".") &"/"& + str_filename 這里是讀取文件.
server.mappath(".") &"/"& 路徑和存放路徑一致
ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2
server.mappath(".") &"/"& 這個為存放文件的路徑. str_filename 為文件名
這里讀取和存放都是放在程序所放目錄中.大家測試的時候也可以保持這樣即可
把第一段代碼放到本地(eg:c:/upload.htm)
把第二段代碼放到服務器上,可以是本地服務器,可以是公網服務器.和上面的目的地保持一致
(eg:http://www.xxx.com/upload.asp or http:// localhost/www/upload.asp)
----------------------------------------------------------------
操作:找到第一段代碼保存的地方。執行即可(eg:打開c盤執行upload.htm)
客戶端代碼</P> <P><html>
<head>
</head>
<body>
<input type=button onclick="BeginSendFiles();" value="發送" />
<input type=button onclick="JavaScript: Breaked=true;" value="中斷" />
<div id="ddd" width=300px></div>
</br>
<DIV id=div_message></DIV>
</body></P>
<P><script language=VBScript>
Function bytes2BSTR(vIn)
strReturn = ""
For i = 1 To LenB(vIn)
ThisCharCode = AscB(MidB(vIn,i,1))
If ThisCharCode < &H80 Then
strReturn = strReturn & Chr(ThisCharCode)
Else
NextCharCode = AscB(MidB(vIn,i+1,1))
strReturn = strReturn & Chr(CLng(ThisCharCode) * &H100 + CInt(NextCharCode))
i = i + 1
End If
Next
bytes2BSTR = strReturn
End Function
</script></P>
<P><script language=javascript>
var xmlhttp ;
var ado_stream ;
var mFileName, mPartStart, mPartID, mPartEnd ;
var SendCount ;
var BlockSize ;
var Breaked ;
var aryFiles ;</P>
<P> BlockSize = 1024*100 ;//每次發送字節數
Breaked = false ;
aryFiles = new Array() ;</P>
<P> // 開始發送文件
function BeginSendFiles()
{
initAryFiles() ;
SendFile(aryFiles.pop()) ;
}
// 構造待發送文件的數組
function initAryFiles()
{
aryFiles.push("c://aaa.zip") ;
aryFiles.push("c://bbb.exe") ;
//c://aaa.zip c://bbb.exe本地文件
aryFiles.reverse() ;//文件名
}</P>
<P> function SendFile(vFullPath)
{
// 空文件則不執行上傳
if (!vFullPath)
{
return ;
}
Breaked = false ;
div_message.innerHTML = "" ;
ado_stream = new ActiveXObject("ADODB.Stream"); // 讀取文件的流
ado_stream.Type = 1;
ado_stream.Open();
ado_stream.LoadFromFile(vFullPath); // 讀取文件
ado_stream.position = 0 ;</P>
<P> SendCount = Math.ceil(ado_stream.size/BlockSize) ; // 如果有余數則多發送一次</P>
<P> // alert(SendCount) ;</P>
<P> var reg = //b/w+./w+$/gi
mFileName = reg.exec(vFullPath) ;
mPartStart = true ;
mPartID = 1 ;
mPartEnd = false ;
SendData() ;
}</P>
<P> function SendData()
{
if (SendCount > 0)
{
var dom = new ActiveXObject("msxml2.DOMDocument"); // 發送的xml文件
dom.async = false;
dom.resolveExternals = false;</P>
<P> // 構造xml文件頭
var node = dom.createProcessingInstruction("xml","version='1.0'");
dom.appendChild(node) ;
node = null ;
// 構造root節點
var root = dom.createElement("root");
dom.appendChild(root) ;
dom.documentElement.setAttribute("xmlns:dt", "urn:schemas-microsoft-com:datatypes");
// 構造保存二進制數據的節點updata
node = dom.createElement("upData") ;
node.dataType = "bin.base64" ; // bin。base64編碼
var att = dom.createAttribute("FileName") ; // 文件名屬性
att.value = mFileName ;
node.setAttributeNode(att) ;
att = null ;
var att = dom.createAttribute("PartStart") ; // 分段開始標記
att.value = mPartStart ;
node.setAttributeNode(att) ;
att = null ;
var att = dom.createAttribute("PartID") ; // 分段序號
att.value = mPartID ;
node.setAttributeNode(att) ;
att = null ;
var att = dom.createAttribute("PartEnd") ; // 分段結束標記
att.value = mPartEnd ;
node.setAttributeNode(att) ;
att = null ;</P>
<P> root.appendChild(node) ;
node.nodeTypedValue = ado_stream.Read(BlockSize); // 節點數據從stream讀取，固定長度
node = null ;
SendCount -= 1 ;
xmlhttp = new ActiveXObject("Microsoft.XMLHTTP");
xmlhttp.open("POST","http://www.xxx.com/xxx/xxx.asp", false);
//http://www.xxx.com/xxx/xxx.asp 為web路徑上的文件
xmlhttp.onreadystatechange= CallBack ;
xmlhttp.send(dom);
mPartStart = false ;
xmlhttp = null ;
}
else
{
ado_stream.Close();
ado_stream = null ;
}
}
function CallBack()
{
// 上傳成功
if(xmlhttp.readystate == 4)
{
// 檢查是否中斷上傳
if(Breaked)
{
return ;
}</P>
<P> if (SendCount > 0)
{
mPartID += 1 ;
// div_message.innerHTML += ("
" + xmlhttp.ResponseText) ;
var p = Math.floor((mPartID/(Math.ceil(ado_stream.size/BlockSize) + 1)) * 100) ; // 計算進度百分比
ShowBar(p) ;
var t = setTimeout("SendData();", 1) ;
}
else
{
// 傳送完文件
//div_message.innerHTML += mFileName + "傳送完畢！
" ;</P>
<P> // 繼續傳下一文件
ShowBar(0) ;
var cFile = aryFiles.pop() ;
SendFile(cFile) ;
}
}
</P>
<P> }</P>
<P> function ShowBar(per)
{
// 進度條
ddd.innerHTML = "<table width='200' border=0 cellpadding='0' cellspacing='0' ><tr><td bgcolor='#6699FF'><input type=button style=' width:" + per + "% ; border:0px; background:#005599; color:#FFFFFF' value=" + per + "%> </td></tr></table>" ;
}</P>
<P></script>
</html></P>
<P>
服務器端 </P>
<P><%@ LANGUAGE=VBScript%>
<% Option Explicit
Response.Expires = 0 </P>
<P>' 定義變量和對象。
dim ado_stream
dim xml_dom
dim xml_data
dim str_filename
dim bol_PartStart
dim int_PartID
dim bol_PartEnd </P>
<P>' 創建 Stream 對象
set ado_stream = Server.CreateObject("ADODB.Stream")
' 從Request對象創建 XMLDOM對象
set xml_dom = Server.CreateObject("MSXML2.DOMDocument")
xml_dom.load(request)
' 讀出包含二進制數據的節點
set xml_data = xml_dom.selectSingleNode("root/upData")
str_filename = xml_data.getAttribute("FileName")
bol_PartStart = CBool(xml_data.getAttribute("PartStart"))
int_PartID = CInt(xml_data.getAttribute("PartID"))
bol_PartEnd = CBool(xml_data.getAttribute("PartEnd"))</P>
<P>' 打開Stream對象，把數據存入其中
ado_stream.Type = 1 ' 1=adTypeBinary
ado_stream.open
if not bol_PartStart then
ado_stream.LoadFromFile(server.mappath(".") &"/"& + str_filename) ' 讀取文件
ado_stream.position = ado_stream.size
end if
ado_stream.Write xml_data.nodeTypedValue
' 文件存盤
ado_stream.SaveToFile server.mappath(".") &"/"& str_filename,2
'保存文件 2=adSaveCreateOverWrite
ado_stream.close </P>
<P>' 釋放資源
set ado_stream = Nothing
set xml_dom = Nothing
' 向瀏覽器返回信息
Response.Write "Upload successful!"& str_filename & int_PartID & bol_PartStart
%> </P>
<P>
