<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<body oncontextmenu="return false" ondragstart="return false" onselectstart="return false">

<%
'请勿改动下面这三行代码
const ChannelID=3
Const ShowRunTime="Yes"
SkinID=0
MaxPerPage=12
dim UserID
dim mdid,htm
mdid=trim(request("mdid"))
htm=trim(request("htm"))
UserID=trim(request("UserID"))
if UserID="" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>请指定UserID</li>"
	call WriteErrMsg()
	response.end
else
	UserID=Clng(UserID)
end if

indexs="indexs.asp"
if UserID="del" then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>该用户已被管理员删除</li>"
	call WriteErrMsg()
	response.end
else
	UserID=Clng(UserID)
end if
strFileName="UserInfo.asp?UserID=" & UserID
sql="select * from " & db_User_Table & " where " & db_User_ID & "=" & UserID
set rs=server.createobject("adodb.recordset")
rs.open sql,Conn_User,1,3
if cint(Request.Cookies("asp163")("userhits")) <> userid then
rs(db_User_hits)=rs(db_User_hits)+1
Response.Cookies("asp163")("userhits") = userid
rs.update
else
end if
if rs.bof and rs.eof then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>找不到指定的用户<li>"
else
    photo=rs(db_User_photok)
	UserName=rs(db_User_Name)
	PageTitle=  UserName &"的个人主页"
	

%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">



<link href="css\Mpage_main.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--


function MM_jumpMenu(targ,selObj,restore){ //v3.0
  eval(targ+".location='"+selObj.options[selObj.selectedIndex].value+"'");
  if (restore) selObj.selectedIndex=0;
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">

<!--

var wfpnum=1;

var sRepeat=null; 

parent.hometitle.innerHTML="www.el99.cn";

function doScrollerIE(dir, src, amount) { 

if (amount==null) amount=10; 

if (document.all[src].scrollHeight <= 50)

	return;

if (dir=="up") 

document.all[src].scrollTop-=3; 

else 

document.all[src].scrollTop+=3; 

if (sRepeat==null) 

sRepeat = setInterval("doScrollerIE('" + dir + "','" + src + "'," + amount + ")",100); 

return false 

}
window.document.onmouseout = new Function("clearInterval(sRepeat);sRepeat=null"); 

window.document.ondragstart = new Function("return false"); 

function Go(userid){

  if (userid!=""){

	 WinOpen('pop_buddy_invite.asp?reg=2007-9-12&userid='+userid,'nn','381','231','no','no','Center','')

  }else{

  alert("系统错误");

  return;

  }

}

function Go2(userid){

  if (userid!=""){

	 WinOpen('fans_invite.asp?reg=2007-9-12&userid='+userid,'nn','381','231','no','no','Center','')



  }else{

  alert("系统错误");

  return;

  }

}

function goHome(username){

  if (username!=""){

     window.open('http://'+username+'.el99.cn','','');

  }

}



function noteViewProcess(str){



		WinOpen(strUrl,strName,WinWidth,WinHeight,ScrollBar,Resize,WinGubun,strProperty);



}

-->

</script>



</head>




<table border="0" cellpadding="0" cellspacing="0">

  <tr>


    <td height="19" align="center"><span id="s_user_name" style="width:164px;height:162px;line-height:19px;overflow:hidden"> 

<div id="user_pic" style="width:134px;height:142px;background:url(&nbsp;&nbsp;<img src="<%if rs(db_User_userphoto)<>"" then%>  <%= rs(db_User_userphoto)%><%else%>images/NoPic2.jpg<%end if%>" width="164" height="152"> <img src="<%if rs(db_User_userphoto)<>"" then%>  <%= rs(db_User_userphoto)%><%else%>images/NoPic2.jpg<%end if%>" width="164" height="142">

 </div></td>

  </tr>

  <tr>

    <td height="19" align="center"> <span id="s_user_name" style="width:138px;height:18px;line-height:19px;overflow:hidden"><%= UserName %></strong>&nbsp;
              <%
			if rs(db_User_Sex)=1 then
				response.write " <img src=isky/boy.gif border=0 alt=男> "
			else
				response.write " <img src=isky/girl.gif border=0 alt=女> "
			end if
		  %>
            &nbsp;[ <a href="zone.asp?city=<%=rs(db_User_city)%>" target="_blank"><%=rs(db_User_city)%></a>&nbsp;] </span>  </td>

  </tr>

  <tr>

    <td height="19" align="center"><div id="s_feel">
      <div style="float:left">
                  <%if rs(db_User_love)=0 then%>
				<img src=love/1.gif>  
                <%else%>
                <img src=love/<%=rs(db_User_love)%>.gif>
                <%end if%> </div>

      <div style="float:left;margin:8px 0 0 10px;width:50px;">                  <%if rs(db_User_love)=0 then%>
                无语...
                <%else%>
				<%end if%>
                  <%if rs(db_User_love)=1 then%>
                无语...
                <%else%>
                <%end if%>
                  <%if rs(db_User_love)=2 then%>
                高兴...
                <%else%>
                <%end if%>
                  <%if rs(db_User_love)=3 then%>
                郁闷...
                <%else%>
                <%end if%>
                  <%if rs(db_User_love)=4 then%>
                忙碌...
                <%else%>
                <%end if%>
                  <%if rs(db_User_love)=5 then%>
                疑问...
                <%else%>
                <%end if%>
                  <%if rs(db_User_love)=6 then%>
                思念...
                <%else%>
                <%end if%> </div>

    </div></td>

  </tr>

  <tr>


        </tr>

      </table>

    </div>


    <td height="1" align="center"><div id="s_user_menu"><BR> <%
								  if rs(db_User_intor)<>""  then
								 
                     response.write "&nbsp;&nbsp;<font color="&rs(db_User_intorcolor) &" style='FONT-SIZE: "&rs(db_User_intorsize) &"px'>" &rs(db_User_intor) & "</font>"
                     else response.write "&nbsp;&nbsp;&nbsp;&nbsp;暂时没有介绍"
                     end if
								  %> </div></td>



  </tr>

  <tr>

    <td height="1" align="center"><div id="s_user_menu"> <img src="..\page_style\icon\G1.gif" style="cursor:pointer" onClick="parent.window.quxiu_chang_but(2,_proFile_l.asp_userid=1456454&d=2007-9-12&username=pengzhenshiwo_,_proFile_r.html"><a href="gbook.asp?userid=<%=UserID%>" target=content><img src="..\page_style\icon\G2.gif" border=0 onClick="Go(1456454).html" style="cursor:pointer"></a><img src="..\page_style\icon\G3.gif" border=0 onClick="Go2(1456454).html" style="cursor:pointer"><a target=_top href=javascript:window.external.AddFavorite('<%=SiteUrl%>','<%=SiteName%>')><img src="..\page_style\icon\G4.gif" border=0 style="CURSOR: hand" onClick="window.external.addFavorite(_http_\\pengzhentttttttttshiwo.quxiu.com\_,_彭彭こ的去秀家园--去秀(http_\\pengzhenshiwyyyyo.quxiu.com)_)"> <img src="..\page_style\icon\G5.gif" border=0 onClick="noteViewProcess(_1456454_).html" style="cursor:pointer"><a href="fsave.asp?fid=<%= UserID %>" target="_blank"><img src="..\page_style\icon\G6.gif" border=0 onClick="Go(1456454).html" style="cursor:pointer"></div></td>


  </tr>

  <tr>

    <td height="19" align="center"><table width="174" height="90" border="0" cellpadding="0" cellspacing="0">

      <tr>

        <td height="25"><img src="..\page_style\icon\TJ.gif"></td>

      </tr>

      <tr>

        <td><table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor="D1D1D1">

          <tr>

            <td width="50%" bgcolor="F8F8F8"><img src="..\page_style\icon\I.gif" >博客：<span class="font_2" id="d_blognum"></span></td>

            <td width="50%" bgcolor="F8F8F8"><img src="..\page_style\icon\I.gif" >好友：<span class="font_2" id="d_friendnum"></span></td>

          </tr>

<!--

          <tr>

            <td bgcolor="F8F8F8"><img src="..\page_style\icon\I.gif" >拍贴：<span id="font_2"><span id="dttnum">0</span></span></td>

            <td bgcolor="F8F8F8"><img src="..\page_style\icon\I.gif" >视频：<span id="font_2"><span id="videonum">0</span></span></td>

          </tr>

-->


     

        </table></td>



      </tr>

      <tr>


        <td height="31" align="center">      <%
set rsd=server.createobject("adodb.recordset")
sql="select * from [friend] where username='"&username&"' order by id desc"
rsd.open sql,Conn_User,1,1
%>
      <form name="formd">
        <select name="menu1" class="put" LANGUAGE=javascript onChange="window.open(this.value,'_blank','');">

          <option>-我的家园好友连接-</option>

     <%do while not rsd.eof%>
          <%
				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%>
          <option value="main_all.asp?userid=<%=rsd("fid")%>&mdid=indexd&htm=main_left.asp?userid=<%=rsd("fid")%>">&raquo;
            <%if rst("title")<>"" then%>
            <%=left (rst("title"),9)%>...
            <%else%>
            <%=rst("username")%>的空间
            <%end if%></option>
		  <%end if%>         <%rsd.movenext
		loop%>
        </select>

        </td>

      </tr>

    </table></td>

  </tr>

</table>





</body>

</html>


<%

end if

rs.close
set rs=nothing
call CloseConn()
%>
