<!--#include file="conn.asp" -->
<!-- #include file="bbsuser.asp" -->
<!--#include file="ftbbs_nav.asp" -->
<%
call FTBBS_HTML_MB
defaulthome=Application("FTBBSMB")(31,0)
homepage=ft_home(defaulthome)

sqlstr="select * from clubuser where clubuser_name='"&request.cookies("name")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sqlstr,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript src="inc/cookies.js"></script>
<script>
var stylecook = getCookie("STYLESHOW");
var style;
var strstyle;
if(stylecook=="")
{
 stylecook=1;
}
else
{
 stylecook++;
}
style="main0"+stylecook+".css";
strstyle="<link href=\"css/"+style+"\"  rel=\"stylesheet\" type=\"text/css\"> ";
document.write(strstyle);
</script>
<title><%=request.cookies("name")%>的好友</title>
</head>

<body topmargin="5">
<div align="center"> 
<%
if request.cookies("ftbbstype")=1 then
  response.write headhtml
end if
%>
<TABLE align=center class="maintbbg" border=0 cellPadding=0 cellSpacing=1 width="99%">
        <tbody>
		<%if request.cookies("ftbbstype")<>1 then%>
          <tr> 
            <td height="25" class="f12bg">&nbsp;<%=userinfo%></td>
          </tr>
		<%end if%>
          <tr>
            <td height="25" class="maintbtr3" align="left">&nbsp;<a href="<%=homepage%>">论坛首页</a> 
              >> 好友列表</td>
          </tr>
        </tbody>
  </TABLE>
     <table width="99%" border="0" align="center" cellpadding="0" cellspacing="1">
      <tr> 
      <td height=5><spacer height="5" type="block"></td>
      </tr>
     </table>
  <%
if rs("friend")<>"" and instr(rs("friend"),"|")>0 then
   myarray=split(rs("friend"),"|")
%>
  <TABLE width="99%" border=0 align="center" cellPadding=0 cellSpacing=1 class="maintbbg">
    <TBODY>
      <TR class="maintbtr1"> 
        <TD width="10%" height="23" vAlign=middle class="maintbtr3"> <div align="center">编号</div></TD>
        <TD width="14%" vAlign=middle class="maintbtr3"><div align="center">用户名</div></TD>
        <TD width="18%" vAlign=middle class="maintbtr3"><div align="center">性别</div></TD>
        <TD width="36%" vAlign=middle class="maintbtr3"> <div align="center">Email</div>
          <div align="center"></div></TD>
        <TD width="12%" vAlign=middle class="maintbtr3"> <div align="center">短信</div></TD>
        <TD width="10%" vAlign=middle class="maintbtr3"> <div align="center">删除</div></TD>
      </TR>
      <%
	 for i=0 to UBound(myarray)
	if myarray(i)<>"" then
		str="select clubuser_name,clubuser_sex,clubuser_email from clubuser where clubuser_name='"&myarray(i)&"'"
		set rs0=server.createobject("adodb.recordset")
        rs0.open str,conn,1,1
		if not rs0.eof then
	%>
      <TR class="maintbtr1"> 
        <TD width="10%" height="25" vAlign=middle bgColor=#f6f6f6 class=font10_5> 
          <div align="center"><%=i+1%></div></TD>
        <TD width="14%" vAlign=middle bgColor=#f6f6f6 class=font10_5> <div align="center"><%=myarray(i)%></div></TD>
        <TD width="18%" vAlign=middle bgColor=#f6f6f6 class=font10_5> <div align="center"><%=rs0("clubuser_sex")%></div></TD>
        <TD vAlign=middle bgColor=#f6f6f6 class=font10_5> <div align="center"><%=rs0("clubuser_email")%></div>
          <div align="center"></div></TD>
        <TD width="12%" vAlign=middle bgColor=#f6f6f6 class=font10_5> <div align="center"><a href="smsbbs.asp?postuser=<%=myarray(i)%>">给他发信</a></div></TD>
        <TD width="10%" vAlign=middle bgColor=#f6f6f6 class=font10_5> <div align="center"><a href="delfriend.asp?postuser=<%=myarray(i)%>">删除</a></div></TD>
      </TR>
      <%end if
	  end if
	  next
	  %>
    </TBODY>
  </TABLE>
<%
rs0.close
rs.close
conn.close
%>
<%else%>
<TABLE align="center" class="maintbbg" border=0 cellPadding=0 cellSpacing=0 width="99%">
  <TBODY>
    <TR class="maintbtr1"> 
      <TD height="23" vAlign=middle class="maintbtr3"> <div align="center"></div>
        </TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="99%" border=0 align="center" cellPadding=0 cellSpacing=0 class="maintbbg">
  <TBODY>
    <TR class="maintbtr1"> 
        <TD height="300" vAlign=middle bgColor=#f6f6f6 class=font10_5>
<div align="center">你现在还没有好友.</div></TD>
    </TR>
  </TBODY>
</TABLE>
<%end if%>
<!--#include file="inc/bbstail.htm" -->
</div>
</body>
</html>
