|
|
主题: 一个我写的生成中国民族列表的小东西
|
三仙半
职务：普通成员
等级：1
金币：0.0
发贴：241
|
#12006/2/8 17:47:29
这些日子做一个学籍管理系统，写了一个输入中国民族的选择列表，有需要的拿去。大家别再把精力浪费在这种苦力活中了，还是多点空闲学点高精尖的吧！
<script language="vbscript">
<!--
dim nationList(56)
nationList(0)="汉族"
nationList(1)="蒙古族"
nationList(2)="回族"
nationList(3)="藏族"
nationList(4)="维吾尔族"
nationList(5)="苗族"
nationList(6)="彝族"
nationList(7)="壮族"
nationList(8)="布依族"
nationList(9)="朝鲜族"
nationList(10)="满族"
nationList(11)="侗族"
nationList(12)="瑶族"
nationList(13)="白族"
nationList(14)="土家族"
nationList(15)="哈尼族"
nationList(16)="哈萨克族"
nationList(17)="傣族"
nationList(18)="黎族"
nationList(19)="傈僳族"
nationList(20)="佤族"
nationList(21)="畲族"
nationList(22)="高山族"
nationList(23)="拉祜族"
nationList(24)="水族"
nationList(25)="东乡族"
nationList(26)="纳西族"
nationList(27)="景颇族"
nationList(28)="柯尔克孜族"
nationList(29)="土族"
nationList(30)="达斡尔族"
nationList(31)="仫佬族"
nationList(32)="羌族"
nationList(33)="布朗族"
nationList(34)="撒拉族"
nationList(35)="毛南族"
nationList(36)="仡佬族"
nationList(37)="锡伯族"
nationList(38)="阿昌族"
nationList(39)="普米族"
nationList(40)="塔吉克族"
nationList(41)="怒族"
nationList(42)="乌孜别克族"
nationList(43)="俄罗斯族"
nationList(44)="鄂温克族"
nationList(45)="德昂族"
nationList(46)="保安族"
nationList(47)="裕固族"
nationList(48)="京族"
nationList(49)="塔塔尔族"
nationList(50)="独龙族"
nationList(51)="鄂伦春族"
nationList(52)="赫哲族"
nationList(53)="门巴族"
nationList(54)="珞巴族"
nationList(55)="基诺族"
's_nationList是对页面上的一个select对象的引用
sub addNation(s_nationList)
removeOption s_nationList,0
for i = 0 to 55
dim oOption
set oOption = document.createElement("option")
oOption.text = nationList(i)
oOption.value = i
s_nationList.add(oOption)
next
end sub
'按照参数hold指定的数值保留参数tagSelect指定的列表的前部条目，其余清除；hold大于原有条目数或为负数，不做任何操作
sub removeOption(tagSelect,hold)
if hold < 0 then exit sub
do until tagSelect.children.length <= hold
tagSelect.remove(tagSelect.children.length-1)
loop
end sub
-->
</script>
把上面这段代码放在<head></head>之间，然后在<body>的onload时间中调用它，传入参数就OK了。
闭起眼睛看人生
|
三仙半
职务：普通成员
等级：1
金币：0.0
发贴：241
|
#22006/3/15 0:47:57
挺实用的东西，真没人用吗？
闭起眼睛看人生
|
dzy82100309
职务：普通成员
等级：1
金币：0.0
发贴：3
|
#32006/3/24 10:18:34
辛苦啦！
|
三仙半
职务：普通成员
等级：1
金币：0.0
发贴：241
|
#42006/3/25 15:37:03
dzy82100309：谢谢呀！这只是小菜，想抄一个类似阿里巴巴的哪个登记籍贯的东西，两天（16小时）还没搞定。烦！等搞好了也来这里发一下，不希望大家都反复地搞这样的东西。
闭起眼睛看人生
|
dchkin
职务：普通成员
等级：1
金币：0.0
发贴：1
|
#52006/3/25 16:17:19
辛苦啦！
|
蓝鲸
职务：版主
等级：5
金币：42.1
发贴：2614
|
#62006/3/28 22:14:00
鼓励原创的东西，想当初自己写一个很小的vb程序都很高兴
不断动脑写一些自己的东西，水平会提高很快
非常大鱼
|
Steveson
职务：普通成员
等级：1
金币：0.0
发贴：68
|
#72006/3/29 10:47:21
看过了，学习了,支持了
哈哈，楼主谢谢了
|
