dim ba(80,2)
dim na1
na1= 81
ba(0,0)="0"
ba(0,1)="1"
ba(0,2)="电脑网络"
ba(1,0)="0"
ba(1,1)="2"
ba(1,2)="数码影音"
ba(2,0)="0"
ba(2,1)="3"
ba(2,2)="房产楼盘"
ba(3,0)="0"
ba(3,1)="4"
ba(3,2)="汽车交通"
ba(4,0)="0"
ba(4,1)="5"
ba(4,2)="手机通讯"
ba(5,0)="0"
ba(5,1)="6"
ba(5,2)="家居生活"
ba(6,0)="0"
ba(6,1)="7"
ba(6,2)="运动健身"
ba(7,0)="0"
ba(7,1)="8"
ba(7,2)="家电家具"
ba(8,0)="0"
ba(8,1)="9"
ba(8,2)="文化艺术"
ba(9,0)="0"
ba(9,1)="10"
ba(9,2)="综合信息"
ba(10,0)="1"
ba(10,1)="11"
ba(10,2)="台式机"
ba(11,0)="1"
ba(11,1)="12"
ba(11,2)="笔记本"
ba(12,0)="1"
ba(12,1)="13"
ba(12,2)="电脑配件"
ba(13,0)="1"
ba(13,1)="14"
ba(13,2)="外设"
ba(14,0)="1"
ba(14,1)="15"
ba(14,2)="软件"
ba(15,0)="1"
ba(15,1)="16"
ba(15,2)="网络产品"
ba(16,0)="1"
ba(16,1)="17"
ba(16,2)="游戏机"
ba(17,0)="2"
ba(17,1)="18"
ba(17,2)="数码播放器"
ba(18,0)="2"
ba(18,1)="19"
ba(18,2)="数码相机"
ba(19,0)="2"
ba(19,1)="20"
ba(19,2)="数码摄象机"
ba(20,0)="2"
ba(20,1)="21"
ba(20,2)="储存卡"
ba(21,0)="2"
ba(21,1)="22"
ba(21,2)="PDA"
ba(22,0)="2"
ba(22,1)="23"
ba(22,2)="其他配件"
ba(23,0)="3"
ba(23,1)="24"
ba(23,2)="出售"
ba(24,0)="3"
ba(24,1)="25"
ba(24,2)="求购"
ba(25,0)="3"
ba(25,1)="26"
ba(25,2)="出租"
ba(26,0)="3"
ba(26,1)="27"
ba(26,2)="求租"
ba(27,0)="3"
ba(27,1)="28"
ba(27,2)="住房"
ba(28,0)="3"
ba(28,1)="29"
ba(28,2)="办公"
ba(29,0)="3"
ba(29,1)="30"
ba(29,2)="商铺"
ba(30,0)="4"
ba(30,1)="31"
ba(30,2)="轿车"
ba(31,0)="4"
ba(31,1)="32"
ba(31,2)="客车"
ba(32,0)="4"
ba(32,1)="33"
ba(32,2)="货车"
ba(33,0)="4"
ba(33,1)="34"
ba(33,2)="工程车"
ba(34,0)="4"
ba(34,1)="35"
ba(34,2)="摩托"
ba(35,0)="4"
ba(35,1)="36"
ba(35,2)="电动车"
ba(36,0)="4"
ba(36,1)="37"
ba(36,2)="车类配件"
ba(37,0)="4"
ba(37,1)="38"
ba(37,2)="车饰"
ba(38,0)="4"
ba(38,1)="39"
ba(38,2)="自行车"
ba(39,0)="5"
ba(39,1)="40"
ba(39,2)="手机"
ba(40,0)="5"
ba(40,1)="41"
ba(40,2)="手机号码"
ba(41,0)="5"
ba(41,1)="42"
ba(41,2)="小灵通"
ba(42,0)="5"
ba(42,1)="43"
ba(42,2)="电话机"
ba(43,0)="5"
ba(43,1)="44"
ba(43,2)="手机饰品"
ba(44,0)="5"
ba(44,1)="45"
ba(44,2)="手机号码"
ba(45,0)="5"
ba(45,1)="46"
ba(45,2)="手机配件"
ba(46,0)="6"
ba(46,1)="47"
ba(46,2)="小家电"
ba(47,0)="6"
ba(47,1)="48"
ba(47,2)="饰品"
ba(48,0)="6"
ba(48,1)="49"
ba(48,2)="儿童用品"
ba(49,0)="6"
ba(49,1)="50"
ba(49,2)="宠物"
ba(50,0)="6"
ba(50,1)="51"
ba(50,2)="花木园艺"
ba(51,0)="6"
ba(51,1)="52"
ba(51,2)="家用工具"
ba(52,0)="6"
ba(52,1)="53"
ba(52,2)="玩具"
ba(53,0)="6"
ba(53,1)="54"
ba(53,2)="家居相关"
ba(54,0)="6"
ba(54,1)="55"
ba(54,2)="服装"
ba(55,0)="7"
ba(55,1)="56"
ba(55,2)="健身器材"
ba(56,0)="7"
ba(56,1)="57"
ba(56,2)="保健器材"
ba(57,0)="7"
ba(57,1)="58"
ba(57,2)="体育用品"
ba(58,0)="7"
ba(58,1)="59"
ba(58,2)="运动鞋"
ba(59,0)="7"
ba(59,1)="60"
ba(59,2)="户外用品"
ba(60,0)="7"
ba(60,1)="61"
ba(60,2)="健身卡"
ba(61,0)="7"
ba(61,1)="62"
ba(61,2)="其他"
ba(62,0)="7"
ba(62,1)="63"
ba(62,2)="其他"
ba(63,0)="8"
ba(63,1)="64"
ba(63,2)="家用电器"
ba(64,0)="8"
ba(64,1)="65"
ba(64,2)="家用电器"
ba(65,0)="8"
ba(65,1)="66"
ba(65,2)="日用品"
ba(66,0)="8"
ba(66,1)="67"
ba(66,2)="灯具"
ba(67,0)="8"
ba(67,1)="68"
ba(67,2)="五金"
ba(68,0)="8"
ba(68,1)="69"
ba(68,2)="家电配件"
ba(69,0)="8"
ba(69,1)="70"
ba(69,2)="装饰"
ba(70,0)="8"
ba(70,1)="71"
ba(70,2)="家具相关"
ba(71,0)="9"
ba(71,1)="72"
ba(71,2)="书籍"
ba(72,0)="9"
ba(72,1)="73"
ba(72,2)="音像"
ba(73,0)="9"
ba(73,1)="74"
ba(73,2)="文具"
ba(74,0)="9"
ba(74,1)="75"
ba(74,2)="报刊"
ba(75,0)="9"
ba(75,1)="76"
ba(75,2)="字画"
ba(76,0)="9"
ba(76,1)="77"
ba(76,2)="收藏"
ba(77,0)="9"
ba(77,1)="78"
ba(77,2)="乐器"
ba(78,0)="10"
ba(78,1)="79"
ba(78,2)="家教"
ba(79,0)="10"
ba(79,1)="80"
ba(79,2)="家政服务"
ba(80,0)="10"
ba(80,1)="81"
ba(80,2)="其他"

dim sb1,sb2,sb3
set sb1 = document.form1.sb1
set sb2 = document.form1.sb2
set sb3 = document.form1.sb3
sub addoptiona1(o,s,v)
dim oOption1
set oOption1 = document.createElement("OPTION")
o.options.add(oOption1)
oOption1.innerText = s
oOption1.value = v
End sub
for i=0 to na1-1
  if(ba(i,0)="0") then  call addoptiona1(sb1,ba(i,2),ba(i,1))
next  
sub clearsb(it)
 do while it.options.length>1
   it.options.remove(1)
 loop
end sub
sub chsb1()
  clearsb(sb2)
  clearsb(sb3)
  dim s
  s=sb1.options(sb1.selectedIndex).value
  if(s="0") then exit sub
  for i=0 to na1-1
     if(ba(i,0)=sb1.options(sb1.selectedIndex).value) then call addoptiona1(sb2,ba(i,2),ba(i,1))
  next	   
end sub
sub chsb2()
  dim s
  clearsb(sb3)
  s=sb2.options(sb2.selectedIndex).value
  if(s="0") then exit sub
  for i=0 to na1-1
     if(ba(i,0)=s) then call addoptiona1(sb3,ba(i,2),ba(i,1))
  next	   
end sub