可以用循环语句:
<%
While ((Repeat1__numRows <> 0) AND (NOT r.EOF))
if request.form("check"&r.fields.item("n")=1 then
r.delete
else %>
<tr>
<td align="center" bgcolor="#FFF4FF"><%=(r.Fields.Item("nm"
.value)%></td>
<td align="center" bgcolor="#FFF4FF"><%=(r.Fields.Item("tt"
.value)%></td>
<td align="center" bgcolor="#FFF4FF"><A HREF="guestedit.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "tt=" & r.Fields.Item("tt"
.value %>">修改</A> <A HREF="guestreply.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "tt=" & r.Fields.Item("tt"
.value %>">回复</A></td>
<td align="center" bgcolor="#FFF4FF"><input name="check<%=r.fields.item("n"
%>" type="checkbox" id="check<%=r.fields.item("n"
%>" value="1" /></td>
</tr>
<%
end if Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
r.MoveNext()
Wend
%>