電子工業出版社 JEUISHING HOUSE DF ELECTRONCS INDSTR Dim idCollection Do While not rsUsers. eof 将用户所选中的所有记录的id号存放在 coLlection变量中,用","作为分隔符 idCollection=idCollection rsUsers(id)& <td width="70><% =rsUsers("username")%></td> <td width=121"><% =rsUsers(phone)%></td> <td width="143"><% =rsUsers(email")%>/td> td> !一-在每条记录后添加一个检查框,供用户选定记录 Input name="chk No<% =rsUsers (id")%> type="checkbox"> rsUsers. MoveNex End If rsUsers. Close Set rsUsers=Nothing 将 coLlection贮存在一个隐藏对象中,以传递给下一个页面 Response Write(<input type=hidden name='hidIdCollection' value="& idCollection &">") < input type=" submit" value="删除记录" </form> </html> delete record.asp程序流程如下图15.13所示:<% Dim idCollection Do While Not rsUsers.Eof '将用户所选中的所有记录的id号存放在idCollection变量中,用","作为分隔符 idCollection=idCollection & rsUsers("id") & "," %> <tr> <td width="70"><% =rsUsers("username") %></td> <td width="121"><% =rsUsers("phone") %></td> <td width="143"><% =rsUsers("email") %></td> <td> <!--在每条记录后添加一个检查框，供用户选定记录--> <input name="chkNo<% =rsUsers("id") %>" type="checkbox"> </td> </tr> <% rsUsers.MoveNext Loop End If rsUsers.Close Set rsUsers=Nothing '将idCollection贮存在一个隐藏对象中，以传递给下一个页面 Response.Write("<input type='hidden' name='hidIdCollection' value=" & idCollection & ">") %> </table> <input type="submit" value="删除记录"> </form> </body> </html> delete_record.asp 程序流程如下图 15.13 所示：