可以用循环语句:
<% 
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
%>