<%
if request("delete")="yes" then
dim conn
dim rs
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open "dsn=test;uid=sa;pwd="
rs.open "delete from tablename where id"=request("id"),conn,2,3,1
response.write "删除成功"
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<script language=javascript>
window.opener.location.reload(true);
</script>
<%
end if
%>