Microsoft VBScript 运行时错误 '800a01fa' 大家帮帮忙，小弟急死了啊！

Question

Microsoft VBScript 运行时错误 '800a01fa' 类没有被定义: 'upload_3Rom' \admin\pro_us1.asp, line 86 
-------------------------------------------------------------------------------- 
Host by NetBox Version 2.8 Build 4128 大家帮帮忙小弟急死了啊！有人给指点指点吗？我试了网上的解决办法，不行！ 类没定义，我都晕了！

Answer 1

</html> 
<% Sub MyUpload() %> 
<!--#include file="../inc/upload.asp" --> 
<% 
dim upload,file,formName,formPath,iCount,strFileName 
set upload = new upload_3Rom ''建立上传对象  ///86行那错了啊 '建立文件系统对象 
set hNowFolder = server.createobject("scripting.filesystemobject") '建对象目录 
strWebPath = "../UpImages" & "/" & year(now) & month(now) 
strNowFolder = Server.MapPath(strWebPath)

Answer 2

</html> 
<% Sub MyUpload() %> 
<!--#include file="../inc/upload.asp" --> 
<% 
dim upload,file,formName,formPath,iCount,strFileName 
set upload = new upload_3Rom ''建立上传对象  ///86行那错了啊 '建立文件系统对象 
set hNowFolder = server.createobject("scripting.filesystemobject") '建对象目录 
strWebPath = "../UpImages" & "/" & year(now) & month(now) 
strNowFolder = Server.MapPath(strWebPath)

Answer 3

</html> 
<% Sub MyUpload() %>  //这里调用应该有个类什么的，仔细找下看