asp 操作 ACCESS

a.asp(以下代码在a.asp)
<!--#include file="资料库连接页面.asp"-->
<%
<!--点循环中的任意一笔资料,都可以删除所点选的那笔资料 开始-->
if request("action")="del" then
id=request("id")
sql="delete form B where id="&id&""
conn.execute(sql)
response.write"<script>alert('删除成功!');window.location='a.asp'</script>"
end if
<!--点循环中的任意一笔资料,都可以删除所点选的那笔资料 结束-->
set rs=server.createobject("adodb.recordset")
sql="select * from B order by id desc" '打开B表并自动排序
rs.open sql,conn,1,1
do while not rs.eof '循环显示B表的资料
%>
<table><tr>
<td><%=rs("id")%></td>
<td><a href=a.asp?action=del&id=<%=rs("id")%>>删除</a></td>
</tr></table>
<%
rs.movenext
if rs.eof then exit do
loop
rs.close
set rs=