下拉与复选,该怎么处理

下拉与复选
下拉与复选

请高手帮帮忙：将数据表中的学生用下拉框选择，同时在选取后，返回值在复选框中表示出来，并请尽量说明代码，谢谢！


学生 数学 语文 物理 化学 生物 语言 素描 品德
-------------------------
张涛 领 未 未 未 未 未 未 未
李玉 领 领 领 领 未 未 未 未
何不 领 未 领 未 未 未 领 未

------解决方案--------------------
1.值列表
Dim gendertype:gendertype=array("未设置","男","女")
2.打印性别过程
Sub writeGenderOption(strVal)
Dim outString
for N=0 to UBound(gendertype)
outString=outString&"<option value='"&N&"'"
if strVal<>false AND strVal=N then outString=outString&" selected='selected'"
outString=outString &">"&gendertype(N)&"</option>"
next
Response.Write outString
End Sub
3.用数据值填充
<%Call writeGenderOption(strRs("gender"))%>