<!--#include file=conn.asp-->
<%
dim name
name="xx"
set rs=server.CreateObject("adodb.recordset")  '建立recordset对象
sqlstr="select * from message"  'message为数据库中的一个数据表，即你要显示的数据所存放的数据表
rs.open sqlstr,conn,1,3         '表示打开数据库的方式

while not rs.eof
if rs.("name")=name then
rs.delete
rs.update              '查询数据表中的name字段的值是否等于变量name的值"xx"，如果符合就执行删除
else                   '否则继续查询,直到指针到末尾为止
rs.movenext
emd if
wend

rs.close
conn.close
set rs=nothing
set conn=nothing
%>