请教一个文件上传的问题
文件上传代码如下：
Function   GetFileName(ByVal   strFile)  
If   strFile   <>   " "   Then  
GetFileName   =   mid(strFile,InStrRev(strFile,   "\ ")+1)  
Else  
GetFileName   =   " "  
End   If  
End   function  


strFileName   =   Request.Form( "upfilename ")  
If   strFileName <> " "   Then  
Set   objStream   =   Server.CreateObject( "ADODB.Stream ")  
objStream.Type   =   1  
objStream.Open  
objStream.LoadFromFile   strFileName  
objStream.SaveToFile   Server.MapPath(GetFileName(strFileName)),2  
objStream.Close  

提示错误：
ADODB.Stream   错误   '800a0bba '  

文件无法被打开。


------解决方案--------------------
第几行没提示？
------解决方案--------------------
建议使用组件上传吧，网上虽然很多6行就能实现上传得代码，好像都不行，但是写进数据库可以。
http://www.softhy.net/soft/6595.htm
------解决方案--------------------
( "ADODB.Stream ") 这个服务器打过补丁就不行了
------解决方案--------------------
我用的是无惧上传类，的确写得很不错，里面还有用法说明及示例，它不是要安装的组件，调用就可以了，一般ASP的空间都是可以用的。
------解决方案--------------------
用FSO，一般服务器都支持FSO
或者无组件上传代码。