rs.open strSql,conn,1,1
if not rs.eof then
intRecordCount=rs.RecordCount '结果集的条目数
Dim inti
inti=0
do while not rs.eof
%>
<TR>
<TD><%=rs("ColorNo")%>
<INPUT TYPE="hidden" Name="hidColorNo<%=inti%>" value="<%=rs("ColorNo")%>"><!-- 利用hidden将结果集循环输出,以便点击submit时做比对。 --></TD>
<TD><%=rs("Model")%>
<INPUT TYPE="hidden" Name="hidModel<%=inti%>" value="<%=rs("Model")%>"></TD>
<TD><INPUT TYPE="checkbox" NAME="chk<%=inti%>"></TD>
</TR>
<%
inti=inti+1
rs.movenext
loop
end if
rs.close
%>
</table><BR>
<INPUT TYPE="button" value="Submit" onclick="ock_check(<%=intRecordCount%>)">