ASP：6行代码实现无组件上传

我花了一个晚上时间研究了一下ADODB.Stream，并且用了6行代码实现了无组件上传：　　

　　strFileName=Request.QueryString("file1")

　　SetobjStream=Server.CreateObject("ADODB.Stream")

　　objStream.Type=1'adTypeBinary

　　objStream.Open

　　objStream.LoadFromFilestrFileName

　　objStream.SaveToFileServer."123_onweb.gif",2　　

　　使用方法：　　

　　把上面的代码写成upload.asp

　　在浏览器里面输入：

　　http://XXX/upload.asp?file1=c:上传文件123.gif

　　XXX为你的主机地址

　　执行完后你会看到你的目录下面多了一个123_onweb.gif

　　他就是你要文件拉！！！！　　

　　根据原理我们可以扩展以下代码：

　　upload.asp文件

　　＜%

　　FunctionGetFileName(ByValstrFile)

　　IfstrFile＜＞""Then

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

　　Else

　　GetFileName=""

　　EndIf

　　Endfunction　　

　　strFileName=Request.Form("file1")

　　SetobjStream=Server.CreateObject("ADODB.Stream")

　　objStream.Type=1'adTypeBinary

　　objStream.Open

　　objStream.LoadFromFilestrFileName

　　objStream.SaveToFileServer.MapPath(GetFileName(strFileName)),2

　　objStream.Close

　　%＞　　

　　upload.htm文件

　　＜formname="FORM"action="upload.asp"method="post"＞

　　　　＜inputtype="submit"name="submit"value="OK"＞

　　＜inputtype="file"name="file1"style="width:400"value=""＞

　　＜/form＞

文章来自: 本站原创
Tags: