<!--#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">
<title>Untitled Document</title>

<link rel="stylesheet" type="text/css" media="screen" href="css/Mpage_main.css" />
<style type="text/css">
<!--
.style2 {color: #999999}
.style3 {
	color: #FF6600;
	font-weight: bold;
}
.style4 {
	color: #339900;
	font-weight: bold;
}
.style6 {color: #0000FF}
.style7 {color: #0033FF}
-->
</style>
</head>

<body>
<div id="user_title"><img src="page_style/icon/icon_04.gif" width="16" height="13"> 欢迎登录芜湖播客家园用户管理</div>
<br>
<table width="541" height="132" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#F0F0F0">
  <tr>
    <td height="25" colspan="3" bgcolor="#FCFCFC">　<span class="style3">基本信息</span></td>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FCFCFC">用户名：</td>
    <td bgcolor="#FFFFFF" style="line-height:25px"><span id="s_user_name" style="width:138px;height:18px;line-height:19px;overflow:hidden"><%= UserName %></strong>   <%
			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
		  %>
           [<a href="zone.asp?city=<%=rs(db_User_city)%>" target="_blank"><%=rs(db_User_city)%></a>] </span> </td>
    <td width="192" rowspan="3" bgcolor="#FFFFFF" align=center><a href='announce.asp?id=33' target=_blank><img src="page_style/icon/help_pic.gif" border=0></a></td>
  </tr>
  <tr>
    <td width="67" height="20" align="center" bgcolor="#FCFCFC">心　情：</td>
     <td bgcolor="#FFFFFF" style="line-height:25px"> <%if rs(db_User_love)=0 then%>
				<img src=love/1.gif>  
                <%else%>
                <img src=love/<%=rs(db_User_love)%>.gif>
                <%end if%>           
				
                  <%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%>
  </tr>
  <tr>
    <td height="20" align="center" bgcolor="#FCFCFC">金　币：</td>
    <td bgcolor="#FFFFFF"><%=rs(db_User_UserPoint)%> </td>
  </tr>
  
  <tr>
    <td height="20" align="center" bgcolor="#FCFCFC" style="line-height:20px"> 信　息：</td>
    <td height="20" colspan="2" bgcolor="#FFFFFF" style="line-height:20px"><table width="90%" border="0" cellpadding="3" cellspacing="0">
      <tr>
        <td width="60%">您有 <span class="style7"> <%
set rsp=server.createobject("adodb.recordset")
sql="select * from [flv] where editor='"&username&"' order by photoid desc"
rsp.open sql,Conn,1,1
%>
          <%=rsp.recordcount%></span> 视屏 | 您有 <span class="style6"> <%
set rsp=server.createobject("adodb.recordset")
sql="select count(id) from [mtv_Photo] where username='"&username&"'"
rsp.open sql,Conn,1,1
%> <%=rsp(0)%></span> 照片 | 
      您有 <span class="style6"><%
set rsa=server.createobject("adodb.recordset")
sql="select * from [article] where editor='"&username&"' order by articleid desc"
rsa.open sql,Conn,1,1
%><%=rsa.recordcount%></span> 日志
      </tr>
    </table></td>
  </tr>
</table>


<br>
<table width="541" height="75" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#F0F0F0">
  <tr>
    <td height="25" colspan="2" bgcolor="#FCFCFC">　<span class="style4">芜湖播客(516show.cn)公告！</span></td>
  </tr>
  <tr>
    <td width="391" height="47" bgcolor="#FFFFFF" style="line-height:22px;">　 　芜湖播客家园全新版本上线了--www.516show.cn现在全面改版完成，各个功能得到了全面的升级，同时给您提供了超酷、超旋的独有个人家园,在这里您将可以和您的网友相互沟通、了解。我们也在进一步努力，一定会让您满意而归。如果您有什么建议或意见可以直接发送到客服邮箱或直接加客服QQ,我们将不胜感激，芜湖播客家园将为大家提供最好的、最真实的视频交友网站。     

	</span></td>
    <td width="127" height="47" bgcolor="#FFFFFF" style="line-height:22px;"><img src="<%if rs(db_User_userphoto)<>"" then%>  <%= rs(db_User_userphoto)%><%else%>images/NoPic2.jpg<%end if%>" width="164" height="192"></td>
  </tr>
</table>
<br>
<%

end if

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

</body>
</html>
