<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="inc/conn.asp"-->
<!--#include file="inc/function.asp"-->
<!--#include file="inc/Conn_User.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/ubbcode.asp"-->
 <%
dimm UserID
dimm 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 & "<br><li>找不到指定的用户<br>"
	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
%>






<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE><%=SiteName%>-<%=classrs("classname")%> <% if rs("TitleFontColor")<>"" then%>
<%=rs("TitleFontColor")%><%=rs("title")%>
            <%else%>
  <%=rs("title")%>
            
            <%end if%>
            
            <%if FormatDateTime(rs("UpdateTime"),1)=FormatDateTime(now,1) then%>

            <%else%>
            <% end if%>-日志</TITLE>
<META http-equiv=Content-Type content="text/html; charset=GBK">
<META content="" name=Author><LINK 
href="img/theme.css" type=text/css rel=stylesheet><LINK 
href="img/default.css" type=text/css rel=stylesheet>
<SCRIPT language=javascript src="img/show_hide.js" 
type=text/javascript></SCRIPT>




<SCRIPT language=javascript src="img/showmessage.js" 
type=text/javascript></SCRIPT>

<META content="MSHTML 6.00.5730.13" name=GENERATOR></HEAD>
<BODY onload=picSizeFixer1()>
<DIV id=main>


<DIV id=banner>
<TABLE cellSpacing=0 cellPadding=0 border=0>
  <TBODY>
  <TR>


    <TD class=blog_title> - <%=rs("title")%> <%
				
		response.write ""
		set tUser=Conn_User.execute("select " & db_User_ID & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'")
		if tUser.bof and tUser.eof then
			response.write rs("Editor")
			
		else
			response.write " " & rs("Editor") & ""
		end if
		
		%>
                  <%
				
		
		set tUsers=Conn_User.execute("select " & db_User_usermane & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'")
		
		
		%> <%
		 userid=request("userid")
		 
  set classrs=server.createobject("adodb.recordset")
classrs.open "select * from articleclass where classid="&rs("classid"),conn,1,1
%></TD></TR>
  <TR>
    <TD class=blog_address>http://www.516show.cn/user.asp?userid=<%=rs("userid")%>&nbsp;&nbsp;&gt;&nbsp;&nbsp;<a href="#" onclick="window.external.AddFavorite('http://www.516show.cn/user.asp?userid=<%=rs("userid")%>','我秀家园 - 516SHOW.CN-我秀,我行,我精彩！');">收藏本页</A> </TD></TR></TBODY></TABLE></DIV>
<DIV id=nav>
<DIV class=left><A href="/">家园首页</A> </DIV>
<DIV class=right> <a href=user.asp?userid=<%= UserID %> target="_blank"><%=rs("UserName")%> - 
个人家园</A>┆<a href=usermanage.asp?userid=<%= UserID %>>控制面板</A>┆<A 
href="announce.asp?id=33" target=_blank>帮助</A> </DIV>
<DIV class=clear><IMG height=1 alt="" src="img/spacer.gif" width=1 
name=""> </DIV></DIV>
<DIV id=blog_body>
<DIV class=leftpane>
<DIV class=intro>
<TABLE cellSpacing=0 cellPadding=0 border=0>
  <TBODY>
  <TR>
    <TD class=photo>



<%
'请勿改动下面这三行代码
const ChannelID=3
Const ShowRunTime="Yes"
SkinID=0
MaxPerPage=12
dim UserID
dim mdid,htm
mdid=trim(request("mdid"))
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 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 rs.bof and rs.eof then
	FoundErr=True
	ErrMsg=ErrMsg & "<br><li>找不到指定的用户<li>"
else
    photo=rs(db_User_photok)
	UserName=rs(db_User_Name)
	PageTitle=  UserName &"家园"
	

%>



										<img src="<%if rs(db_User_userphoto)<>"" then%><%= rs(db_User_userphoto)%><%else%>images/NoPic2.jpg<%end if%>" width="180" height="120">
 </A>



<%

end if

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









<%
articleid=request("articleid")
set rs=server.createobject("adodb.recordset")
rs.open "select * from article where articleid="&articleid&" order by articleid desc",conn,1,3 
rs("hits")=rs("hits")+1
rs.update
%>



    </TD></TR>
  <TR>
    <TD class=txt>




<a href=user.asp?userid=<%= UserID %> target="_blank"><%= UserName %></a>&nbsp;&nbsp;<%
				
		
		set tUsers=Conn_User.execute("select " & db_User_usermane & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'")
%>
<%
			if rs("Sex")=1 then
				response.write " <a href=zone2.asp?sex=1>男</a> "
			else
				response.write " <a href=zone2.asp?sex=0>女</a> "
			end if
		  %>
                 
    </TD></TR></TBODY></TABLE></DIV>


<EMBED style="FILTER: invert(); WIDTH: 210px; HEIGHT: 45px" src=ad/做我的爱人.mp3 type=audio/mpeg autostart="true"></EMBED></TD></TR></TBODY></TABLE>





<DIV class=class_box id=show_hide05>
<DIV class="class_title cursor_hand" 
onclick="javascript:hide('show_hide_content05');swap('show_hide_title05','className','up','down');">
<DIV class=up id=show_hide_title05>活力地带 </DIV></DIV>
<DIV class=zone id=show_hide_content05>
<DIV class=list><IMG src="img/icon_bloghome.gif" align=absMiddle>             
&nbsp;<a href=user.asp?userid=<%= UserID %> target="_blank">我的家园</A> </DIV>
<DIV class=list><IMG src="img/icon_set.gif" align=absMiddle> &nbsp;<A 
href="fsave.asp?fid=<%= UserID %>" target="_blank">加为好友</A> </DIV>
<DIV class=list><IMG src="img/icon_lvmessage.gif" align=absMiddle> &nbsp;</A><A 
href="gbooks.asp?userid=<%= UserID %>" target="_blank">给我留言</A> </DIV>
<DIV class=list><IMG src="img/icon_myarticle.gif" align=absMiddle> &nbsp;<A 
href="messager.asp?action=new&touser=<%= UserName %>" target="_blank">发送短信</A>
</DIV></DIV></DIV>
<DIV class=class_box id=show_hide10>
<DIV class="class_title cursor_hand" 
onclick="javascript:hide('show_hide_content10');swap('show_hide_title10','className','up','down');">
<DIV class=up id=show_hide_title10>最近更新的BLOG列表 </DIV></DIV>
<DIV class=list01 id=show_hide_content10>
       




            

          &nbsp;&nbsp;<embed width="184" height="220" src="calendar_2.swf" 
quality="best" pluginspage="http://www.macromedia.com/go/getflashplayer" 
align="middle" play="true" loop="true" scale="showall" wmode="transparent" 
devicefont="false" name="FlvPlayer" menu="false" allowScriptAccess="sameDomain" 
salign="" type="application/x-shockwave-flash"  ></embed></OBJECT>

</div--></DIV></DIV>



<DIV >
<DIV>
<DIV ></DIV></DIV>
<DIV >
<IFRAME id=content 
                  style="WIDTH: 100%" name=content align=left 
                  src="voduser.asp?userid=61" frameBorder=0 scrolling=yes 
                  height="330"></IFRAME>



</DIV></DIV></DIV>
<DIV class=mainpane id=thread>
<DIV class=add>

 
  </TD></TR></TBODY></TABLE></DIV>








<DIV class=article id=show_hide02>
<DIV class="title cursor_hand" 
onclick="javascript:hide('show_hide_content02');swap('show_hide_title02','className','up','down');">
<DIV class=up id=show_hide_title02>



            <%
		 userid=request("userid")
		 
  set classrs=server.createobject("adodb.recordset")
classrs.open "select * from articleclass where classid="&rs("classid"),conn,1,1
%><%
				
		set tUsers=Conn_User.execute("select " & db_User_ID & " from " & db_User_Table & " where " & db_User_Name & "='" & rs("Editor") & "'")

		
		%>
            <font color="#123579"><%=classrs("classname")%>&nbsp;&nbsp; <% if rs("TitleFontColor")<>"" then%>
            <font color=<%=rs("TitleFontColor")%> style='FONT-SIZE: 14px'><strong><%=rs("title")%></strong> 
            
            </font> 
            <%else%>
            <font style='FONT-SIZE: 14px'><strong><%=rs("title")%></strong>&nbsp;&nbsp;&nbsp;&nbsp;</font> 
            
            <%end if%>
            
            <%if FormatDateTime(rs("UpdateTime"),1)=FormatDateTime(now,1) then%>
            &nbsp;<img src=user/ico_new.gif border="0"> 
            <%else%>
            <% end if%> &nbsp;&nbsp;</font>&nbsp;人气：<font color="#FF6600" style="font-size:10" ><%=rs("hits")%></font> </DIV></DIV>
<DIV id=show_hide_content02>
<DIV class=time> </DIV>
<DIV class=txt><DIV>


<%=rs("Content")%>





</DIV>
<DIV>
</DIV><P align=right>发表：<%=year(rs("UpdateTime"))%>年<%=month(rs("UpdateTime"))%>月<%=day(rs("UpdateTime"))%>日</P>
<DIV></DIV></DIV>
<DIV class=links>



<table width="50%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="10%" align="right">&nbsp;</td>
    <td align="right" valign="bottom">
      <%
	  
	  sql="Select Top 1 ArticleID,Title From Article Where Deleted=0 and ArticleID>" & rs("ArticleID") & "and editor='"&rs("Editor")&"' order by ArticleID asc"
	  Set rsNext= Server.CreateObject("ADODB.Recordset")
	  rsNext.open sql,conn,1,1
	  if rsNext.Eof then
	  	response.write "<img src=user/nextss.gif border=0>"
	  else
	  	response.write "<a href='blog_show.asp?ArticleID="&rsNext("ArticleID")& "&userid="&userid&"'><img src=user/nexts.gif border=0></a>"
	  end if
	  rsNext.close
	  set rsNext=nothing
	  %>
      &nbsp;<%


	  editor=rs("editor")
	  sql="Select Top 1 ArticleID,Title From Article Where Deleted=0 and ArticleID<" & rs("ArticleID") & "and editor='"&rs("Editor")&"' order by ArticleID desc"
	
	  Set rsPrev= Server.CreateObject("ADODB.Recordset")
	  rsPrev.open sql,conn,1,1
	  if rsPrev.Eof then
	  	response.write "<img src=user/press.gif border=0>"
	  else
	  	response.write "<a href='blog_show.asp?ArticleID="&rsPrev("ArticleID")& "&userid="&userid&"'><img src=user/pres.gif border=0></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
	  end if
	  rsPrev.close
	  set rsPrev=nothing
	  %></td>
  </tr>
</table>







  <LI class=nobor>&nbsp; 
  <DIV class=clear><IMG height=1 alt="" src="img/spacer.gif" width=1 
  name=""> </DIV></LI></UL></DIV></DIV></DIV><A name=reply></A>
<DIV class=comments>
<DIV class="title cursor_hand" 
onclick="javascript:hide('show_hide_content03');swap('show_hide_title03','className','up02','down02');">
<DIV class=up02 id=show_hide_title03>
<DIV class=left>文章评论 </DIV>
<DIV class=right>[以下网友留言只代表其个人观点，不代表<B><font color="#FF6600" style="font-size:10" ><%=SiteName%></font></B>的观点或立场] </DIV>
<DIV class=clear><IMG height=1 alt="" src="img/spacer.gif" width=1 
name=""> </DIV>

</DIV></DIV>
<DIV id=show_hide_content03>

<DIV ></DIV></FORM>
<DIV class=post>










<TABLE cellSpacing=0 cellPadding=0 width="98%" align=center border=0>
  <TBODY>
  <TR>

  <TBODY>
  <TR>


<IFRAME id=ifrid src="articlecomment.asp?articleid=<%=rs("articleid")%>" 
frameBorder=0></IFRAME>


    <TD></TD></TR></TBODY></TABLE></FORM></DIV></DIV></DIV></DIV>
<DIV  class=clear> </DIV>
<br><!--#include file="end.asp"-->
</DIV></DIV>




                      </table>

		
</body>
</html>

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