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

类型不匹配: 'cint'

/faq/2j.asp,行 15