friendlist.asp

酷虎网同学录V1.0

<!--#INCLUDE FILE="setup.asp" -->
<!--#include file="char.asp"-->
<!--#include file="checkuser.asp" -->
<!--#include file="theme.asp"-->
<%locat="我的好友"
%>
<script language="javascript">
function DoTitle(addTitle) { 
var revisedTitle; 
var currentTitle = document.messager.touser.value; 
revisedTitle = currentTitle+addTitle; 
document.messager.touser.value=revisedTitle; 
document.messager.touser.focus(); 
return; }
</script>
<%

dim msg,errmsg

if membername="" then
  	errmsg=errmsg+"<br>"+"<li>您没有<a href=login.asp target=_blank>登录</a>。"
	founderr=true
end if
if founderr=true then
	call top(1,1)
	call error("Exclamation",errmsg)
else
	select case request("action")
	case "info"
		call top(1,1)
		call info()
	case "addF"
		act="添加好友"
		call top(1,1)
		call addF()
	case "saveF"
		act="添加好友"
		call top(1,1)
		call saveF()
	case "删除"
		act="删除好友"
		call top(1,1)
		call DelFriend()
	case "清空好友"
		act="清空好友"
		call top(1,1)
		call AllDelFriend()
	case else
		call top(1,1)
		call info()
	end select
	if founderr then call error("Exclamation",errmsg)
end if

sub nav()

response.write "<BR><TABLE border=0 width=""90%"" align=center><TBODY>"&_
				"<TR><TD align=left><a href='"& HostURL &"'></a></TD>"&_
				"<TD Align=right nowrap>  <a href=usersms.asp?action=inbox><img src=images/m_inbox.gif border=0 alt=收件箱></a> &nbsp; <a href=usersms.asp?action=outbox><img src=images/M_outbox.gif border=0 alt=发件箱></a> &nbsp; <a href=usersms.asp?action=issend><img src=images/M_issend.gif border=0 alt=已发送邮件></a>&nbsp; <a href=usersms.asp?action=recycle><img src=images/M_recycle.gif border=0 alt=废件箱></a>&nbsp; <a href=friendlist.asp><img src=images/M_address.gif border=0 alt=地址簿></a>&nbsp;<a href=usersms.asp?action=new&id=><img src=images/m_write.gif border=0 alt=发送消息></a> &nbsp;<a href=usersms.asp?action=new&touser="&htmlencode(request("sender"))&"&id="&request("id")&"><img src=images/m_reply.gif border=0 alt=回复消息></a> &nbsp;<a href=usersms.asp?action=fw&id="&request("id")&"><img src=images/m_fw.gif border=0 alt=转发消息></a>&nbsp;<a href=usersms.asp?action=delete&id="&request("id")&"><img src=images/m_delete.gif border=0 alt=删除消息></a>"&_
				"</TD></TR></TBODY></TABLE><br>"


end sub


'收件箱
sub info()
call nav()
%>
<form action="friendlist.asp" method=post name=inbox>
    <table cellpadding=0 cellspacing=0 border=0 width="100%" bgcolor=<%=Tablebordercolor%> align=center>
        <tr>
            <td>
                <table cellpadding=3 cellspacing=1 border=0 width=100%>
            <tr bgcolor=<%=Tabletitlecolor%>>
                <td align=center valign=middle width="25%"><font color="<%=TableFontColor%>"><b>姓名</b></font></td>
                <td align=center valign=middle width="25%"><font color="<%=TableFontColor%>"><b>邮件</b></font></td>
                <td align=center valign=middle width="25%"><font color="<%=TableFontColor%>"><b>主页</b></font></td>
                <td align=center valign=middle width="10%"><font color="<%=TableFontColor%>"><b>OICQ</b></font></td>
                <td align=center valign=middle width="10%"><font color="<%=TableFontColor%>"><b>发短信</b></font></td>
                <td align=center valign=middle width="5%"><font color="<%=TableFontColor%>"><b>操作</b></font></td>
            </tr>
<%
	set rs=server.createobject("adodb.recordset")
	sql="select F.*,U.email,U.homepage,U.oicq from Friend F inner join [student] U on F.F_Friend=U.userid 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
%>
                <tr>
                <td bgcolor=<%=Tablebodycolor2%> align=center valign=middle colspan=6><font color="<%=TableContentColor%>">您的好友列表中没有任何内容。</font></td>
                </tr>
<%else%>
<%do while not rs.eof%>
                <tr bgcolor="<%=Tablebodycolor2%>">
                    <td align=center valign=middle><font color="<%=TableContentColor%>"><a href="profile.asp?name=<%=htmlencode(rs("F_friend"))%>" target=_blank><%=rs("F_friend")%></a></font></td>
                    <td align=center valign=middle><font color="<%=TableContentColor%>"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></font></td>
                    <td align=center><font color="<%=TableContentColor%>"><a href="<%=rs("homepage")%>" target=_blank><%=rs("homepage")%></a></font></td>
                    <td align=center><%=rs("oicq")%></td>
                    <td align=center><a href="usersms.asp?action=new&touser=<%=htmlencode(rs("f_friend"))%>">发送</a></td>
                <td align=center><input type=checkbox name=id value=<%=rs("f_id")%>></td>
                </tr>
<%
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
%>
                
        <tr bgcolor="<%=Tabletitlecolor%>"> 
          <td align=right valign=middle colspan=6><input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">选中所有显示记录&nbsp;<input type=button name=action onclick="location.href='friendlist.asp?action=addF'" value="添加好友">&nbsp;<input type=submit name=action onclick="{if(confirm('确定删除选定的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="删除">&nbsp;<input type=submit name=action onclick="{if(confirm('确定清除所有的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="清空好友"></td>
                </tr>
                </table></td></tr></table></form>
<%
end sub

sub delFriend()
call nav()
delid=request("id")
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"请选择相关参数。"
Founderr=true
else
	conn.execute("delete from Friend where F_username='"&trim(membername)&"' and F_id in ("&delid&")")

'modify point

	msg=msg+"<br>"+"<li><b>您已经删除选定的好友记录。"
	call success("好友列表",msg)



end if
end sub

sub AllDelFriend()
call nav()
	conn.execute("delete from Friend where F_username='"&trim(membername)&"'")
	msg=msg+"<br>"+"<li><b>您已经删除了所有好友列表。"
'modify point
	
	
	call success("好友列表",msg)
end sub

sub addF()
call nav()
%>
<form action="Friendlist.asp" method=post name=messager>
  <table cellpadding=0 cellspacing=0 border=0 width="100%"  bgcolor=<%=Tablebordercolor%> align=center>
    <tr> 
      <td> 
        <table cellpadding=3 cellspacing=1 border=0 width=100%>
          <tr> 
            <td bgcolor=<%=Tabletitlecolor%> colspan=2 align=center> 
              <input type=hidden name="action" value="saveF">
              <font color="<%=TablefontColor%>"><b>加入好友</b>--请完整输入下列信息</font></td>
          </tr>
          <tr> 
            <td bgcolor=<%=Tablebodycolor2%> valign=middle width=70><font color="<%=TableContentColor%>"><b>好友：</b></font></td>
            <td bgcolor=<%=Tablebodycolor2%> valign=middle><font color="<%=TableContentColor%>">
              <input type=text name="touser" size=50 value="<%=request("myFriend")%>">
			  &nbsp;使用逗号（,）分开，最多5位用户</font>
            </td>
          </tr>
          <tr> 
            <td bgcolor=<%=Tabletitlecolor%> valign=middle colspan=2 align=center> 
              <input type=Submit value="保存" name=Submit>
              &nbsp; 
              <input type="reset" name="Clear" value="清除">
            </td>
          </tr>
        </table>
      </td>
    </tr>
  </table>
</form>
<%
end sub

sub saveF()
call nav()
	if request("touser")="" then
		errmsg=errmsg+"<br>"+"<li>您忘记填写发送对象了吧。"
		founderr=true
	else
		incept=request("touser")
		incept=split(incept,",")
	end if
	if not founderr then
		for i=0 to ubound(incept)
		set rs=server.createobject("adodb.recordset")
		sql="select userid from [student] where userid='"&incept(i)&"'"
		rs.open sql,conn,1,1
		if rs.eof and rs.bof then
			errmsg=errmsg+"<br>"+"<li>同学录没有这个用户，操作未成功。"
			founderr=true
		end if
		rs.close
		set rs=nothing

		if not founderr then
		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&"','"&incept(i)&"',Now())"
		conn.execute(sql)

		sql="update [student] set point=point+"&pAddFriend&" where userid='"&membername&"'"
		conn.execute(sql)

		end if
			if i>4 then
			errmsg=errmsg+"<br>"+"<li>每次最多只能添加5位用户，您的名单5位以后的请重新填写。"
			founderr=true
			exit for
			end if
		end if
		next
		if not founderr then
		msg=msg+"<br>"+"<li><b>恭喜您，好友添加成功。"
		call success("好友列表",msg)
		end if
	end if
end sub

%>
<script language="JavaScript">
<!--
function CheckAll(form)  {
  for (var i=0;i<form.elements.length;i++)    {
    var e = form.elements[i];
    if (e.name != 'chkall')       e.checked = form.chkall.checked; 
   }
  }
//-->
</script>

<%call footer%>