无组件上传

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 

strFileName = Request.Form("file1") 
Set objStream = Server.CreateObject("ADODB.Stream") 
objStream.Type = 1 ' adTypeBinary 
objStream.Open 
objStream.LoadFromFile strFileName 
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2 
objStream.Close 
%> 

upload.htm文件 
<form name="FORM" action="upload.asp" method="post"> 
　　<input type="submit" name="submit" value="OK"> 
<input type="file" name="file1" style="width:400" value=""> 
</form>