我copy我现在用着的代码给你吧,,,
<tr>
<td width="61" height="35" align="center"><font face="新宋体">
<span lang="zh-cn">系别</span></font></td>
<td width="77" height="35" align="center"><font face="新宋体">
<span lang="zh-cn">班级</span></font></td>
<td width="75" height="35" align="center"><font face="新宋体">
<span lang="zh-cn">人数</span></font></td>
</tr>
<%
dim tname,sql,rs
tname=checkstr(session("username"))
sql="select txib,tzy,tclass,tnum,txqs from teaching where tname='"&tname&"' order by tname"
set rs= Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
%>
<tr><center>暂时还没有您任教的班级.<br>或你登陆过时,请重新<a href=login.asp target="_blank">登陆</a>!</center></tr>
<%
response.end
rs.close
set rs=nothing
call closedatabase()
end if
'找出全部任课的班级 系别 + 班级 + 人数
if rs.recordcount>0 then rs.movefirst
for i=1 to rs.recordcount
<tr>
<td width="61" height="35" align="center"><font face="新宋体">
<span lang="zh-cn">系别</span></font></td>
<td width="77" height="35" align="center"><font face="新宋体">
<span lang="zh-cn">班级</span></font></td>
<td width="75" height="35" align="center"><font face="新宋体">
<span lang="zh-cn">人数</span></font></td>
</tr>
<%
dim tname,sql,rs
tname=checkstr(session("username"))
sql="select txib,tzy,tclass,tnum,txqs from teaching where tname='"&tname&"' order by tname"
set rs= Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof or rs.bof then
%>
<tr><center>暂时还没有您任教的班级.<br>或你登陆过时,请重新<a href=login.asp target="_blank">登陆</a>!</center></tr>
<%
response.end
rs.close
set rs=nothing
call closedatabase()
end if
'找出全部任课的班级 系别 + 班级 + 人数
if rs.recordcount>0 then rs.movefirst
for i=1 to rs.recordcount
每一个用
<input type=checkbox name=id value=<%=rs("id")%>
然后后面的
<input type=text name=aa(<%=rs("id")%>) value=..>
...
处理的时候用
for each item in request("id")
request("aa("&cstr(item)&")")来取得每一个的暑假
next