<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Include/Connect.asp"-->
<%
Username=Checkstr(Request.QueryString("Username"))
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../CSS/Hompy/hompy.css" type=text/css rel=stylesheet>
<title></title>
</head>

<body  oncontextmenu="window.event.returnValue=false" onselectstart="return false">
<table width="480" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td width="276" height="93" valign="top">
<TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
        <TBODY>
          <TR> 
            <TD width="81%" height="23" align=left class="orange2_b" style="HEIGHT: 24px; BORDER-BOTTOM: #cecfce 1px dotted">&nbsp;<img src="../Images/Hompy/bbs_ic017.gif" width="16" height="16" align="absmiddle"> 
              最新文章：</TD>
            <TD width="19%" height="23" align=left class="orange2_b" style="HEIGHT: 24px; BORDER-BOTTOM: #cecfce 1px dotted"><a href="article_index.asp?username=<%=username%>" target="_parent"><img src="../Images/Hompy/more.gif" width="41" height="11" border="0" align="absmiddle"></a></TD>
          </TR>
          <TR> 
            <TD height="59" colspan="2" style="PADDING-TOP:3px;BORDER-BOTTOM: #cecfce 1px dotted" valign="top"> 
<%
set rs = server.CreateObject("adodb.recordset")
sql="select TOP 3 * from Show5_ALLArticle where Username='"&Username&"' order by ArticleID DESC"
rs.open sql,cn,1,1
if rs.eof or rs.bof then
response.write("暂无文章")
else
do while not rs.eof
%> 
              <table width="264" border="0" cellspacing="0" cellpadding="0">
                <tr> 
                  <td width="18" height="18" align="center"><img src="../Images/Hompy/bbs_ic073.gif" width="16" height="16"></td>
                  <td width="182"><a href="article_index.asp?resurl=articleview.asp?articleID=<%=rs("ArticleID")%>&username=<%=rs("Username")%>&groupid=<%=rs("GroupID")%>" target="_parent" title="<%=rs("Topic")%>"><%
											  a=rs("Topic")
											  if len(a)>15 then
											  a = left(a,15)&".." 
                                              end if 
                                              response.write ""&a&""
											  %></a></td>
                  <td width="64" align="right"><SPAN style="FONT-SIZE: 11px; COLOR: #666666"><SPAN><%=left(rs("Posttime"),8)%></span></span></td>
                </tr>
              </table>
              <%
rs.movenext
loop
end if
rs.close
%> </TD>
          </TR>
        </TBODY>
      </TABLE></td>
    <td width="204" valign="top"><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
          <TR> 
            <TD height="23" colSpan=2 align=left class="orange2_b"><img src="../Images/Hompy/bbs_ic037.gif" width="16" height="16" align="absmiddle">&nbsp;最新统计：</TD>
          </TR>
          <TR bgColor=#f3f3f3> 
            <TD class=list3 align=left width="50%" height=20>&nbsp;&nbsp;<img src="../Images/Hompy/dot_2.gif" width="4" height="7" border="0"> 
              <a href="article_index.asp?username=<%=username%>" target="_parent">博客： 
              <%
sql="select * from Show5_ALLArticle where Username='"&Username&"'"
rs.CursorLocation=3
rs.open sql,cn,1,1
response.write "<SPAN style='FONT-SIZE: 11px; COLOR: #ff6600'><SPAN>"&rs.recordcount&"</span></span>"
rs.close

sql="select * from Show5_ALLArticle where Username='"&Username&"' and DATEDIFF(day,Posttime,getdate())<3"
rs.open sql,cn,1,1
if not rs.eof then
response.write " <img src='../Images/Hompy/ico_new.gif' width='10' height='8' border='0' align='absmiddle'>"
end if
rs.close
%>
              </a> </TD>
            <TD class=list3 align=left width="50%" height=20>&nbsp;&nbsp;<img src="../Images/Hompy/dot_2.gif" width="4" height="7" border="0"> 
              <a href="photo_index.asp?username=<%=username%>" target="_parent">相册： 
              <%
sql="select * from Show5_ALLPhoto where Username='"&Username&"'"
rs.CursorLocation=3
rs.open sql,cn,1,1
response.write "<SPAN style='FONT-SIZE: 11px; COLOR: #ff6600'><SPAN>"&rs.recordcount&"</span></span>"
rs.close

sql="select * from Show5_ALLPhoto where Username='"&Username&"' and DATEDIFF(day,Posttime,getdate())<3"
rs.open sql,cn,1,1
if not rs.eof then
response.write " <img src='../Images/Hompy/ico_new.gif' width='10' height='8' border='0' align='absmiddle'>"
end if
rs.close
%>
              </a></TD>
          </TR>
          <TR bgColor=#f3f3f3> 
            <TD class=list3 align=left height=20>&nbsp;&nbsp;<img src="../Images/Hompy/dot_2.gif" width="4" height="7" border="0"> 
            <A href="tt_index.asp?username=<%=username%>" target="_parent">拍贴： 
              <%
sql="select * from Show5_ALLTT where Username='"&Username&"'"
rs.CursorLocation=3
rs.open sql,cn,1,1
response.write "<SPAN style='FONT-SIZE: 11px; COLOR: #ff6600'><SPAN>"&rs.recordcount&"</span></span>"
rs.close

sql="select * from Show5_ALLTT where Username='"&Username&"' and DATEDIFF(day,Posttime,getdate())<3"
rs.open sql,cn,1,1
if not rs.eof then
response.write " <img src='../Images/Hompy/ico_new.gif' width='10' height='8' border='0' align='absmiddle'>"
end if
rs.close
%>
              </A></TD>
            <TD class=list3 align=left height=20>&nbsp;&nbsp;<img src="../Images/Hompy/dot_2.gif" width="4" height="7" border="0"> 
              <a href="vshow_index.asp?username=<%=username%>" target="_parent">视频： 
              <%
sql="select * from Show5_ALLVideo where Username='"&Username&"'"
rs.CursorLocation=3
rs.open sql,cn,1,1
response.write "<SPAN style='FONT-SIZE: 11px; COLOR: #ff6600'><SPAN>"&rs.recordcount&"</span></span>"
rs.close

sql="select * from Show5_ALLVideo where Username='"&Username&"' and DATEDIFF(day,Posttime,getdate())<3"
rs.open sql,cn,1,1
if not rs.eof then
response.write " <img src='../Images/Hompy/ico_new.gif' width='10' height='8' border='0' align='absmiddle'>"
end if
rs.close
%>
              </a></TD>
          </TR>
          <TR bgColor=#f3f3f3> 
            <TD class=list4 align=left height=20>&nbsp;&nbsp;<img src="../Images/Hompy/dot_2.gif" width="4" height="7" border="0"> 
              <a href="message_index.asp?username=<%=username%>" target="_parent">留言： 
              <%
sql="select * from Show5_ALLMessage where Username='"&Username&"'"
rs.CursorLocation=3
rs.open sql,cn,1,1
response.write "<SPAN style='FONT-SIZE: 11px; COLOR: #ff6600'><SPAN>"&rs.recordcount&"</span></span>"
rs.close

sql="select * from Show5_ALLMessage where Username='"&Username&"' and DATEDIFF(day,Posttime,getdate())<3"
rs.open sql,cn,1,1
if not rs.eof then
response.write " <img src='../Images/Hompy/ico_new.gif' width='10' height='8' border='0' align='absmiddle'>"
end if
rs.close
%>
              </a></TD>
            <TD class=list4 align=left height=20>&nbsp;&nbsp;</TD>
          </TR>
        </TBODY>
      </TABLE></td>
  </tr>
  <tr> 
    <td height="90" colspan="2"><table width="480" height="206" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="290" height="206"> <IFRAME name=video_i marginWidth=0 marginHeight=0 src="video_i.asp?Username=<%=Username%>" frameBorder=0 width=290 height=206></IFRAME>
          </td>
          <td width="190" bgcolor="#f7f7f7" valign="top" align="center"><table width="95%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="70%" height="21" class="orange2_b" style="HEIGHT: 24px; BORDER-BOTTOM: #cecfce 1px dotted; BACKGROUND-COLOR: #f7f7f7">&nbsp;&nbsp;最新视频 
                </td>
                <td width="30%" class="orange2_b" style="HEIGHT: 24px; BORDER-BOTTOM: #cecfce 1px dotted; BACKGROUND-COLOR: #f7f7f7"><a href="vshow_index.asp?username=<%=username%>" target="_parent"><img src="../Images/Hompy/more.gif" width="41" height="11" border="0" align="absmiddle"></a></td>
              </tr>
            </table>
            <table width="95%" height="57" border="0" cellpadding="0" cellspacing="0">
              <tr><td height="5"></td></tr>
			  <tr> 
<%
sql="select Top 6 * from Show5_ALLVideo where Username='"&Username&"' and audit=1 Order By VideoID DESC"
rs.open sql,cn,1,1
if rs.eof or rs.bof then
response.write "暂无视频！"
else
 n=1
 m=2
Do Until rs.eof
%>
				<td height="57" style="PADDING-LEFT: 10px"> 
                  <table width="70" height="50" border="0" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td style="BORDER-RIGHT: #cecfce 1px solid; BORDER-TOP: #cecfce 1px solid; BORDER-LEFT: #cecfce 1px solid; WIDTH: 70px; BORDER-BOTTOM: #cecfce 1px solid; HEIGHT: 50px; BACKGROUND-COLOR: #ffffff; TEXT-ALIGN: center"><a href="flvplayer1.swf?server=<%=rs("Server")%>&username=<%=rs("Username")%>&file=<%=rs("filename")%>" target="video_i"><img src="../Videoimage/<%=rs("filename")%>.jpg" width="70" height="50" border="0" alt="<%=rs("Topic")%>"></a></td>
                    </tr>
                  </table></td>
<%
If n = m then
Response.Write("</tr><tr>")
n = 1
Else
n = n + 1
End If
rs.MoveNext
i=i+1
Loop
rs.close
set rs=nothing
End If
%>
              </tr>
            </table>
</td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="28" colspan="2" valign="bottom"> <table width="480" height="24" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="19%" bgcolor="#F0F0F0" align="center" class="orange2_b"><img src="../Images/Hompy/bbs_ic020.gif" width="16" height="16" align="absmiddle"> 
            好友留言</td>
          <td width="68%" bgcolor="#F0F0F0"><table width="300" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td bgcolor="#FFFFFF">&nbsp;</td>
              </tr>
            </table></td>
          <td width="13%" bgcolor="#F0F0F0"><a href="message_index.asp?username=<%=username%>" target="_parent"><img src="../Images/Hompy/more.gif" width="41" height="11" border="0"></a></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td colspan="2" style="PADDING-TOP: 3px"><IFRAME 
                  name=Articlelist_Frame marginWidth=0 marginHeight=0 
                  src="messagelist_i.asp?username=<%=username%>" frameBorder=0 width=480 
                  height=110></IFRAME></td>
  </tr>
</table>
</body>
</html>
