最近在看的程序有一段vbscript 代码,我还没有接触过,
请大家给我解释下。大体就是一个选择省市的单选框 ,相关如下<SCRIPT language=vbscript>
public x(33)
x(0)="东城,西城,崇文,宣武,朝阳,丰台,石景山,海淀,门头沟,房山,通州,顺义,昌平,大兴,平谷,怀柔,密云,延庆"
x(1)="黄浦,卢湾,徐汇,长宁,静安,普陀,闸北,虹口,杨浦,闵行,宝山,嘉定,浦东,金山,松江,青浦,南汇,奉贤,崇明"
x(2)="和平,东丽,河东,西青,河西,津南,南开,北辰,河北,武清,红挢,塘沽,汉沽,大港,宁河,静海,宝坻,蓟县"
x(3)="万州,涪陵,渝中,大渡口,江北,沙坪坝,九龙坡,南岸,北碚,万盛,双挢,渝北,巴南,黔江,长寿,綦江,潼南,铜梁,大足,荣昌,壁山,梁平,城口,丰都,垫江,武隆,忠县,开县,云阳,奉节,巫山,巫溪,石柱,秀山,酉阳,彭水,江津,合川,永川,南川"
x(4)="石家庄,邯郸,邢台,保定,张家口,承德,廊坊,唐山,秦皇岛,沧州,衡水"
x(5)="太原,大同,阳泉,长治,晋城,朔州,吕梁,忻州,晋中,临汾,运城"
x(6)="呼和浩特,包头,乌海,赤峰,呼伦贝尔,阿拉善盟,通辽,兴安盟,乌兰察布,锡林郭勒盟,巴彦淖尔,鄂尔多斯"
x(7)="沈阳,大连,鞍山,抚顺,本溪,丹东,锦州,营口,阜新,辽阳,盘锦,铁岭,朝阳,葫芦岛"
x(8)="长春,吉林,四平,辽源,通化,白山,松原,白城,延边"
x(9)="哈尔滨,齐齐哈尔,牡丹江,佳木斯,大庆,绥化,鹤岗,鸡西,黑河,双鸭山,伊春,七台河,大兴安岭"
x(10)="南京,镇江,苏州,南通,扬州,盐城,徐州,连云港,常州,无锡,宿迁,泰州,淮安"
x(11)="杭州,宁波,温州,嘉兴,湖州,绍兴,金华,衢州,舟山,台州,丽水"
x(12)="合肥,芜湖,蚌埠,马鞍山,淮北,铜陵,安庆,黄山,滁州,宿州,池州,淮南,巢湖,阜阳,六安,宣城,亳州"
x(13)="福州,厦门,莆田,三明,泉州,漳州,南平,龙岩,宁德"
x(14)="南昌市,景德镇,九江,鹰潭,萍乡,新馀,赣州,吉安,宜春,抚州,上饶"
x(15)="济南,青岛,淄博,枣庄,东营,烟台,潍坊,济宁,泰安,威海,日照,莱芜,临沂,德州,聊城,滨州,菏泽"
x(16)="郑州,开封,洛阳,平顶山,安阳,鹤壁,新乡,焦作,濮阳,许昌,漯河,三门峡,南阳,商丘,信阳,周口,驻马店,济源"
x(17)="武汉,宜昌,荆州,襄樊,黄石,荆门,黄冈,十堰,恩施,潜江,天门,仙桃,随州,咸宁,孝感,鄂州"
x(18)="长沙,常德,株洲,湘潭,衡阳,岳阳,邵阳,益阳,娄底,怀化,郴州,永州,湘西,张家界"
x(19)="广州,深圳,珠海,汕头,东莞,中山,佛山,韶关,江门,湛江,茂名,肇庆,惠州,梅州,汕尾,河源,阳江,清远,潮州,揭阳,云浮"
x( 20 )="南宁,柳州,桂林,梧州,北海,防城港,钦州,贵港,玉林,南宁地区,柳州地区,贺州,百色,河池"
x( 21 )="海口,三亚"
x( 22 )="成都,绵阳,德阳,自贡,攀枝花,广元,内江,乐山,南充,宜宾,广安,达川,雅安,眉山,甘孜,凉山,泸州"
x( 23 )="贵阳,六盘水,遵义,安顺,铜仁,黔西南,毕节,黔东南,黔南"
x( 24 )="昆明,大理,曲靖,玉溪,昭通,楚雄,红河,文山,思茅,西双版纳,保山,德宏,丽江,怒江,迪庆,临沧"
x( 25 )="拉萨,日喀则,山南,林芝,昌都,阿里,那曲"
x( 26 )="西安,宝鸡,咸阳,铜川,渭南,延安,榆林,汉中,安康,商洛"
x( 27 )="兰州,嘉峪关,金昌,白银,天水,酒泉,张掖,武威,定西,陇南,平凉,庆阳,临夏,甘南"
x( 28 )="银川,石嘴山,吴忠,固原"
x( 29 )="西宁,海东,海南,海北,黄南,玉树,果洛,海西"
x( 30 )="乌鲁木齐,石河子,克拉玛依,伊犁,巴音郭勒,昌吉,克孜勒苏柯尔克孜,博尔塔拉,吐鲁番,哈密,喀什,和田,阿克苏"
x( 31 )=""
x( 32 )=""
x( 33 )="台北,高雄,台中,台南,屏东,南投,云林,新竹,彰化,苗栗,嘉义,花莲,桃园,宜兰,基隆,台东,金门,马祖,澎湖"
function test(a,b)
dim num,x1,i
num =a.selectedIndex
x1=split(x(num-1),",")
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>
来自地方:<SELECT class=inp id="ss" onchange="vbscript:test me,dq" name="ss">
              <OPTION selected value="">请选择省市</OPTION> <OPTION value=0>北京</OPTION> 
  <OPTION value=1>上海</OPTION> <OPTION value=2>天津</OPTION> 
  <OPTION value=3>重庆</OPTION> <OPTION value=4>河北</OPTION> 
  <OPTION value=5>山西</OPTION> <OPTION value=6>内蒙古</OPTION> 
  <OPTION value=7>辽宁</OPTION> <OPTION value=8>吉林</OPTION> 
  <OPTION value=9>黑龙江</OPTION> <OPTION value=10>江苏</OPTION> 
  <OPTION value=11>浙江</OPTION> <OPTION value=12>安徽</OPTION> 
  <OPTION value=13>福建</OPTION> <OPTION value=14>江西</OPTION> 
  <OPTION value=15>山东</OPTION> <OPTION value=16>河南</OPTION> 
  <OPTION value=17>湖北</OPTION> <OPTION value=18>湖南</OPTION> 
  <OPTION value=19>广东</OPTION> <OPTION value=20>广西</OPTION> 
  <OPTION value=21>海南</OPTION> <OPTION value=22>四川</OPTION> 
  <OPTION value=23>贵州</OPTION> <OPTION value=24>云南</OPTION> 
  <OPTION value=25>西藏</OPTION> <OPTION value=26>陕西</OPTION> 
  <OPTION value=27>甘肃</OPTION> <OPTION value=28>宁夏</OPTION> 
  <OPTION value=29>青海</OPTION> <OPTION value=30>新疆</OPTION> 
  <OPTION value=31>香港</OPTION> <OPTION value=32>澳门</OPTION> 
  <OPTION value=33>台湾</OPTION> 
  </SELECT> 
  <SELECT class=inp name="dq" id="dq">
      <OPTION selected>请选择地区 </OPTION>
  </SELECT>
  <SELECT class=inp name="xq" id="xq">
      <OPTION selected>请选择地区</OPTION>
  </SELECT>:<input type="text" name="dz" id="dz" style="width: 200px;" onblur="findUsernameIsExist();"> 
    <br><br>
下面这一段,每一句分别是什么意思呢?谢谢
function test(a,b)
dim num,x1,i
num =a.selectedIndex
x1=split(x(num-1),",")
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

解决方案 »

  1.   

    1,来自地方:<SELECT class=inp id="ss" onchange="vbscript:test me,dq" name="ss">这里的onchange变化联动调用test(a,b)方法
    2,function test(a,b)//声明方法test'
    dim num,x1,i//模糊定义三个变量
    num =a.selectedIndex//num==a对象的选择游标
    x1=split(x(num-1),",")//x是上面的数组==split(x数组-1,用逗号分隔
    b.options.length=ubound(x1)+1//b对象的选项的长度====
    For i = 0 to ubound(x1)//循环FOR
    b.options(i).text =x1(i)//b对象的选项的text文本html里面的
    b.options(i).value = x1(i)//b对象的选项的value文本html里面的
    next  //继续循环,循环FOR
    end function//方法完毕test'
    3你的帖子发错地方了.这里是java,不是VB专区.呵呵
      

  2.   


    function test(a,b)//定义一个函数
    dim num,x1,i  //定义了几个变量
    num =a.selectedIndex //获取选中的索引值
    x1=split(x(num-1),",") //取出x(num-1)元素,用“,”进行分割,分割成数组。
    b.options.length=ubound(x1)+1//ubound用于确定数组的大小
    For i = 0 to ubound(x1)//循环,下面很好看了,都是赋值
    b.options(i).text =x1(i)
    b.options(i).value = x1(i)
    next  
    end function
      

  3.   

    js 还能看懂  vb了  帮不了忙!