<!--#include file="../inc/conn.asp" -->
<%
if request.cookies("name")="" then
	response.write "<SCRIPT language=JavaScript>alert('你还没有登录,请先登录！');"
   	response.write "history.go(-1);"
   	response.write "</script>"        
    response.end
end if
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">
<LINK href="../css/xmwuye.css" rel=stylesheet type=text/css>
<title><%=request.cookies("name")%>的好友</title>
</head>

<body topmargin="5">
<div align="center"> 
  <TABLE align=center bgColor=#a4b6d7 border=0 cellPadding=0 cellSpacing=0 width="99%">
    <TR> 
      <TD height=25> <div align="center"><font color="#FFFFFF"><strong>欢迎<font color="#CC3300"><%=request.cookies("name")%></font>网友以下是你的好友列表</strong></font></div></TD>
    </TR>
  </TABLE>
  <%
if rs("friend")<>"" then
   myarray=split(rs("friend"),"|")
%>
  <TABLE width="99%" border=0 align="center" cellPadding=0 cellSpacing=1 bgColor="#b1d6fa">
    <TBODY>
      <TR bgColor=#f2f8ff> 
        <TD width="10%" height="23" vAlign=middle bgColor=#b1d6fa class=font10_5> 
          <div align="center">编号</div></TD>
        <TD width="12%" vAlign=middle bgColor=#b1d6fa class=font10_5><div align="center">用户名</div></TD>
        <TD width="15%" vAlign=middle bgColor=#b1d6fa class=font10_5><div align="center">昵称</div></TD>
        <TD width="16%" vAlign=middle bgColor=#b1d6fa class=font10_5>
<div align="center">Email</div></TD>
        <TD width="16%" vAlign=middle bgColor=#b1d6fa class=font10_5><div align="center">电话</div></TD>
        <TD width="10%" vAlign=middle bgColor=#b1d6fa class=font10_5> 
          <div align="center">短信</div></TD>
        <TD width="10%" vAlign=middle bgColor=#b1d6fa class=font10_5> <div align="center">删除</div></TD>
      </TR>
      <%
	 for i=0 to UBound(myarray)
	if myarray(i)<>"" then
		str="select clubuser_name,clubuser_nickname,clubuser_phone,clubuser_email from clubuser where clubuser_name='"&myarray(i)&"'"
		set rs0=server.createobject("adodb.recordset")
        rs0.open str,conn,1,1
	%>
      <TR bgColor=#f2f8ff> 
        <TD width="10%" height="25" vAlign=middle bgColor=#f6f6f6 class=font10_5> 
          <div align="center"><%=i+1%></div></TD>
        <TD width="12%" vAlign=middle bgColor=#f6f6f6 class=font10_5> <div align="center"><%=myarray(i)%></div></TD>
        <TD width="15%" vAlign=middle bgColor=#f6f6f6 class=font10_5> <div align="center"><%=rs0("clubuser_nickname")%></div></TD>
        <TD width="16%" vAlign=middle bgColor=#f6f6f6 class=font10_5> 
          <div align="center"><%=rs0("clubuser_email")%></div></TD>
        <TD width="16%" vAlign=middle bgColor=#f6f6f6 class=font10_5><div align="center"><%=rs0("clubuser_phone")%></div></TD>
        <TD width="10%" 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
	  next
	  %>
    </TBODY>
  </TABLE>
<%
rs0.close
rs.close
conn.close
%>
<%else%>
<TABLE align="center" bgColor="#a4b6d7" border=0 cellPadding=0 cellSpacing=0 width="99%">
  <TBODY>
    <TR bgColor=#f2f8ff> 
      <TD height="23" vAlign=middle bgColor=#b1d6fa class=font10_5> <div align="center"></div>
        </TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="99%" border=0 align="center" cellPadding=0 cellSpacing=0 bgColor="#FFFFFF">
  <TBODY>
    <TR bgColor=#f2f8ff> 
        <TD height="300" vAlign=middle bgColor=#f6f6f6 class=font10_5>
<div align="center">你现在还没有好友.</div></TD>
    </TR>
  </TBODY>
</TABLE>
<%end if%>
<script language="JavaScript" src="../inc/bbstail.js"></script>
</div>
</body>
</html>
