<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%
conn1.Open Application("p_jyzx")

%>


<object runat=server id=connpic progid="adodb.connection"></object>
<object runat="server" id="conn_qq" progid="adodb.connection"></object>
<%
connpic.Open Application("p_pic")
conn_qq.Open Application("p_qq")
%>


<%
user_name=Request("user_name")
set rs=server.createobject("adodb.recordset")
sql="delete * from vip_user where user_name='"&user_name&"'"
rs.open sql,conn1,3,2
set rs1=server.createobject("adodb.recordset")
sql="delete * from user where user_name='"&user_name&"'"
rs1.open sql,conn1,3,2
set rs2=server.createobject("adodb.recordset")
sql="delete * from user_info where user_name='"&user_name&"'"
rs2.open sql,conn1,3,2
'/////////////////////////////////////
set rs3=server.createobject("adodb.recordset")
sql="delete * from pic where user_name='"&user_name&"'"
rs3.open sql,connpic,3,2
sql="delete from sound where user_name='"&user_name&"'"
connpic.Execute(sql)

'////////////////////删除affiliate

sql="delete * from affiliate where user_name='"&user_name&"'"
conn1.Execute(sql)
sql="delete * from affiliate_link where user_name='"&user_name&"'"
conn1.Execute(sql)
sql="delete * from affiliate_intro where user_name='"&user_name&"'"
conn1.Execute(sql)
sql="delete * from affiliate_intro_vip where user_name='"&user_name&"'"
conn1.Execute(sql)
'////////////
sql="delete * from mark where user_name='"&user_name&"'"
conn1.Execute(sql)
sql="delete * from marry_public where user_name='"&user_name&"'"
conn1.Execute(sql)


'///////////////////////////
set rs4=server.createobject("adodb.recordset")
sql="delete * from mynote where user_name='"&user_name&"'"
rs4.open sql,conn1,3,2
set rs5=server.createobject("adodb.recordset")
sql="delete * from other_note where user_name='"&user_name&"'"
rs5.open sql,conn1,3,2
set rs6=server.createobject("adodb.recordset")
sql="delete * from ideal_friends where user_name='"&user_name&"'"
rs6.open sql,conn1,3,2
set rs7=server.createobject("adodb.recordset")
sql="delete * from online where user_name='"&user_name&"'"
rs7.open sql,conn1,3,2
'//////////////////////////删除聚会
sql="delete * from join_party where user_name='"&user_name&"'"
conn1.Execute(sql)
set rs8=server.createobject("adodb.recordset")
sql="delete * from party where initiate_people='"&user_name&"'"
rs8.open sql,conn1,3,2
set rs9=server.createobject("adodb.recordset")
sql="delete * from party_discuss where initiate_people='"&user_name&"'"
rs9.open sql,conn1,3,2
'////////////////////////删除QQ
sql="delete * from webicq where user_name='"&user_name&"'"
conn_qq.Execute(sql)
'///////////////////////////////////
if Request("id")=1 then
	Response.Redirect "hylist1.asp?last_time="&Request("last_time")
elseif Request("id")=2 then
	Response.Redirect "hylist2.asp"
elseif Request("id")=3 then
	Response.Redirect "show_search.asp"
elseif Request("id")=4 then
	Response.Redirect "binqi.asp"
end if
%>