用MsgBox ("Error # " & CStr(Err.Number) & " " & Err.Description) 弹出错误消息为
Error #451 对象不是一个集合

arrtr1 值的问题！

是的，那么怎么处理呢

还弹出了Error #70 没有权限   的错误

看起来似乎是在VBS中创建的InternetExplorer.Application对象，然后用Document.Write来创建的element吧。记得在SP3 IE8以前都不存在这些情况(具体是SP3的原因还是IE8的原因没有深究过）。
如果上述的情况和你的情况类似，建议你在创建InternetExplorer.Application对象的时候用类似set oIE=Wscript.CreateOjbect("InternetExplorer.Application","Event_")的语句来完成，直接用set oIE=CreateOjbect("InternetExplorer.Application"）可能会出现你说的情况。
当然，最好你把你的代码全部贴出来，就你上面给出的代码应该是可行的。

学习

你是在asp吗？？后台？？？？
后台没msgbox这个函数的。

<Script language="vbscript">

Function a()

  set arrtr1 = Document.getElementsByTagName("tr")



  for i=0 to arrtr1.length-1                

      msgbox i & "iiii" & "   " & arrtr1(i).id                  

Next

End Function  

 </script>



 <table>

 <tr id=tr1></tr>

  <tr id=tr2></tr>

   <tr id=tr3></tr>

 </table>



 <Script language="vbscript">

	a()

 </script>

完全不懂~~~~~