ASP代碼實現(xiàn)無組件上傳

時間：2015-03-03 19:42:27 來源：中國電子商務(wù)網(wǎng)電商學(xué)堂 點擊量：881

目前有很多無組件上傳類,我大概看了一下,大多寫的相當(dāng)復(fù)雜,有的居然還只能傳文本最要害的是沒有10行代碼以下的 :)我花了一個晚上時間研究了一下ADODB.Stream,并且用了6行代碼實現(xiàn)了無組件上傳: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為你的主機(jī)地址執(zhí)行完后你會看到你的目錄下面多了一個123_onweb.gif他就是你要文件拉!!!!根據(jù)原理我們可以擴(kuò)展以下代碼: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文件