ASP代碼實現無組件上傳
時間:2015-03-03 19:42:27 來源:中國電子商務網電商學堂 點擊量:840
目前有很多無組件上傳類,我大概看了一下,大多寫的相當復雜,有的居然還只能傳文本最要害的是沒有10行代碼以下的 :)我花了一個晚上時間研究了一下ADODB.Stream,并且用了6行代碼實現了無組件上傳:strFileName = Request.QueryString("file1")Set objStream = Server.CreateObject("ADODB.Stream")objStream.Type = 1 '' adTypeBinaryobjStream.OpenobjStream.LoadFromFile strFileNameobjStream.SaveToFile Server."123_onweb.gif",
2使用方法:把上面的代碼寫成upload.asp在瀏覽器里面輸入:http://XXX/upload.asp?file1=c:上傳文件123.gifXXX為你的主機地址執行完后你會看到你的目錄下面多了一個123_onweb.gif他就是你要文件拉!!!!根據原理我們可以擴展以下代碼:upload.asp文件<%Function GetFileName(ByVal strFile)If strFile <> "" ThenGetFileName = mid(strFile,InStrRev(strFile, "") 1)ElseGetFileName = ""End IfEnd functionstrFileName = Request.Form("file1")Set objStream = Server.CreateObject("ADODB.Stream")objStream.Type = 1 '' adTypeBinaryobjStream.OpenobjStream.LoadFromFile strFileNameobjStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2objStream.Close%>upload.htm文件
上一條 ·工程學院實習報告樣本 2015-03-03
下一條 ·電子商務拯救傳統小店 選擇網站平臺最艱難 2015-03-03
- 原材料 工業品 服裝服飾 家居百貨 小商品 商務服務 更多分類
-
·江西汽車散熱器設備廠2026-04-23
·蘭州市安寧區家具安裝,紅木家具安裝方法2026-04-23
·蘭州液氬供應商,二氧化碳廠2026-04-23
·平涼成套配電柜批發2026-04-23
·低煙無鹵電纜多少錢2026-04-23
·四川散熱器裝配機哪里買,汽車水箱生產設備制造廠家2026-04-23
·甘南瓷磚磕碰修復哪家好2026-04-23

2810881989