<%@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"-->
<body style="overflow-y:hidden"> 
  
<%
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
%>
<LINK href="img/ttheme.css" type=text/css rel=stylesheet>




<body style="overflow-y:hidden"> 

<DIV class=class_box id=show_hide12>
<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>最新更新的文章列表 </DIV></DIV>
<DIV class=list01 id=show_hide_content11>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="5">

<DIV class=list01 id=show_hide_content10>
<%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
%>
                    <tr> 
                     <%set rs=server.createobject("adodb.recordset")

rs.open "select top 10 * 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%>
                      <td height="22" bgcolor="fafafa"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="20" align="center"><img src="user/head.gif"></td>
                            <td> 

<%
  set classrs=server.createobject("adodb.recordset")
classrs.open "select * from articleclass where classid="&rs("classid"),conn,1,1
%>
<%
set rsf=server.createobject("adodb.recordset")
rsf.open "select * from [user] where username='"&rs("Editor")&"' order by userid desc",conn_user,1,1 
%>

                             <a href="blog_show.asp?userid=<%=rsf("userid")%>&articleid=<%=rs("ArticleID")%>" target="_blank"><%=left(replace(rs("title"),"&nbsp;",""),11)%> 
                              <%
				  if len(rs("title"))>11 then
				   response.Write""
				   else 
				   end if%>
                              </a> <font color="#FF6600" style="font-size:10" ><%=rs("hits")%></font>  </td>
                          </tr>
                        </table></td>
                    </tr>
               
 <%if FormatDateTime(rs("UpdateTime"),1)=FormatDateTime(now,1) then%>
    
     
      <%else%>
      <% end if%>    
<%rs.movenext
		loop%>
<%end if%>



</DIV></DIV></DIV>
<DIV class=mainpane id=thread>
<DIV class=add>
<%
end if
rs.close
set rs=nothing
call CloseConn()
%>