deluser2.asp

标准的小型企业网站程序

<!--#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


%>