<% 

    Const adTypeBinary = 1
    const adSaveCreateOverWrite = 2
    
    '當緩沖頁輸出時，只有當前頁的所有服務(wù)器腳本處理完畢或者調(diào)用了End方法后，服務(wù)器才將響應(yīng)發(fā)送給客戶端	
    Response.Buffer = true       
    
    '接收客戶發(fā)來的文件流
    UpFile=Request.BinaryRead(Request.TotalBytes)
    
	'***************************************************************************
    '                              保存到數(shù)據(jù)庫中
    '***************************************************************************
    '建立與access數(shù)據(jù)庫的連接 
    Set objConn = Server.CreateObject("ADODB.Connection")
    ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("HBUpload.MDB")
    
    objConn.Open ConnStr

	'打開OLE字段，將數(shù)據(jù)寫入數(shù)據(jù)庫 
	Set objRs = Server.CreateObject("ADODB.Recordset")
	strSQL = "SELECT * FROM HBUpload WHERE(CELLFILE is null)"
	objRs.Open strSQL, objConn, 1, 3
	objRs.AddNew
	objRs("CELLFILE").AppendChunk(UpFile)
	objRs.Update
	objRs.Close
	objConn.Close
	Set objRs = Nothing
	Set objConn = Nothing
  
    '********************************************
    '保存到磁盤文件,通過流將數(shù)據(jù)保存成文件
    '********************************************
    Set objStream=Server.CreateObject("ADODB.Stream")
    objStream.Open
    objStream.Type=adTypeBinary
    objStream.Write UpFile
    objStream.SaveToFile  Server.MapPath("HBUpload.cll"), adSaveCreateOverWrite
    objStream.Close
    Set objStream = Nothing
   
%>