复选框取值
这是用到的两个数据表<%call CheckLogin()
set RS_KCLB=Server.CreateObject("ADODB.Recordset")
RS_KCLB_SQL="select * from kcfl ORDER BY KCLBID ASC"
RS_KCLB.open RS_KCLB_SQL,conn,1,1
if RS_KCLB.Recordcount<>0 then
set RS=Server.CreateObject("ADODB.Recordset")
SQL="select * from 教师表_teacher where kcfl='"&RS_KCLB("KCLBID")&"' and sfks='1' ORDER BY ID ASC"
RS.open SQL,conn,1,1
if RS.Recordcount<>0 then
i=1
do while not RS.eof
这是复选框代码 <input type="checkbox" name="kcid<%=i%>" value="<%=rs("id")%>">
[ 本帖最后由 Micat 于 2010-9-5 12:23 编辑 ]