<!--#Include File="include/access.asp"-->
<!--#Include file="include/conn.asp"-->
<%
'------删除类别
userName=Request.QueryString("userName")
getConn()
'删除该用户创建的联系人
conn.execute ("delete from MessageBook where UserName='"&userName&"'")
'删除该用户创建的类别
conn.execute ("delete from Class where UserName='"&userName&"'")
'删除该用户
conn.execute ("delete from UserInfo where UserName='"&userName&"'")
errmsg="用户删除成功！"
returnURL="admin.asp"
Set conn=Nothing
%>
<HTMl>
<HEAD>
<META http-equiv="Refresh" content='1;URL=<%=returnURL%>'>
<META http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY>
<P align="center"><%=errmsg%>
</BODY>
</HTMl>
