dim aa(17,2)
dim na 
na = 18
aa(0,0)="0"
aa(0,1)="1"
aa(0,2)="郑州市"
aa(1,0)="0"
aa(1,1)="5"
aa(1,2)="南阳市"
aa(2,0)="0"
aa(2,1)="10"
aa(2,2)="安阳市"
aa(3,0)="0"
aa(3,1)="19"
aa(3,2)="鹤壁市"
aa(4,0)="0"
aa(4,1)="21"
aa(4,2)="焦作市"
aa(5,0)="0"
aa(5,1)="22"
aa(5,2)="开封市"
aa(6,0)="0"
aa(6,1)="23"
aa(6,2)="洛阳市"
aa(7,0)="0"
aa(7,1)="24"
aa(7,2)="漯河市"
aa(8,0)="0"
aa(8,1)="26"
aa(8,2)="濮阳市"
aa(9,0)="0"
aa(9,1)="27"
aa(9,2)="三门峡"
aa(10,0)="0"
aa(10,1)="28"
aa(10,2)="商丘市"
aa(11,0)="0"
aa(11,1)="29"
aa(11,2)="新乡市"
aa(12,0)="0"
aa(12,1)="30"
aa(12,2)="信阳市"
aa(13,0)="0"
aa(13,1)="31"
aa(13,2)="许昌市"
aa(14,0)="0"
aa(14,1)="32"
aa(14,2)="周口市"
aa(15,0)="0"
aa(15,1)="33"
aa(15,2)="驻马店"
aa(16,0)="0"
aa(16,1)="2196"
aa(16,2)="济源市"
aa(17,0)="0"
aa(17,1)="2532"
aa(17,2)="平顶山"

dim sa1
set sa1 = document.form1.sa1

sub addoptiona(o,s,v)
dim oOption
set oOption = document.createElement("OPTION")
o.options.add(oOption)
oOption.innerText = s
oOption.value = v
End sub
for i=0 to na-1
  if(aa(i,0)="0") then  call addoptiona(sa1,aa(i,2),aa(i,1))
next  
sub clearsa(it)
 do while it.options.length>1
   it.options.remove(1)
 loop
end sub