<body bgcolor="#FFFFFF" text="#000000">
<%
Application.Lock
set dbConnect=Server.CreateObject("ADODB.Connection")
dbConnect.open "msgboard","",""
If request.form("hide")="ok"then
set msg=request.form("msg")
for each val in msg
dbConnect.Execute("Delete from msgboard where 编号="&val)
next
end if
%>
<form action="showboard.asp"method="post">
<input type="submit"value="删除"><input type="reset"value="重设">
<input type="hidden"name="hide"value="ok">
<font color=red>请选择以下项目,可多选</font>
<hr>
<%
SQL="select * from msgboard order by 编号 Desc"
set dbRS=dbConnect.Execute(SQL)
do while not dbRS.EOF
%>
<table Border=5>
<tr>
<td><b></b></td>
<td><b>编号</b></td>
<td><b>姓名</b></td>
<td><b>公司</b></td>
<td><b>部门职务</b></td>
<td><b>电话</b></td>
<td><b>传真</b></td>
<td><b>手机</b></td>
<td><b>地址</b></td>
</tr>
<td><input type="checkbox"name="msg"value=<%=dbRS("编号")%>>删除</td>
<td><b><%=dbRs("编号")%></b></td>
<td><b><%=dbRs("姓名")%></b></td>
<td><b><%=dbRs("公司")%></b></td>
<td><b><%=dbRs("部门职务")%></b></td>
<td><b><%=dbRs("电话")%></b></td>
<td><b><%=dbRs("传真")%></b></td>
<td><b><%=dbRs("手机")%></b></td>
<td><b><%=dbRs("地址")%></b></td>
<form>
</table>
<%
dbRS.MoveNext
Loop
%>
<input type="submit"value="删除"><input type="reset"value="重设">
<%
dbRS.close
dbConnect.Close
Application.Unlock
%>
</body>
</html>