就这一个:四级连动下拉框,数据库.觉得500分不够,我再加!
---------------------------------------------------------------
测试下基本通过,有bug请说.
1<html>
2<head>
3<meta content="text/html; charset=utf-8" http-equiv="Content-Type"/>
4<meta content="Microsoft FrontPage 4.0" name="GENERATOR"/>
5<meta content="FrontPage.Editor.Document" name="ProgId"/>
6<title>多级关联菜单数据库版</title>
7<!--
8数据库:test.mdb
9表:dbselect
10表结构:id(自增) school(文本) department(文本) grade(文本) student(文本)
11IE6,NS7,Mozilla下测试通过
12\-->
13</head>
14<body>
15<form name="frm">
16<select name="school" onchange="MulSelect(1)"></select>
17<select name="department" onchange="MulSelect(2)"></select>
18<select name="grade" onchange="MulSelect(3)"></select>
19<select name="student"></select>
20</form>
21<script>
22var arrSel=["school","department","grade","student"]
23arrData=[];
dim conn,rs
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.mappath("test.mdb") & ";Persist Security Info=False"
set rs=conn.execute("select * from dbselect")
do while not rs.eof
1arrData[arrData.length]=["```
2=trim(rs("school"))
3```","```
4=trim(rs("department"))
5```","```
6=trim(rs("grade"))
7```","```
8=trim(rs("student"))
9```"]
rs.movenext
loop
rs.close:set rs=nothing
conn.close:set conn=nothing
1</script>
2<script>
3function MulSelect(num){
4var find=false
5var i,j,arrTemp=[];
6for(i=0;i<num;i++)arrTemp[i]=eval("document.frm."+arrSel[i]).value
7if(num<arrSel.length)
8with(eval("document.frm."+arrSel[num])){
9length=0
10for(i=0;i<arrData.length;i++){
11for(j=0;j<num;j++)if(arrTemp[j]!=arrData[i][j])break;
12if(j!=num)continue;
13if(length==0 ¦ ¦options[length-1].text!=arrData[i][num]){
14for(m=0;m<options.length;m++)if(options[m].text==arrData[i][num])find=true
15if(!find)options[options.length]=new Option(arrData[i][num],arrData[i][num])
16}
17}
18MulSelect((num+1))
19}
20}
21MulSelect(0)
22</script>
23</body>
24</html>