*************************Óû§×Ôɱ*************************

<%'deleteuser.ASP%>

************************×Ôɱ´¦Àí***************************

<%'deleteusercl.ASP%>

<%response.buffer = true%>

<%

set conn=createobject("adodb.connection")

conn.open "chat","chat","chat001"

dim sc_name,sc_pass,sc_flag

sc_flag = 0

sc_name = replace(trim(request.form("name")),"<","<")

sc_pass = request.form("pass")

sql1 = "select user_password from user_info_table where user_name='" + sc_name + "'"

set rs=conn.execute(sql1)

if rs.eof then

sc_flag = 1

else

if trim(sc_pass)<>trim(rs(0)) then

sc_flag = 2

rs.close

end if

end if

if sc_flag = 0 then

sql1 = "delete user_info_table where user_name='" + sc_name + "'"

set rs=conn.execute(sql1)

sql1 = "delete user_bq_table where user_name='" + sc_name + "'"

set rs=conn.execute(sql1)

sql1 = "delete user_acction_table where user_name='" + sc_name + "'"

set rs=conn.execute(sql1)

sql1 = "delete user_hello_table where user_name='" + sc_name + "'"

set rs=conn.execute(sql1)

sql1 = "delete user_friend_table where user_name='" + sc_name + "'"

set rs=conn.execute(sql1)

end if

select case sc_flag

case 0

response.redirect "deleteuserok.ASP"

case 1

response.redirect "deleteuserno.ASP"

case 2

response.redirect "deleteuserps.ASP"

end select

conn.close

%>

************************×Ôɱ³É¹¦****************************

<%'deleteuserok.ASP%>

alt="jxw_fail.gif (2499 bytes)">Å飡Å飡£¡É±Éí³ÉÈÊ£¡ÉáÉúÈ¡Ò壡£¡