<!--#include file="inc/conn.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<%
dim UserID
dim mdid,htm
mdid=trim(request("mdid"))
menu=trim(request("menu"))
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="main_left.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 rs.bof and rs.eof then
	FoundErr=True
	ErrMsg=ErrMsg & "0"
	call WriteErrMsg()
else
    photo=rs(db_User_photok)
	UserName=rs(db_User_Name)
	PageTitle=  UserName &"的小屋"
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

	

%>

<table width="420" border="0" cellspacing="0" cellpadding="5">
  <tr>
<td width="100%" valign="top"><fieldset>
<legend class=menu_title id=menuTitle1 style="cursor:hand;" onClick="showsubmenu(62)" onmouseover=this.className='menu_title1'; onmouseout=this.className='menu_title1';><strong><font color="#ff6600" style="font-size:12">我的小窝&nbsp;</font></strong></legend>
<table width="100%" border="0" align="center" cellpadding="5" cellspacing="0" style="display:" id='submenu2'>
  <tr>
    <td>  

>

<iframe  height="200" width="393" frameborder="0" scrolling="no" src="<%if rs(db_user_photok)<>"" then%><%=rs(db_User_photok)%>.asp<%else%>001.asp<%end if%>"> </iframe>

 <font style='FONT-SIZE: 11px' color='#000000'><a href=<%= UserID %>.<%=SiteUrl%></font></a>&nbsp;</td>
                <td valign="bottom"><%if CheckUserLogined()=true then
			  UserNamed=Request.Cookies("asp163")("UserName")
			  if Request.Cookies("asp163")("UserName")<>rs(db_User_Name) then
			  rs(db_User_link)=Request.Cookies("asp163")("UserName")
			  rs.update
			  else
			  end if
			  set userq=server.createobject("adodb.recordset")
sql="select * from [user] where UserName='"&UserNamed&"' order by userid desc"
userq.open sql,Conn_User,1,1
userw=userq("userid")
%>
                    <%if userw<>userid then%>
                    <a href="user.asp?userid=<%=userw%>&mdid=man&htm=fsave.asp?fid=<%= UserID %>" target="_blank"><img src="user/f.gif" border=0></a>
                    <%else%>
                    <%end if%>
                    <% else
end if%>

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


 

<%

end if

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