<%
dim id,conn,dbpath,rs_friend,sql
id=request("id")
user_id=request("user_id")

Set conn=Server.CreateObject("ADODB.CONNECTION")
conn.open Application("sjjh_usermdb")

set rs_apply=server.createobject("adodb.recordset")
sql="delete * from apply where id =" & id
rs_apply.open sql,conn,3,2


set rs_lar=server.createobject("adodb.recordset")
sql="select * from larchives where user_id=" & Session("sjjh_id")
rs_lar.open sql,conn,3,2
if rs_lar.eof and rs_lar.bof then response.write "dasdfasd"
set rs_back=server.createobject("adodb.recordset")
rs_back.open "select * from back",conn,3,2

rs_back.addnew
rs_back("user_id")=Session("sjjh_id")
rs_back("for_id")=user_id
rs_back("name")=rs_lar("name")
rs_back("sex")=rs_lar("sex")
rs_back("netname")=rs_lar("netname")
rs_back("home")=rs_lar("home")
rs_back("result")="ѽ"
rs_back("back_date")=date
rs_back.update

set rs_lar=server.createobject("adodb.recordset")
sql="select * from larchives where user_id=" & user_id
rs_lar.open sql,conn,3,2
set rs_friend=server.createobject("adodb.recordset")
rs_friend.open "friend",conn,3,2
rs_friend.addnew
rs_friend("for_id")=Session("sjjh_id")
rs_friend("user_id")=user_id
rs_friend("netname")=rs_lar("netname")
rs_friend("sex")=rs_lar("sex")
rs_friend("home")=rs_lar("home")
rs_friend.update

rs_back.close
rs_lar.close
response.redirect "your.asp"
%>