ASP如何一次删除多条记录

Question

问题如下：我用表单提交数据，每条记录都有一个对应的复选框，一个全选的复选框和一个提交按钮！

代码如下：
<table width="92%" border="0" cellpadding="0" cellspacing="0" class="Load_Clew">
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from [News] ",conn,1,1
If rs.Bof And rs.Eof then
%>
<tr>
<td height="25" colspan="6" align="center" >暂无任何新闻</td>
</tr>
<%
Else
Dim Page
If Request.QueryString("Page")="" Then
Page=1
Else
Page=Cint(Request.QueryString ("Page"))
End If
TotalNote=rs.recordcount
rs.PageSize=10
If TotalNote Mod rs.PageSize=0 then
S=TotalNote \ rs.PageSize
Else
S=TotalNote \ rs.PageSize+1
End IF
rs.AbsolutePage=Page
Dim I
I=rs.PageSize
%>
<form name="News" method="post" action="News_Save.asp?Info=Del&NewsID=<%=rs("NewsID")%>">
<tr>
<td width="5%" height="25" align="center" >选 择</td>
<td width="33%" height="25" align="center" >新闻标题[中文]</td>
<td width="17%" height="25" align="center" >新闻关键字[中文]</td>
<td width="14%" height="25" align="center" >发布者</td>
<td width="11%" height="25" align="center" >浏览量</td>
<td width="20%" height="25" align="center" >发布时间</td>
</tr>
<%
Do While Not rs.Eof And I>0
I=I-1
%>
<tr>
<td height="25" align="center" ><input name="NewsID" type="checkbox" id="NewsID" value=<%=rs("NewsID")%>></td>
<td height="25" align="center" ><%=rs("NewsTitleCH")%><%=rs("NewsID")%></td>
<td height="25" align="center" ><%=rs("NewsKeyCH")%></td>
<td height="25" align="center" ><%=rs("AdminNick")%></td>
<td height="25" align="center" ><%=rs("NewsHots")%></td>
<td height="25" align="center" ><%=rs("AddTime")%></td>
</tr>
<%
rs.MoveNext
Loop
%>
<tr>
<td height="25" colspan="6" align="center" ><input type="checkbox" name="checkbox" value="Check All" onClick="All()">全选    <input name="Del" type="submit" id="Del" value="删除" onClick="return confirm('您确定要删除吗？')"></td>
</tr>
<tr>
<td height="25" colspan="6" align="center" >
<%
IF Page<=1 then
Response.Write"<font color='#999999' face=webdings title=首页>9</font><font color='#999999' face=webdings title=上页>7</font>"
Else
Response.Write"<a href='news.asp?Page=1'><font face=webdings title=首页>9</font></a><a href='news.asp?Page="&(Page-1)&"'><font face=webdings title=上页>7</font></a>"
End IF
For I=1 To rs.PageCount
If I=Page Then
Response.Write" "& I
Else
Response.Write"<a href='news.asp?Page=" & I & "'>" & I & "</a>"
End If
Next
IF Page>=S then
Response.Write"<font color='#999999' face=webdings title=下页>8</font><font color='#999999' face=webdings title=尾页>:</font>"
Else
Response.Write" <a href='news.asp?Page="&(Page+1)&"'><font face=webdings title=下页>8</font></a> <a href='news.asp?Page="&S&"'><font face=webdings title=尾页>:</font></a>"
End IF
%>
</td>
</tr>
</form>
</table>

Answer 1

kao