往下拉列表框中添加项目

q&m+p[8m0往Html的下拉列表中添加项目的参考例子（这个找了很多参考才实现）

function GetUserList()
D6? G$uU(Z0{51Testing软件测试网#IQ IB*`+Q r5Aw
 var ōbj=null;
g(U Y ~$w4?fJU8R0 var ōbjNode=null;51Testing软件测试网kLy9j"^8Ti^
 try
4U$P xx6[0 {51Testing软件测试网|
g/l'Ty*@
     form1.role.innerHTML="";
,X|G-g G0  obj= new ActiveXObject("SunBI.SunObject");
~.GA0ibH9Ups+|9V#G0  objNode= new ActiveXObject("SunBI.SunObject");  
)o3i:g/Htc-N0  obj.LoadFromRepositoryByPath ("$/SecurityAdmin/Roles",false);
#tjK8QEn~0     obj.QueryChildObjects();51Testing软件测试网"C|%D5q\I
  var  o = new   Option("=请选择=","99");51Testing软件测试网3|hfw6ky
  document.form1.role.add(o) ;   
'h.lE9jR i1ur]+@jbn0  for(var i=0;i<=obj.ChildObjectCount-1;i++)
;Yq*b9}
p`0  {
0V
E,Hd)@&~'P4T8J%o?0   objNode.ObjectNode =obj.ChildObjectNode(i);  
*_wX6U N~_0   NameStr="";51Testing软件测试网)@3{8Q`gwZ&kA`
   ValueStr="";
M u,f&l4C6QoM6w0   ValueStr=objNode.Name;
,u-s8JZZ X0       51Testing软件测试网.} zT.eKj7[e!TM
    if (ValueStr=="Browser") 
n6gr$~q~ [8lY,]0        NameStr="浏览用户"  
zM]3g.DZN0    else  51Testing软件测试网5sOc~Q6X
     NameStr="超级用户";51Testing软件测试网'{8}.R%Z8{nsY[0?
 
VN,F$Ix*dMR0    var  o = new   Option( NameStr,ValueStr) ;
L$yQ|!m}%W6W_8uXf0   document.form1.role.add(o)  ;
P1t$UT0g?*`M8R0  } 51Testing软件测试网2Z!{i"AZ.D
  51Testing软件测试网p|{~:M
U/D'H A
 }
;q)x6WR| M#I"ODXX0 catch(e)51Testing软件测试网;~8kV{*R|
 {
*Lr(u)_;i&k0  window.alert("读取权限列表错误！");51Testing软件测试网6z1n7Jx&d*{
  return false;
+f#j o5J+Oz1r0 }51Testing软件测试网k(V3q?L
R zH
 51Testing软件测试网][#D/A%jL/I k
} 51Testing软件测试网-JDg5aLR