<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<!--#include file="inc/char.asp"-->
<%dim usr,utype
usr=Trim(Request.QueryString("usr"))
utype=Trim(Request.QueryString("type"))

dim errmsg,founderr
founderr=false

if chkadmin=false or power(5)="0" then
	founderr=true
	errmsg=errmsg+"<li>您没有删除用户的权限</li>"
end if

if usr="admin" then
	founderr=true
	errmsg=errmsg+"<li>默认的管理员账号不能删除</li>"
end if

if founderr=false then
	conn.execute("delete from UserInfo where USR='"&usr&"'")
	dim gourl,msg
	gourl="user_list.asp?type="&utype&""
	msg="此用户已删除！"
	call ok()
else
	call error()
end if

conn.close
set conn=nothing%>