<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/ubbcode.asp"-->
<!--#include file="inc/function.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/Mpage_main.css" rel="stylesheet" type="text/css">
<body style="overflow-y:hidden"> 
<DIV id=r_left>
<DIV id=r_top_1><SPAN>最近访客&nbsp;</SPAN><%userid=request("userid")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where userid="&userid&" order by userid desc"
rs.open sql,Conn_User,1,1
username=rs("username")

rs.close
set rs=nothing
%>                              <%
userid=request("userid")
set rs=server.createobject("adodb.recordset")
rs.open "select * from [user] where userID="&userid &" order by userID desc",conn_user,1,1
if rs("link")<>"" then %>
                             
                              
							  <%link=rs("link")%>
							  <%
set rsf=server.createobject("adodb.recordset")
sql="select * from [user] where UserName='"&link&"' order by userID desc"
rsf.open sql,Conn_User,1,1
%>
<a href=user.asp?userid=<%=rsf("userid")%> target=_blank><%=rs("link")%></a>
<%else%>
 暂时没有访客                            <%end if%></DIV>
<DIV id=r_roomy2>
<DIV id=MiniRoom>
<table width="440" border="0" cellspacing="0" cellpadding="12">
  <tr>
<td width="50%" 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>    
<%
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)
    photo=rs(db_User_shouwo)
	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
%>
<iframe height="200" width="400" frameborder="0" src=" bg/wo/<%if rs(db_user_shouwo)<>"" then%><%=rs(db_User_shouwo)%>.asp<%else%>001.asp<%end if%>"></iframe>

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

 
    <B><font color=#c00000>&nbsp;&nbsp;我的日志</B>  <MARQUEE onmouseover=this.stop() onmouseout=this.start() 
                  scrollAmount=3 scrollDelay=60 width=340>
<B><font color=#cc0000> <td align="center"><%userid=request("userid")
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where userid="&userid&" order by userid desc"
rs.open sql,Conn_User,1,1
username=rs("username")

rs.close
set rs=nothing
%>
            <%set rs=server.createobject("adodb.recordset")

rs.open "select top 5 * from article where editor='"&username&"' order by articleid desc",conn,1,1 
if rs.recordcount=0 then
%>

此人很懒暂时还没有任何日志

<%else%>
<%i=0%>
<%do while not rs.eof%>
<%
  set classrs=server.createobject("adodb.recordset")
classrs.open "select * from articleclass where classid="&rs("classid"),conn,1,1
%>
      [&nbsp;<a href=logclass.asp?userid=<%=userid%>&classid=<%=classrs("classID")%>><%=classrs("classname")%></a>&nbsp;]&nbsp;<a href=article_show.asp?articleid=<%=rs("ArticleID")%>><% if rs("TitleFontColor")<>"" then%><font color=<%=rs("TitleFontColor")%>><%=left(rs("title"),22)%></font><%else%><%=left(rs("title"),22)%><%end if%></a>&nbsp;&nbsp;<font style="font-size:10px" color="#999999">(<%=FormatDateTime(rs("updatetime"),2)%>)</font>
      <%if FormatDateTime(rs("UpdateTime"),1)=FormatDateTime(now,1) then%>
      &nbsp;<img src=user/ico_new.gif border="0">
      <%else%>
      <% end if%>    
<%rs.movenext
		loop%>
<%end if%>    </td>
  </tr>
</table>
</font></B> </MARQUEE> 
&nbsp;&nbsp;<OBJECT codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 height=10 width=420 classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000><PARAM NAME="_cx" VALUE="19976"><PARAM NAME="_cy" VALUE="420"><PARAM NAME="FlashVars" VALUE=""><PARAM NAME="Movie" VALUE="imgs/pic/1193124260656.swf"><PARAM NAME="Src" VALUE="imgs/pic/1193124260656.swf"><PARAM NAME="WMode" VALUE="Window"><PARAM NAME="Play" VALUE="-1"><PARAM NAME="Loop" VALUE="-1"><PARAM NAME="Quality" VALUE="High"><PARAM NAME="SAlign" VALUE=""><PARAM NAME="Menu" VALUE="-1"><PARAM NAME="Base" VALUE=""><PARAM NAME="AllowScriptAccess" VALUE=""><PARAM NAME="Scale" VALUE="ShowAll"><PARAM NAME="DeviceFont" VALUE="0"><PARAM NAME="EmbedMovie" VALUE="0"><PARAM NAME="BGColor" VALUE=""><PARAM NAME="SWRemote" VALUE=""><PARAM NAME="MovieData" VALUE=""><PARAM NAME="SeamlessTabbing" VALUE="1"><PARAM NAME="Profile" VALUE="0"><PARAM NAME="ProfileAddress" VALUE=""><PARAM NAME="ProfilePort" VALUE="0"><PARAM NAME="AllowNetworking" VALUE="all"><PARAM NAME="AllowFullScreen" VALUE="false">
<embed src='imgs/pic/1193124260656.swf' quality=high pluginspage='http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash' type='application/x-shockwave-flash' width=420 height=10>imgs/pic/1193124260656.swf</embed></OBJECT>
 <DIV id=r_dtt_title>             <%set rs=server.createobject("adodb.recordset")
rs.open "select top 3 * from flv where editor='"&username&"' order by photoid desc",conn,1,1
if rs.bof and rs.eof then%>
<br><br><br>
&nbsp;&nbsp;暂时没有视<br>
<br>
 </DIV> 
<% 
else
	rs.PageSize =3 '每页记录条数
	iCount=rs.RecordCount '记录总数
	iPageSize=rs.PageSize
	maxpage=rs.PageCount 
	page=request("page")
	if Not IsNumeric(page) or page="" then
		page=1
	else
		page=cint(page)
	end if
	if page<1 then
		page=1
	elseif  page>maxpage then
		page=maxpage
	end if
	rs.AbsolutePage=Page
	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	%>  
 </DIV><%for i=1 to x%>

<DIV id=neirong>
<DIV id=r_dtt_bg><a href=flv_show.asp?photoid=<%=rs("photoID")%>><img src="<%=rs("PhotoUrl_Thumb")%>"width="114" height="98" border="0"><%if rs("photourl")<>"" then%></a>

<LI><a href=flv_show.asp?photoid=<%=rs("photoID")%>>&nbsp;<%=left (rs("PhotoName"),6)%></A></LI></DIV>
 </DIV><%else
  end if%>

           <%if i mod 5=0 then%>
                      
                        <%else%>
                        <%end if%>
                        <%rs.movenext
  next
  %>
           
                      <%
end if
rs.close
set rs=nothing%> </DIV>
<DIV id=r_movie_list>
<DIV id=r_movie_list_k>
<%
myPagesize=4
set rs=server.createobject("adodb.recordset")
rs.open "select top 4 * from mtv_Photo where username='"&username&"' order by id desc",conn,1,1
%>


 <%line=myPagesize
dim i
i=1
do while not rs.eof
%>
<DIV id=video>
<DIV id=r_movie_sig>
<DIV id=r_movie_img>       
<a href=mv/mtv_play.asp?id=<%=rs("id")%>><img src="<%=rs("s_images")%>"width="100" height="75" border="0"> </a></DIV>
<LI><a href=mv/mtv_play.asp?id=<%=rs("id")%>><%=rs("title")%></A></LI></DIV></DIV><%if i mod 5=0 then%>
                                     
                                      <%else%>
                                      <%end if%>
                                      <%rs.movenext
   line=line-1
   i=i+1
loop
  %>
</body></DIV></DIV></table>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>