<%Function AddToFriend(friendnickname) :Dim friendlist :Dim sql,rs:Set rs=SoonBiz.execute("select user_friend from "& sheethead &"_user where id="&SoonBiz.user_id)
If SoonBiz.ins(rs(0),friendnickname)>0 Then 
Rs.close:set Rs=nothing:Exit Function
Else:friendlist=rs(0):Rs.close:set Rs=nothing
End If
If len(friendlist)=0 Then
friendlist=friendnickname
Else:friendlist=friendlist &","& friendnickname
End If:sql="update "& sheethead &"_user set user_friend='"& SoonBiz.Checkstr(friendlist) &"' where id="&SoonBiz.user_id:SoonBiz.execute(sql):End Function
%>