<%@ Language=VBScript %>
<%if Session("weight")<>5 then 
Response.Redirect "error.asp?cause=4"
 end if
%>
<object runat=server id=conn1 progid="adodb.connection"></object>
<%application.Lock
conn1.Open Application("p_jyzx")
Application.UnLock
%>
<%sql="delete from affiliate_intro where id="&Request("id")
conn1.Execute(sql)
sql="update affiliate set join_counter=join_counter-1 where user_name='"&Request("user_name")&"'"
conn1.Execute(sql)
Response.Redirect "affiliate_stat_join.asp?user_name="&Request("user_name")

%>