Provincial level two Linkage menu VBScript version

<script language=vbscript>
<!--
Public X (33)
X (0) = "Dongcheng, Xicheng, Chongwen, Xuanwu, Chaoyang, Fengtai, Shijingshan, Haidian, Mentougou, Fangshan, Tongzhou, Shunyi, Changping, Daxing, Pinggu, Huairou, Miyun, Yanqing"
X (1) = "Huangpu, Luwan, Xuhui, Changning, Jingan, Putuo, Zhabei, Hongkou, Yangpu, Minhang, Baoshan, Jiading, Pudong, Jinshan, Songjiang, Qingpu, Nanhui, Fengxian, Chongming"
X (2) = "Peace, Toray, Hedong, Xiqing, Hexi, Jinnan, Nankai, Beichen, Hebei, Wuqing, Red Cambridge, Tanggu, Hangu, Dagang, Ninghe, Jinghai, Baochi, Jixian"
X (3) = "Wanxian, Fuling, Yuzhong, Dadukou, Jiangbei, Shapingba, Jiulongpo, South Bank, Beibei, Wansheng, double Cambridge, Yubei, Banan, Qianjiang, Qijiang, Dazu, Tongnan, Tongliang, Bishan, the liangping, Chengkou, Fengdou, Dianjiang, Zhongxian, Kai, Wulong, Yunyang, Wushan, Fengjie, Pillar, Wuxi , Youyang, Pengshui, Jiangjin, Hechuan, Yongchuan, Nanchuan "
X (4) = "Shijiazhuang, Handan, Xingtai, Baoding, Zhangjiakou, Chengde, Langfang, Tangshan, Qinhuangdao, Cangzhou, Hengshui"
X (5) = "Taiyuan, Datong, Yangquan, Changzhi, Jincheng, Shuozhou, Luliang, Xinzhou, Jinzhong, Linfen, Yuncheng"
X (6) = "Hohhot, Baotou, Wuhai, Chifeng, Hulun Buir League, Alxa League, Jirem Meng, Hinggan League, Wulanchabu, Xilin, Bayannur Meng, Ikejomong"
X (7) = "Shenyang, Dalian, Anshan, Fushun, Benxi, Dandong, Jinzhou, Yingkou, Fuxin, Liaoyang, Panjin, Tieling, Chaoyang, Huludao"
X (8) = "Changchun, Jilin, Siping, Liaoyuan, Tonghua, Baishan, Songyuan, Baicheng, Yanbian"
X (9) = "Harbin, Qiqihar, Mudanjiang, Jiamusi, Daqing, Suihua, Hegang, Jixi, Heihe, Shuangyashan, Yichun, Qitaihe, Daxing ' anling"
X (10) = "Nanjing, Zhenjiang, Suzhou, Nantong, Yangzhou, Yancheng, Xuzhou, Lianyungang, Changzhou, Wuxi, Suqian, Taizhou, Huaian"
X (11) = "Hangzhou, Ningbo, Wenzhou, Jiaxing, Huzhou, Shaoxing, Jinhua, Quzhou, Zhoushan, Taizhou, Lishui"
X (12) = "Hefei, Wuhu, Bengbu, Maanshan, Huaibei, Tongling, Anqing, Huangshan, Chuzhou, Suzhou, Chizhou, Huainan, Chaohu, Fuyang, Liu'an, Xuancheng, Bozhou"
X (13) = "Fuzhou, Xiamen, Putian, Sanming, Quanzhou, Zhangzhou, Nanping, Longyan, Ningde"
X (14) = "Nanchang, Jingdezhen, Jiujiang, Yingtan, Pingxiang, New, Ganzhou, Ji ' An, Yichun, Fuzhou, Shangrao"
X (15) = "Jinan, Qingdao, Zibo, Zaozhuang, Dongying, Yantai, Weifang, Jining, Taian, Weihai, Rizhao, Laiwu, Linyi, Dezhou, Liaocheng, Binzhou, Heze"
X (16) = "Zhengzhou, Kaifeng, Luoyang, Pingdingshan, Anyang, Hebi, Xinxiang, Jiaozuo, Puyang, Xuchang, Luohe, Sanmenxia, Nanyang, Shangqiu, Xinyang, Zhoukou, Zhumadian, Jiyuan"
X (17) = "Wuhan, Yichang, Jingzhou, Xiangfan, Huangshi, Jingmen, Huanggang, Shiyan, Enshi, Qianjiang, Tianmen, Xiantao, Suizhou, Xianning, Xiaogan, Ezhou"
X (18) = "Changsha, Changde, Zhuzhou, Xiangtan, Hengyang, Yueyang, Shaoyang, Yiyang, Loudi, Huaihua, Chenzhou, Yongzhou, Xiangxi, Zhangjiajie"
X (19) = "Guangzhou, Shenzhen, Zhuhai, Shantou, Dongguan, Zhongshan, Foshan, Shaoguan, Jiangmen, Zhanjiang, Maoming, Zhaoqing, Huizhou, Meizhou, Shanwei, Heyuan, Yangjiang, Qingyuan, Chaozhou, Jieyang, Yunfu"
X (20) = "Nanning, Liuzhou, Guilin, Wuzhou, Beihai, Fangchenggang, Qinzhou, Guigang, Yulin, Nanning, Liuzhou District, Hezhou, Baise, Hechi"
X (21) = "Haikou, Sanya"
X (22) = "Chengdu, Mianyang, Deyang, Zigong, Panzhihua, Guangyuan, Neijiang, Leshan, Nanchong, Yibin, Guang ' An, Dakiang, Yaan, Meishan, Ganzi, Liangshan, Luzhou"
X (23) = "Guiyang, Liupanshui, Zunyi, Anshun, Tongren, siliceous cathodoluminescence, Bijie, Qiandongnan, Qiannan"
X (24) = "Kunming, Dali, Qujing, Yuxi, Zhaotong, Chuxiong, Honghe, Wenshan, Simao, Xishuangbanna, Baoshan, Dehong, Lijiang, Nu River, di Qing, Lincang"
X (25) = "Lhasa, Shigatse, Shannan, Linzhi, Qamdo, Ali, Qu"
X (26) = "Xian, Baoji, Xianyang, Tongchuan, Weinan, Yanan, Yulin, Hanzhong, Ankang, Shangluo"
X (27) = "Lanzhou, ka Yu Guan, jinchang, silver, Tianshui, Jiuquan, Zhangye, Wuwei, Dingxi, Longnan, Pingliang, Qingyang, Linxia, Gannan"
X (28) = "Yinchuan, Shizuishan, Wuzhong, Guyuan"
X (29) = "Xining, Haidong, Hainan, Hoi bei, Huangnan, Yushu, Goa, Hercynian"
X (30) = "Urumqi, Shihezi, Karamay, Ili, Bainguole, Changji, cumin, Bortala, Turpan, Hami, Kashgar, Hotan, Aksu"
X (31) = ""
X (32) = ""
X (33) = "Taipei, Kaohsiung, Taichung, Tainan, Pingdong, Nantou, Yunlin, Hsinchu, Changhua, Miaoli, Chiayi, Hualian, Taoyuan, Yilan, Keelung, Taidong, Kinmen, Matsu, Penghu"

function test (A,B)
Dim num,x1,i
Num =a.selectedindex
X1=split (x (num), ",")
B.options.length=ubound (x1) +1
For i = 0 To UBound (x1)
B.options (i)-text =x1 (i)
B.options (i). Value = X1 (i)
Next
End Function
-->
</script>
<body>
<select name= "A" onchange= "Vbscript:test a,b" >
<option value= 0 > Beijing </option>
<option value= 1 > Shanghai </option>
<option value= 2 > Tianjin </option>
<option value= 3 > Chongqing </option>
<option value= 4 > Hebei </option>
<option value= 5 > Shanxi </option>
<option value= 6 > Inner Mongolia </option>
<option value= 7 > Liaoning </option>
<option value= 8 > Jilin </option>
<option value= 9 > Heilongjiang </option>
<option value= > Jiangsu </option>
<option value= > Zhejiang </option>
<option value= > Anhui </option>
<option value= > Fujian </option>
<option value= > Jiangxi </option>
<option value= > Shandong </option>
<option value= > Henan </option>
<option value= > Hubei </option>
<option value= > Hunan </option>
<option value= > Guangdong </option>
<option value= > Guangxi </option>
<option value= > Hainan </option>
<option value= > Sichuan </option>
<option value= > Guizhou </option>
<option value= > Yunnan </option>
<option value= > Tibet </option>
<option value= > Shaanxi </option>
<option value= > Gansu </option>
<option value= > Ningxia </option>
<option value= > Qinghai </option>
<option value= > Xinjiang </option>
<option value= > Hong Kong </option>
<option value= > Macau </option>
<option value= > Taiwan </option>

</select>
<select name= "B" >
</select>
</body>

-->