<!--#include file="../../conn/conn.asp"-->
<!--#include file="../../conn/nosql.asp"-->
<!--#include file="../../conn/config.asp"-->
<!--#include file="../../conn/count.asp"-->
<!--#include file="../page.asp"-->
<!--#include file="../count.asp"-->
<%if Not ChkPosturl then response.redirect ("/login.asp")
if isChkInteger(request("web_id")) then
web_id=request("web_id")
else
Response.Redirect ("../../index.asp")
end if
sql="select * from snsn_user where id="&web_id
Set rsh= Server.CreateObject("ADODB.Recordset") 
rsh.open sql,conn,1,1
if rsh.eof or rsh.bof then
response.write "<script language='javascript'>"
response.write "alert('没有此用户，请确认后或联系管理员再访问本页！');"
response.write"this.location.href='/index.asp';</SCRIPT>"
response.end
else
%><html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link rel="stylesheet" href="css.css" type="text/css">
<style type="text/css">
<!--
.style1 {color: #000000}
.style2 {color: #FF0000}
.style4 {color: #000000; font-weight: bold; }
.style8 {color: #FF3300}
-->
</style>
</head>
<body>
<table width="420"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="22">
      <table width="420"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="#CCCCCC"></td>
          <td width="30" bgcolor="#F1F1F1"><div align="center"><span class="M"><IMG 
                              src="img/vote_u.gif" 
                              name=image1754891 width="15" height="15" border=0></span></div></td>
          <td height="25" bgcolor="#F1F1F1"><span class="M"><FONT 
                              color=#000000><a href="web.asp?web_id=<%=web_id%>"><U><%=home%></U></a></FONT> -&gt; <FONT 
                              color=#000000><a href="user.asp?web_id=<%=web_id%>"><U><%=xx%></U></a></FONT></span></td>
          <td width="1" bgcolor="#CCCCCC"></td>
        </tr>
        <tr>
          <td width="1" height="1"></td>
          <td height="1" colspan="2" bgcolor="#CCCCCC"></td>
          <td width="1" height="1"></td>
        </tr>
      </table></td>
  </tr><tr>
    <td height="12"></td>
  </tr>
  <tr>
    <td valign="top"><TABLE width=95% 
border=0 align="center" cellPadding=0 cellSpacing=0 class=content_border>
      <TBODY>
        <TR>
          <TD align=middle>
            <SCRIPT language=JavaScript>
function addvisitorinfo(id_value){
	document.formlink.myfriend_id.value=id_value;
	document.formlink.submit();
}

function hve_display(t_id,i_id){//显示隐藏程序

	//var t_id;//表格id
	//var i_id;//图片id
	var on_img="on.gif";//打开时图片
	var off_img="off.gif";//隐藏时图片
		if (t_id.style.display == "none") {//如果为隐藏状态
		t_id.style.display="";//切换为显示状态
		i_id.src="img/folder_open.gif";}//换图
	else{//否则
		t_id.style.display="none";//切换为隐藏状态
		i_id.src="img/folder_close.gif";}//换图
}

function Hve_Display(t_id){//显示隐藏程序
	var t_id;
		if (t_id.style.display == "none") {//如果为隐藏状态
		t_id.style.display="";//切换为显示状态
		}//换图
	else{//否则
		t_id.style.display="none";//切换为隐藏状态
		}//换图
}

            </SCRIPT>
            <FORM style="MARGIN-TOP: 8px" name=mypartnerlist action="" method=post>
              <IMG height=8 src="../images/shim(1).gif" width=1>
              <TABLE width="100%" border=0 cellPadding=1 cellSpacing=1 bgcolor="efefef">
                <TR>
                  <TD height="23" bgColor=f9f9f9>
                    <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                      <TBODY>
                        <TR>
                          <TD width="2%">&nbsp;                          </TD>
                          <TD class=M style="CURSOR: hand" 
                            onclick=javascript:hve_display(table1754891,image1754891)><IMG 
                              src="img/folder_close.gif" 
                              name=image1754891 width="15" height="13" border=0> <U><FONT 
                              color=#000000>我的普通伙伴</FONT></U> </TD>
                        </TR>
                      </TBODY>
                  </TABLE></TD>
                </TR>
                <TBODY id=table1754891 style="DISPLAY: none">
                  <%	
set rs=server.CreateObject("adodb.recordset")
rs.open"select snsn_myfriend.username as MemUser,snsn_myfriend.friend_name,snsn_user.* from snsn_myfriend,snsn_user where snsn_myfriend.username='"&rsh("username")&"' and snsn_user.username=snsn_myfriend.friend_name and snsn_myfriend.relation=0",conn,1,1
					if rs.eof or rs.bof then
					response.write"<TR>"
                    response.write"<TD style='PADDING-LEFT: 28px' bgColor=#ffffff colSpan=3 height=28>"
                    response.write"<DIV id=nav>该组下无成员</DIV></TD></TR>"
					else
					do while not rs.eof
					%>
                  <TR>
                    <TD style="PADDING-LEFT: 28px" bgColor=#ffffff 
                      height=28>
                      <DIV id=nav>                        <a href="/web/<%=rs("url")%>/index.asp?web_id=<%=rs("id")%>" target="_top"> <%=rs("friend_name")%></a> [ 真实姓名：<%=rs("name")%><%=rs("ch")%> &nbsp;地区：<%=rs("szd")%> &nbsp;] </DIV></TD>
                  </TR>
                  <%
					rs.movenext
					loop
					end if
					%>
                </TBODY>
              </TABLE>
              <IMG 
            height=8 src="../images/shim(1).gif" width=1><BR>
              <TABLE width="100%" border=0 cellPadding=1 cellSpacing=1 bgcolor="efefef">
                <TR bgcolor="#e6e6e6">
                  <TD height="23" bgColor=f9f9f9>
                    <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                      <TBODY>
                        <TR>
                          <TD width="2%">&nbsp;                          </TD>
                          <TD class=M style="CURSOR: hand" 
                            onclick=javascript:hve_display(table17548911,image17548911)><IMG 
                              src="img/folder_close.gif" 
                              name=image17548911 width="16" height="13" border=0> <U><FONT 
                              color=#000000>我的亲密好友</FONT></U> </TD>
                        </TR>
                      </TBODY>
                  </TABLE></TD>
                </TR>
                <TBODY id=table17548911 style="DISPLAY: none">
                  <%
					set rs=server.CreateObject("adodb.recordset")
rs.open"select snsn_myfriend.username as MemUser,snsn_myfriend.friend_name,snsn_user.* from snsn_myfriend,snsn_user where snsn_myfriend.username='"&rsh("username")&"' and snsn_user.username=snsn_myfriend.friend_name  and snsn_myfriend.relation=1",conn,1,1
					if rs.eof or rs.bof then
					response.write"<TR>"
                    response.write"<TD style='PADDING-LEFT: 28px' bgColor=#ffffff colSpan=3 height=28>"
                    response.write"<DIV id=nav>该组下无成员</DIV></TD></TR>"
					else
					do while not rs.eof
					%>
                  <TR>
                    <TD style="PADDING-LEFT: 28px" bgColor=#ffffff 
                      height=28>
                      <DIV id=nav>                        <a href="/web/<%=rs("url")%>/index.asp?web_id=<%=rs("id")%>" target="_top"><%=rs("friend_name")%></a> [ 真实姓名：<%=rs("name")%><%=rs("ch")%> &nbsp;地区：<%=rs("szd")%> &nbsp;] </DIV></TD>
                  </TR>
                  <%
					rs.movenext
					loop
					end if
					%>
                </TBODY>
              </TABLE>
              <IMG 
            height=8 src="../images/shim(1).gif" width=1><BR>
              <TABLE width="100%" border=0 cellPadding=1 cellSpacing=1 bgcolor="efefef">
                <TR bgcolor="#e6e6e6">
                  <TD height="23" bgColor=f9f9f9>
                    <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                      <TBODY>
                        <TR>
                          <TD width="2%">&nbsp;                          </TD>
                          <TD class=M style="CURSOR: hand" 
                            onclick=javascript:hve_display(tableblacklist,imageblacklist)><IMG 
                              src="img/folder_close.gif" 
                              name=imageblacklist width="15" height="13" border=0> <U><FONT 
                              color=#000000>黑名单</FONT></U> </TD>
                        </TR>
                      </TBODY>
                  </TABLE></TD>
                </TR>
                <TBODY id=tableblacklist style="DISPLAY: none">
                  <%
					set rs=server.CreateObject("adodb.recordset")
rs.open"select snsn_myfriend.username as MemUser,snsn_myfriend.friend_name,snsn_user.* from snsn_myfriend,snsn_user where snsn_myfriend.username='"&rsh("username")&"' and snsn_user.username=snsn_myfriend.friend_name  and snsn_myfriend.relation=-1",conn,3,3
					if rs.eof or rs.bof then
					response.write"<TR>"
                    response.write"<TD style='PADDING-LEFT: 28px' bgColor=#ffffff colSpan=3 height=28>"
                    response.write"<DIV id=nav>该组下无成员</DIV></TD></TR>"
					else
					do while not rs.eof
					%>
                  <TR>
                    <TD style="PADDING-LEFT: 10px" bgColor=#ffffff 
                      height=28>
                      <DIV id=nav>                        <a href="/web/<%=rs("url")%>/index.asp?web_id=<%=rs("id")%>" target="_top"><%=rs("friend_name")%></a> [ 真实姓名：<%=rs("name")%><%=rs("ch")%> &nbsp;地区：<%=rs("szd")%> &nbsp;] </DIV></TD>
                  </TR>
                  <%
					rs.movenext
					loop
					end if
					%>
                </TBODY>
              </TABLE>
              <BR>
              <IMG 
            height=4 src="../images/shim(1).gif" width=1>
            </FORM>
            <BR>
            <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
              <TBODY>
                <TR>
                  <TD class=tbg1>对我感兴趣的好友： </TD>
                </TR>
              </TBODY>
            </TABLE>
            <IMG height=8 
            src="../images/shim(1).gif" width=1><BR>
            <TABLE class=bdr1 cellSpacing=0 cellPadding=0 width="95%" 
              border=0>
              <TBODY>
                <TR>
                  <TD>
                    <TABLE class=bdr2 cellSpacing=0 cellPadding=0 width="100%" 
                  border=0>
                      <TBODY>
                        <TR>
                          <TD class=lh15>
                            <%
sql1="select distinct username from snsn_myfriend where friend_name='"&rsh("username")&"'"
Set rs1= Server.CreateObject("ADODB.Recordset") 
rs1.open sql1,conn,1,1
totle=rs1.recordcount
response.write" 共有<b><font color='#ff0000'>"&totle&"</font></b>个会员将我加入到他的伙伴列表。" 
if totle>0 then response.write"<img src='../images/indexpoint.gif' width='5' height='9'>"
%>
                          </TD>
                        </TR>
                      </TBODY>
                  </TABLE></TD>
                </TR>
              </TBODY>
            </TABLE>
            </TD>
        </TR>
        </TABLE></td>
  </tr>
</table>
</body>
</html>
<%
end if%>
