<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Include/Connect.asp"-->
<%
articleid=Checkstr(request.querystring("id"))
set rs = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLArticle where ArticleID="&articleid&""
rs.open sql,cn,1,1
if rs.eof or rs.bof then
response.write "找不到此文章！"
response.redirect("http://www.show5.net")
response.end()
else
username=rs("Username")
end if

set rs_theme = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLUser where Username='"&Username&"'"
rs_theme.open sql,cn,1,1
ThemeID=rs_theme("ThemeID")
rs_theme.close
set rs_theme=nothing
%>
<html>
<head>
<META http-equiv="Content-Type" content="text/html; charset=GB2312">
<LINK href="CSS/Hompy/hompy.css" type=text/css rel=stylesheet>
<title><%=rs("Username")%>的宅基地</title>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--
function winOpen(Url,width,height,scrollbar,resize)
{

ow = width;
oh = height;
os = scrollbar;
or = resize;
var xposition=0; 
var yposition=0;
if ((parseInt(navigator.appVersion) >= 4 ))
  {
    xposition = (screen.width - width) / 2;
    yposition = (screen.height - height-25) / 2;
  }
  window.open (Url,"","width ="+ow+",height="+oh+",scrollbars = "+os+",resizable="+or+",left="+xposition+",top="+yposition );
}
//-->
</script>
</head>
<body leftMargin=0 topMargin=0 marginheight="0" marginwidth="0" oncontextmenu="window.event.returnValue=false" onselectstart="return false">
<TABLE 
style="BACKGROUND-IMAGE: url(Theme/<%=ThemeID%>.gif)" 
height=630 cellSpacing=0 cellPadding=0 width=950 border=0>
  <TBODY>
  <TR>
    <TD width=20 height=20></TD>
    <TD width=730 height=20></TD>
    <TD width=26 height=20></TD>
    <TD width=163 height=20></TD>
    <TD width=11 height=20></TD></TR>
  <TR>
    <TD width=20 height=546></TD>
    <TD vAlign=top width=730 height=546><IFRAME name=main_body 
      marginWidth=0 marginHeight=0 src="Hompy/article_index1.asp?username=<%=Username%>&articleid=<%=articleid%>" frameBorder=0 
      width=730 scrolling=no height=546 allowTransparency></IFRAME></TD>
    <TD width=27 height=546></TD>
      <TD vAlign=top width=163 height=546><TABLE cellSpacing=0 cellPadding=0 width=165 border=0>
        <TBODY>
        <TR>
          <TD height=7></TD></TR>
        <TR>
              <TD height=22><IMG 
            height=22 src="Images/Hompy/btn_home.gif" width=163 
            border=0></TD>
            </TR>
        <TR>
          <TD height=5></TD></TR>
        <TR>
              <TD height=49> 
                <TABLE height=55 cellSpacing=0 cellPadding=0 width=165 border=0>
                  <TBODY>
                    <TR> 
                      <TD height="54" align="center"> 
                        <IFRAME 
                  name=player_window src="Hompy/czplayer/exobud.asp?username=<%=rs("username")%>" 
                  frameBorder=0 width=165 scrolling=no 
              height=55></IFRAME></TD>
                    </TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD height=3></TD></TR>
        <TR>
              <TD align=middle height=10><table width="163" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><img src="Images/Hompy/right_stop.gif" width="163" height="4"></td>
                  </tr>
                  <tr>
                    <td height="116" bgcolor="#FFFFFF" align="center" valign="top"><table width="148" border="0" cellspacing="0" cellpadding="0">
                        <tr>
                          <td style="HEIGHT: 20px; BORDER-BOTTOM: #cecfce 1px dotted" class="orange2_b"><img src="Images/Hompy/bbs_ic003.gif" width="16" height="16" align="absmiddle"> 最近访客</td>
                        </tr>
                        <tr>
                          <td height="96" align="center"><marquee behavior="scroll" scrolldelay=50 loop scrollamount=1 width=140 height=80 truespeed direction=up>
<%
set rs = server.CreateObject("adodb.recordset")
sql="select Visituser from Show5_VisitRecord where Username='"&Username&"' group by Visituser"
rs.open sql,cn,1,1
if rs.eof or rs.bof then
response.write "暂无访客！"
else
do while not rs.eof
%>
							<table width="143" height="46" border="0" cellpadding="0" cellspacing="0">
                              <tr>
                                <td width="61" align="center">
<%
set rs_userpic = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLUser where Username='"&rs("Visituser")&"'"
rs_userpic.open sql,cn,1,1
if rs_userpic("Userpic")="user_photo.gif" or rs_userpic("Userpic")="" then
%>
                                  <img src="Userpic/showimg.gif" width="68" height="52" alt=""> 
<%
else
%>
                                  <a href=Hompy/hompy.asp?username=<%=rs("Visituser")%> target="_blank"><img src="../Userpic/<%=rs_userpic("Username")%>/<%=rs_userpic("Userpic")%>" width="68" height="52" border="0"></a> 
<%
end if
%>
								</td>
                                <td width="76" valign="bottom">
<%
if rs_userpic("sex")=0 then
response.write "<img src='../Images/Hompy/minihompya_10.gif' width='15' height='12' align='absmiddle'>"
else
response.write "<img src='../Images/Hompy/minihompya_11.gif' width='15' height='12' align='absmiddle'>"
end if
rs_userpic.close
set rs_userpic=nothing
%>
								<a href=Hompy/hompy.asp?username=<%=rs("Visituser")%> target="_blank"><%
set rs_nickname = server.CreateObject("adodb.recordset")
sql="select * from Show5_ALLUser where Username='"&rs("VisitUser")&"'"
rs_nickname.open sql,cn,1,1
response.write ""&rs_nickname("Nickname")&""
rs_nickname.close
set rs_nickname=nothing
%></a></td>
                              </tr>
                            </table>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
                            </marquee></td>
                        </tr>
                      </table></td>
                  </tr>
                  <tr>
                    <td><img src="Images/Hompy/right_sbottom.gif" width="163" height="4"></td>
                  </tr>
                </table> </TD>
            </TR>
        <TR>
          <TD height=3></TD></TR>
        <TR>
          <TD align=middle height=6>
            <TABLE cellSpacing=1 cellPadding=0 width=163 border=0>
              <TBODY>
              <TR>
                      <TD><A href="Hompy/random.asp" target="_blank"><IMG src="Images/Hompy/btn_randomhome.gif" width="94" height="22" border=0></A></TD>
                      <TD>
<%
if session("Username")="" then
%>
                        <a href="javascript:;" onClick="javascript:winOpen('Hompy/userlogin.asp', 288, 122, 'no','no')"><IMG src="Images/Hompy/btn_login.gif" width="65" height="22" border=0></a> 
                        <%
else
%>
                        <a href="Hompy/logout.asp?returnuser=<%=Username%>"><IMG src="Images/Hompy/btn_logout.gif" width="65" height="22" border=0></a> 
                        <%
end if
%>
</TD>
                    </TR></TBODY></TABLE></TD></TR>
        <TR>
          <TD height=6></TD></TR></TBODY></TABLE></TD>
    <TD width=10 height=546></TD></TR>
  <TR>
    <TD width=20 height=64></TD>
    <TD width=730 height=64></TD>
    <TD width=26 height=64></TD>
    <TD width=163 height=64></TD>
    <TD width=11 height=64></TD></TR></TBODY></TABLE>
</body>
</html>