我花了一个晚上时间研究了一下ADODB.Stream，并且用了6行代码实现了无组件上传： [中国站长站]
strFileName = Request.QueryString("file1")
Chinaz.com
Set objStream = Server.CreateObject("ADODB.Stream") objStream.Type = 1 ' adTypeBinary
[中国站长站]
objStream.Open [中国站长站]
objStream.LoadFromFile strFileName
Chinaz.com
objStream.SaveToFile Server."123_onweb.gif",2 [中国站长站]
使用方法：
[中国站长站]
把上面的代码写成upload.asp Chinaz.com
在浏览器里面输入： Chinaz.com
http://XXX/upload.asp?file1=c:\上传文件\123.gif
[中国站长站]
XXX为你的主机地址 [中国站长站]
执行完后你会看到你的目录下面多了一个123_onweb.gif [中国站长站]
他就是你要文件拉！！！！ Chinaz.com
根据原理我们可以扩展以下代码： [中国站长站]
upload.asp文件
Chinaz.com
＜% [中国站长站]
Function GetFileName(ByVal strFile) Chinaz.com
If strFile ＜＞ "" Then Chinaz.com
GetFileName = mid(strFile,InStrRev(strFile, "\")+1) [中国站长站]
Else
[中国站长站]
GetFileName = "" [中国站长站]
End If Chinaz.com
End function Chinaz.com
strFileName = Request.Form("file1")
[中国站长站]
Set objStream = Server.CreateObject("ADODB.Stream") [中国站长站]
objStream.Type = 1 ' adTypeBinary [中国站长站]
objStream.Open Chinaz.com
objStream.LoadFromFile strFileName Chinaz.com
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2 Chinaz.com
objStream.Close [中国站长站]
%＞ Chinaz.com
[中国站长站]
upload.htm文件 [中国站长站]
＜form name="FORM" action="upload.asp" method="post"＞ ＜input type="submit" name="submit" value="OK"＞ Chinaz.com
＜input type="file" name="file1" style="width:400" value=""＞ ＜/form＞ Chinaz.com
0
顶一下0
埋一下引用地址：
