[原创]可按类别分类选择的select控件（js,asp,html代码）

JS代码：

var classStu=new Array();
var oldforSelect='';
var oldchargerSelect='';
var newAddStu='';
//添加选择
function addItems()
//删除选择
//全选
//选定
//根据所选的班级展开学生列表
//设置学生选择栏为默认值

//显示已选学生

//显示已选学生默认值

//展开ID对应的班级学生列表
<%
Connect conn '建立连接
str="select Class_ID,Class_Name from Code_Class" '查询班级(分类类别数据）
GetRecordSet conn,rs,str '获取记录集"rs"

response.Write("<script language='javascript'>"&vbcrlf)
response.Write("var i=0;"&vbcrlf)
response.Write("var j=1;"&vbcrlf)

do while not rs.eof
response.Write("classStu[i]=new Array();"&vbcrlf)
response.Write("classStu[i][j]='"&rs("Class_ID")&","&rs("Class_Name")&"';"&vbcrlf)

'查询各分类的详细数据(此为各班的学生列表)=================================

str="Select Stu_ID,Stu_No,Stu_Name,'0' as state from Student_info where Class_ID="&rs("Class_ID") '查询未选的学生

str=str&" union "

str=str&"Select Stu_ID,Stu_No,Stu_Name,'1' as state from Student_info where Class_ID="&rs("Class_ID") '查询已选的学生

str=str&"group by Stu_ID,Stu_No,Stu_Name "
str=str&"order by Stu_No"

'查询各分类的详细数据结束=================================

GetRecordSet conn,rsStu,str '得到记录集

do while not rsStu.eof
response.Write("j+=1;"&vbcrlf)

response.Write("classStu[i][j]=new Array();"&vbcrlf)
response.Write("classStu[i][j][0]='"&rsStu("Stu_Id")&"';"&vbcrlf) '学生ID
response.Write("classStu[i][j][1]='"&rsStu("Stu_Name")&"';"&vbcrlf) '学生名字
response.Write("classStu[i][j][2]="&rsStu("state")&";"&vbcrlf) '状态位：0为未选，1为已选

rsStu.MoveNext
loop
rsStu.close
rs.MoveNext
response.Write("i+=1;"&vbcrlf)
response.Write("j=0;"&vbcrlf)
Loop
response.Write("</script>"&vbcrlf)
CloseRs rs
CloseRs rsStu
CloseConn conn
%>
HTLM代码：
<table width="100%" style="font-size:9pt;color:#000034">
<tr>
<td>
待选学生
<br>
<select name="forSelect" multiple style="height:230;width:200;color:#000034"

onDblClick="GetforSelect()">
</select>
全选/全不选<input type="checkbox" onclick="selectAll(this.checked,document.all.forSelect)">
</td>
<td>
<input type="button" value=" 增加 " onclick="addItems()">
<br>
<input type="button" value=" 删除 " onclick="removeItems()">
<br>
<input type="button" value=" 选定 " onclick="locate()">
</td>
<td>
已选学生
<br>
<select name="charger" multiple style="height:230;width:200;color:#000034"

onDblClick="GetchargerSelect()">
</select>
全选/全不选<input type="checkbox" onclick="selectAll(this.checked,document.all.charger)">
</td>
</tr>
</table>
<form action="SaveNewStu.asp" method="post" name="savaStu">
<input type="hidden" name="Filter"><!--保存选定的学生列表-->
</form>
</script>