Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配: 'CInt'

/sys_function.hb,行 1018