【求助】两块if写在一起则出错

第一种，两个if分开写，可执行，无错误
dim companyBH
companyBH="a"
if not isnumeric(companyBH) then
  response.write "编码不是数字！"
elseif companyBH<1 then
  response.write "编号小于1！"
end if

第二种，两个if写在一行里，不可执行，出错
dim companyBH
companyBH="a"
if not isnumeric(companyBH) or companyBH<1 then
  response.write "编码不是数字或编码小于1！"
end if

请大神帮忙指教一下，谢谢

下面是提示




很显然提醒类型不匹配。


微软官方说明：
使用 VBScript 对 Numeric  字段类型执行数值比较或计算时，可能会收到以下错误消息：

错误消息 1

Microsoft VBScript 运行时错误“800a000d”
类型不匹配  

错误消息 2

Microsoft VBScript 运行时错误“800a01ca”
变量使用 VBScript 中不支持的自动化类型


建议处理方法：

1. 
   
2. dim companyBH
   
3. dim errMsg
   
4. companyBH="a"
   
5. errMsg=""
   
6. 
   
7. if not isnumeric(companyBH) then
   
8. errMsg=errMsg&"编码不是数字！"
   
9. end if
   
10. 
    
11. 
    
12. if isnumeric(companyBH)  then
    
13.     if companyBH<1 then errMsg=errMsg&"编码小于1！" end if
    
14. end if
    
15. 
    
16. response.write errMsg

复制代码