<%Response.CacheControl = "Private" response.expires=0 myid=Session("myid") myname=Session("myname") application.lock call get_guests if myid="" or myname="" then response.end if myname<>guests(myid,0) or Session("mytemp")<>guests(myid,1) then response.end username=trdb(request("suser")) set rs=conn.execute("SELECT friends FROM user WHERE username='" & myname & "'") if not (rs.eof or rs.bof) then mynamefriends=replace(" "&trim(rs("friends"))&" "," "&username&" "," ") conn.execute("update user set friends='"&mynamefriends&"' WHERE username='" & myname & "'") end if set rs=conn.execute("SELECT friends FROM user WHERE username='" & username & "'") if not (rs.eof or rs.bof) then usernamefriends=replace(" "&trim(rs("friends"))&" "," "&myname&" "," ") conn.execute("update user set friends='"&usernamefriends&"' WHERE username='" & username & "'") end if call echoerr("你成功将"&username&"从你的好友名单里删除！","userinfo.asp?name="&username) rs.close set rs=nothing conn.close set conn=nothing%>