老大帮忙！！！关于上传问题

[XiaoBai2222]

upload.htm
//////////////////////////////////////////////////////////////////////
<form name="FORM" action="upload1.asp" method="post">
　　<input type="submit" name="submit" value="OK">
<input type="file" name="file1" style="width:400" value="">
</form>
//////////////////////////////////////////////////////////////////////
upload.asp
//////////////////////////////////////////////////////////////////////
<%
Function GetFileName(ByVal strFile)
If strFile <> "" Then
GetFileName = mid(strFile,InStrRev(strFile, "\")+1)
Else
GetFileName = ""
End If
End function

if (request.form("file1") = "") then
response.write "请选择上传文件<a href='javascript:history.back()'>返回</a>"
else
strFileName = Request.Form("file1")
file3 = Right(GetFileName(strFileName), 4)
Set objStream = Server.CreateObject("ADODB.Stream")
objStream.Type = 1 ' adTypeBinary
objStream.Open
objStream.LoadFromFile strFileName
objStream.SaveToFile Server.MapPath(GetFileName(strFileName)),2
objStream.Close
end if
%>
//////////////////////////////////////////////////////////////////////
这种方式好像只能在自己的电脑上上传？通过其它人的电脑上传就不行了，请问是怎么回事？

[XiaoBai2222]

up

[ocean413]

其它人电脑没那个叫adodb.stream的组件