<!--#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="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 rs.bof and rs.eof then
	response.redirect "error/user_error.htm"
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
%>


<%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%>

                    <%else%>
                    <%end if%>
                    <% else
end if%>

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>
<%=SiteName%>---<%= UserName %>的家园</title>
<frameset frameborder="0" framespacing="0" scrolling="no" border="0" marginheight="0" marginwidth="0" rows="0,*"> 
<frame scrolling="NO" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main2" SRC="about:blank"> 
<frame scrolling="yes" noresize="0" marginwidth="0" marginheight="0" framespacing="0" frameborder="0" target="main" name="main" SRC="main_all.asp?userid=<%=userid%>">

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