//代碼
//---------------------------------------------------
import flash.net.FileReference; //引入類
bt1.label="上傳"
label1.text=""
var file:FileReference = new FileReference();
var ob:Object = new Object();
ob.onSelect = function (file:FileReference):Void{
file.upload("http://www.faithmedia.com.cn/UploadFile/upfile.asp");
}
ob.onProgress=function(f,l,t){
label1.text="上傳中....."
p.setProgress(l,t)
if((l/t)*100==100){
label1.text="上傳完成"
bt1.label="上傳"
file.cancel()
}
}
ob.onCancel = function (fresele:FileReference):Void{
label1.text="取消上傳"
bt1.label="上傳"
file.cancel()
}
ob.onComplete=function(f){
label1.text="上傳完成"
bt1.label="上傳"
}
bt1.onPress = function() {
if (bt1.label=="上傳"){
bt1.label="取消"
label1.text="正在上傳"
file.browse();
}
else{
bt1.label="上傳"
label1.text="取消上傳"
file.cancel()
}
}
file.addListener(ob);
//---------------------------------------------------
ASP接收FLASH上傳來的二進製流數據,生成圖片,進行估存
<%Dim biData, PostData, TotalBytes, ChunkBytes
ChunkBytes = 1 * 1024 ' 分塊大小為1K
TotalBytes = Request.TotalBytes ' 總大小
PostData = "" ' 轉化為文本類型後的數據
ReadedBytes = 0 ' 初始化為0
' 分塊讀取
Set bSourceData = createobject("ADODB.Stream")
bSourceData.Open
bSourceData.Type = 1 'Binary
Do While ReadedBytes < TotalBytes
biData = Request.BinaryRead(ChunkBytes)
bSourceData.Write biData ' 直接使用write方法將當前文件流寫入bSourceData中
ReadedBytes = ReadedBytes + ChunkBytes
If ReadedBytes > TotalBytes Then ReadedBytes = TotalBytes
Application("ReadedBytes") = ReadedBytes
Loop
ranNum=int(90000*rnd)+10000
FileName=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&".gif"
path=GetFilePath(Server.mappath("upfile.asp"),"\")&"upload\"
fullpath=path&filename
bSourceData.SaveToFile fullpath,2
%>
<!--#include virtual="/inc/conn_f.asp"-->
<%
dim conn,rs
call conn_open
sql="select * from casio2_items"
rs.open sql,conn,3,3
rs.AddNew
rs("title")=request("title")
rs("content")=request("info")
'rs("pic")=filename
rs.update
rs.close
set rs=nothing
%>
<%
function GetFilePath(FullPath,str)
If FullPath <> "" Then
GetFilePath = left(FullPath,InStrRev(FullPath, str))
Else
GetFilePath = ""
End If
End function
%>
