ASP代碼實現無組件上傳
時間：2015-03-03 19:42:27 來源：中國電子商務網電商學堂 點擊量：742
目前有很多無組件上傳類,我大概看了一下,大多寫的相當復雜,有的居然還只能傳文本最要害的是沒有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
- 原材料 工業品 服裝服飾 家居百貨 小商品 商務服務 更多分類
-
·鋼結構橋梁公司_買呼市鋼結構橋梁就來金朗銘建設工程有限公司2025-10-04
·散養土雞主營廠家-質量好的散養麻雞鐵嶺憶農源牧業供應2025-10-04
·安徽長春花苗種植基地-哪里能買到質量好的長春花2025-10-04
·巴彥淖爾七孔梅花管-銀川哪里有供應好用的內蒙七孔梅花管2025-10-04
·大慶散養黑豬|買散養黑豬當然是到鐵嶺憶農源牧業2025-10-04
·內蒙古彩鋼單板公司-金朗銘建設工程有限公司專業提供呼市彩鋼板2025-10-04
·鍋爐模式水冷壁廠-耐用的鍋爐膜式壁水冷壁供銷2025-10-04
2810881989