您的位置首页生活小窍门

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

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

你这个判断浏览器类别和版本的代码早就过时了,无法判断目前的新型浏览器,而且由于判断的条件不够全面,会造成出错。比如谷歌Chrome浏览器的HTTP_USER_AGENT字串是:Mozilla/乱空余5.0 (Windows NT 5.1) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/28.0.1500.72 Safari/537.36可以看到,里面并没有分号(;),所以如果按分号进行分割(Agent=Split(Agent,";")),由于Agent(1)并不存在,因此执行到If InStr(Agent(1),"MSIE")>哗滚0 Then时就会报“下标越界”的错误了!最后再附上最新版的亏亮FireFox的特征字串:Mozilla/5.0 (Windows NT 5.1; rv:24.0) Gecko/20100101 Firefox/24.0