<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/Conn_User.asp"-->
<%if Request.Cookies("asp163")("UserName")="" or request("UserID")="" then 
  response.Redirect "User_Login.asp"
  else
  end if%>
<link href="css/page_style.css" rel="stylesheet" type="text/css" />
<link rel="stylesheet" type="text/css" media="screen" href="css/Mpage_main.css" />
<SCRIPT language=javascript>

function ConfirmDel()
{
   if(confirm("确定要删除吗？一旦删除将不能恢复！"))
     return true;
   else
     return false;
	 
}

</SCRIPT>
	  <%
		usernamedd=Request.Cookies("asp163")("UserName")
set rsd=server.createobject("adodb.recordset")
sql="select * from [friend] where username='"&usernamedd&"' order by id desc"
rsd.open sql,Conn_User,1,1
%>
<div id="user_title"><img src="imgs/pic/icon_04.gif" width="16" height="13"> 我的好友列表操作</div>
<table width="565" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#F0F0F0">
<%if rsd.eof then%><br/> 
          暂时没有好友 <br/>
          <br/><%else%><%i=0%>
                <%do while not rsd.eof%> 
</td></tr>  <tr>
 <%
				useridf=rsd("fid")
set rst=server.createobject("adodb.recordset")
sql="select * from [user] where userid="&useridf&" order by userid desc"
rst.open sql,Conn_User,1,3%><%if rst.eof then%><%else%>
<td width="119" align="center" bgcolor="#FCFCFC">
<a href=user.asp?userid=<%=rsd("fid")%> target="_blank">
				    <%if rst("userphoto")<>"" then%> <img src=<%=rst("userphoto")%> width=122 height="92" border="0" alt="<%=rst("username")%>"> <%else%> <img src=images/nopic2.jpg border="0" width="122" height="92"><%end if%> </a>    </td>
                  <td width="260" valign="top" bgcolor="#FFFFFF" class="lineb"><br>好　　友：<a href=user.asp?userid=<%=rsd("fid")%> target="_blank"><strong><font color="#FF6600"><%=rst("username")%></font></strong>                                    <%
			if rst("Sex")=1 then
				response.write " <a href=zone2.asp?sex=1><img src=isky/boy.gif border=0 alt=男></a> "
			else
				response.write " <a href=zone2.asp?sex=0><img src=isky/girl.gif border=0 alt=女></a> "
			end if
		  %><br><br></a> 
                    注册日期：<%=FormatDateTime(rst("addDate"),2)%><br><br>
					简　　介：                                   <%if rst("intor")<>"" then
							   response.write left(rst("intor"),30)
							   if len(rst("intor"))>30 then
							   response.Write "..."
							   end if
							   else
							   response.write "暂无个人介绍"
							   end if%><br> 
				  
				  
				  
				  </td>
                  <td width="69" align="center" bgcolor="#FFFFFF" class="linea"> <a href=user.asp?userid=<%=rsd("fid")%>&mdid=indexd&htm=indexs.asp?userid=<%=rsd("fid")%> target="_blank"></a><a href="frienddel.asp?fid=<%=rsd("fid")%>&userid=<%userid=Trim(Request("userid"))%><%=userid%>"  onClick="return ConfirmDel();"><img src="imgs/pic/btn_scrip_delete.gif" border="0"></a>
<br>
<a href=user.asp?userid=<%=rsd("fid")%> target="_blank">
<img src="images/voteView.gif "border="0"></a>
  
</td>  <%end if%>   
              	  </tr>   <%i=i+1%>
			  <%if i mod 5=0 then%></tr><%else%>
			   
              <%end if%>
			  <%rsd.movenext
		loop%>
   
<%end if%>
		  <tr>
                  <td colspan="3" align="center" bgcolor="#FCFCFC"><div id='page'>
 
           
       

</div></td>
                </tr>
              </table>
