<form method="POST" action="setdatait_setbankuai.asp" style="border-style: dotted; border-width: 1px">
<td><%
if rsxiugai.EOF and rsxiugai.BOF then
response.write ("无分类")
else
Do Until rsxiugai.EOF
%><input type="checkbox" name="id" value="<%=rsxiugai("id")%>" style="border-style: dotted; border-width: 1px">版块名称:<%=rsxiugai("daleibie")%>
<input type="text" name="daleibiename<%=rsxiugai("id")%>" size="8" style="border-style: dotted; border-width: 1px" value="<%=rsxiugai("daleibie")%>"> 是否对游客开放:<%
if rsxiugai("quanxian")="0" then
response.write ("是")
else
end if
if rsxiugai("quanxian")="1" then
response.write ("否")
else
end if
%><select size="1" name="quanxian<%=rsxiugai("id")%>">
<option value="0" <%if rsxiugai("quanxian")="0" then response.write "selected" end if %>>是
</option>
<option value="1" <%if rsxiugai("quanxian")="1" then response.write "selected" end if %>>否
</option>
</select> 版块位置:<%=rsxiugai("bankuaidepaixu")%> 位置:<input type="text" name="bankuaidepaixu<%=rsxiugai("id")%>" size="5" style="border-style: dotted; border-width: 1px" value="<%=rsxiugai("bankuaidepaixu")%>"><br>
<%
rsxiugai.MoveNext
Loop
end if
%><input type="submit" value="更新数据" name="tijiao"></td>
</form>
接收页
dim id
id=request.Form("id")
nid=split(id,",")
eid=ubound(nid)
for i = 1 to eid
dim rs,sql
set rs=server.CreateObject("adodb.recordset")
sql="select * from c_daleibie where id="&nid(i)&""
rs.open sql,conn,1,3
rs("daleibie")=request.Form("daleibiename"&nid(i))
rs("quanxian")=request.Form("quanxian"&nid(i))
rs("bankuaidepaixu")=request.Form("bankuaidepaixu"&nid(i))
rs.update
rs.close
set rs=nothing
next
參考答案:50分还可以帮忙
