id=request("id")
if id="" then
Response.Write "alert('参数错误!');document.location.href('Admin_Manage.asp');"
Response.End()
end if
set rs=server.createobject("adodb.recordset")
rs.open "Select * from Zm_Admin where id="&Request("id"),conn,1,3
if rs.bof and rs.eof then
Response.Write "alert('数据库中没有该记录！');document.location.href('Admin_Manage.asp');"
Response.End()
else
rs.Delete
rs.Update
Response.Write "alert('成功删除指定的信息！');document.location.href('Admin_Manage.asp');"
end if
%>
