[摘要]") isTypeError = True For i = 0 To Ubound(afl) '找到了，允许 If ucase(trim(ext)) = ucase(trim(af...
")
isTypeError = True
For i = 0 To Ubound(afl)
'找到了，允许
If ucase(trim(ext)) = ucase(trim(afl(i))) Then
isTypeError = False
Exit For
End If
Next
If isTypeError Then _
err.raise 28,"InvalidFileType", "文件"&fldname&"类型错误"
End If
If m_strDeniedFilesList <> "" Then
dfl = Split(m_strDeniedFilesList,"
关键词：ASP无组件上传·从原理剖析到实战（下）