<!--#include file=conn.asp-->
<%
dim name,message,sql
  name=trim(request("username"))
  if(session("admin")=name) then
  message="自己不能刪除自己的賬號！"
	else
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [admin] where username='"&name&"'",conn,1,1
if rs.eof or rs.bof then
call usererr()
else
 sql="delete * from admin where username='"&name&"'"
	 conn.Execute(sql)
 rs.close
set rs=nothing
message="刪除成功！"
sub usererr()
message="對不起,此用戶名不存在!"
end sub
end if
end if
response.redirect"deluser.asp?message="&message


%>