<% '========================================================= ' File: friendlist.asp ' Version:5.0 ' Date: 2002-9-11 ' Script Written by satan '========================================================= ' Copyright (C) 2001,2002 AspSky.Net. All rights reserved. ' Web: http://www.aspsky.net,http://www.dvbbs.net ' Email: info@aspsky.net,eway@aspsky.net '========================================================= dim msg if not founduser then errmsg=errmsg+"
"+"

您没有登录。" founderr=true end if stats="好友列表" call nav() if founderr=true then call head_var(2,0,"","") call dvbbs_error() else call head_var(0,0,membername & "的控制面板","usermanager.asp") %>

控制面板首页	基本资料修改	用户密码修改	联系资料修改	用户短信服务	编辑好友列表	用户收藏管理

<% select case request("action") case "info" call info() case "addF" call addF() case "saveF" call saveF() case "删除" call DelFriend() case "清空好友" call AllDelFriend() case else call info() end select if founderr then call dvbbs_error() end if call activeonline() call footer() sub info() %>

<% set rs=server.createobject("adodb.recordset") sql="select F.*,U.useremail,U.homepage,U.oicq from Friend F inner join [user] U on F.F_Friend=U.username where F.F_username='"&trim(membername)&"' order by F.f_addtime desc" rs.open sql,conn,1,1 if rs.eof and rs.bof then %> <%else%> <%do while not rs.eof%> <% rs.movenext loop end if rs.close set rs=nothing %>

姓名	邮件	主页	OICQ	发短信	操作
您的好友列表中没有任何内容。
" target=_blank><%=htmlencode(rs("F_friend"))%>	"><%=htmlencode(rs("useremail"))%>	" target=_blank><%=htmlencode(rs("homepage"))%>	<%=htmlencode(rs("oicq"))%>	">发送	>
选中所有显示记录

<% end sub sub delFriend() dim delid delid=replace(request.form("id"),"'","") delid=replace(delid,";","") delid=replace(delid,"--","") delid=replace(delid,")","") if delid="" or isnull(delid) then Errmsg=Errmsg+"

"+"请选择相关参数。" founderr=true exit sub else conn.execute("delete from Friend where F_username='"&trim(membername)&"' and F_id in ("&delid&")") sucmsg=sucmsg+"
"+"

您已经删除选定的好友记录。" call dvbbs_suc() end if end sub sub AllDelFriend() conn.execute("delete from Friend where F_username='"&trim(membername)&"'") sucmsg=sucmsg+"
"+"

您已经删除了所有好友列表。" call dvbbs_suc() end sub sub addF() %>

加入好友--请完整输入下列信息
好友：	">  使用逗号（,）分开，最多5位用户

<% end sub sub saveF() dim incept if request("touser")="" then errmsg=errmsg+"
"+"

您忘记填写发送对象了吧。" founderr=true exit sub else incept=checkStr(request("touser")) incept=split(incept,",") end if for i=0 to ubound(incept) set rs=server.createobject("adodb.recordset") sql="select username from [user] where username='"&incept(i)&"'" set rs=conn.execute(sql) if rs.eof and rs.bof then errmsg=errmsg+"
"+"

论坛没有这个用户，操作未成功。" founderr=true exit sub end if set rs=nothing if membername=trim(incept(i)) then errmsg=errmsg+"
"+"

不能把自已添加为好友。" founderr=true exit sub end if sql="select F_friend from friend where F_username='"&membername&"' and F_friend='"&incept(i)&"'" set rs=conn.execute(sql) if rs.eof and rs.bof then sql="insert into friend (F_username,F_friend,F_addtime) values ('"&membername&"','"&trim(incept(i))&"',Now())" conn.execute(sql) end if if i>4 then errmsg=errmsg+"
"+"

每次最多只能添加5位用户，您的名单5位以后的请重新填写。" founderr=true exit sub exit for end if next sucmsg=sucmsg+"
"+"

恭喜您，好友添加成功。" call dvbbs_suc() end sub %>