ASP執行個體:6行代碼實作無元件上傳

ASP執行個體:6行代碼實作無元件上傳

目前有很多無元件上傳類，我大概看了一下，大多寫的相當複雜，有的居然還隻能傳文本

最關鍵的是沒有10行代碼以下的 ：）

我花了一個晚上時間研究了一下ADODB.Stream，并且用了6行代碼實作了無元件上傳：

strFileName = Request.QueryString("file1")

Set objStream = Server.CreateObject("ADODB.Stream")

objStream.Type = 1 ' adTypeBinary

objStream.Open

objStream.LoadFromFile strFileName

objStream.SaveToFile Server."123_onweb.gif",2

使用方法：

把上面的代碼寫成upload.asp

在浏覽器裡面輸入：

http://XXX/upload.asp?file1=c:上傳檔案123.gif

XXX為你的主機位址

執行完後你會看到你的目錄下面多了一個123_onweb.gif

他就是你要檔案拉！！！！

根據原理我們可以擴充以下代碼：

upload.asp檔案

<%

Function GetFileName(ByVal strFile)

If strFile <> "" Then

GetFileName = mid(strFile,InStrRev(strFile, "")+1)

Else

GetFileName = ""

End If

End function