Question

Microsoft VBScript 运行时错误 '800a000d'

ASP网站源码上传产品图片时提示如下，哪里出现问题了呢？

Microsoft VBScript 运行时错误 '800a000d'
类型不匹配: 'getNewFileObj'
\admin888\pf_upload_class.asp, line 207

提供 line 207 以下源码
Set fileCls = getNewFileObj()
fileCls.ContentType = contentType
fileCls.Size = (valueend - formend - 5)
fileCls.FormName = formname
fileCls.NewName = NewName
fileCls.FileName = FileName
fileCls.LocalName = FileName
fileCls.extend = Split(NewName, ".")(UBound(Split(NewName, ".")))
fileCls.Value = midb(tempdata, formend + 4, valueend - formend - 5)
Fils.Add formname, fileCls
Set fileCls = Nothing
End If
End If
Else
Value = MidB(tempdata, formend + 4, valueend - formend - 6)
If Form.Exists(formname) Then
Form(formname) = Form(formname) & "," & Bytes2Str(Value)
Else
Form.Add formname, Bytes2Str(Value)
End If
End If
istart = 2 + slen
tempdata = midb(tempdata, valueend + 2)
Loop
vErr = 0
tempdata = Empty
vLostTime = FormatNumber((Timer - time1) * 1000, 2)
End Sub
图片是line 207 上下 的源码图片 .

Answer 1

问题不是出在你贴出的代码上,而是你当前页面中没有定义getNewFileObj()这个函数,或者是你在其它文件中定义了,但是没有用include指令将该文件包含进来.

Answer 2

Set fileCls = getNewFileObj()
应该改成：
Set fileCls = new getNewFileObj()或Set fileCls = new getNewFileObj

因为一个类，你首先要通过NEW的方式去调用它！