?? hbupload.asp
字號:
<%
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
%>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -