帮忙ASP问题

来源：百度知道 编辑：UC知道 时间：2024/05/31 10:05:28
Microsoft VBScript 运行时错误 '800a01fa'
类没有被定义: 'upload_5xSoft'
\wwwroot\jzund-oa\sendfileok.asp, line 46
这是什么意思``我知道是没有定义 但是怎么定义我下了个 无惧上传类 v2.2 但是应该怎么操作 具体的`!
代码在这.http://xjp1017.go2.icpcn.com/yuanma/asp.txt
我直接发不上来文字限制了

看来你在用化境无组件上传,该组件代码如下;
<%
Server.ScriptTimeOut=9999
dim Data_5xsoft

Class upload_5xsoft

dim objForm,objFile,Version

Public function Form(strForm)
strForm=lcase(strForm)
if not objForm.exists(strForm) then
Form=""
else
Form=objForm(strForm)
end if
end function

Public function File(strFile)
strFile=lcase(strFile)
if not objFile.exists(strFile) then
set File=new FileInfo
else
set File=objFile(strFile)
end if
end function

Private Sub Class_Initialize
dim RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStream,iStart,theFile
dim iFileSize,sFilePath,sFileType,sFormvalue,sFileName
dim iFindStart,iFindEnd
dim iFormStart,iFormEnd,sFormName
set objForm=Server.CreateObject("Scripting.Dictionary")
set objFile=Server.CreateObject("Scripting.Dic