<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<div id="mod_links" class="mod" rel="drag">
	<table width="100%" border="0" cellspacing="0" cellpadding="0" class="modth">
	<tr><td class="modtl" width="7">&nbsp;</td>
	<td class="modtc" nowrap><div class="modhead"><span class="modtit">文章分类</span></div></td>
	<td class="modtc" nowrap align="right"></td>
	<td class="modtr" width="7">&nbsp;</td>
	</tr></table>
  <div id="m_links" class="modbox">
<%
sql="select * from ftblog_type where userid="&userid&" and blogphoto=0 order by indate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
do while not rs.eof
%>
  <div class="item"><span style="margin-left:3px"></span><span id="linkArea"><a href="boker.asp?userid=<%=userid%>&blogtypeid=<%=rs("id")%>"><%=rs("blogtype")%></a>(<%=rs("totalnum")%>)</span>
  </div>
  <div class="line">&nbsp;</div>
<%
rs.movenext
loop
rs.close
%>
</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
<tr><td class="modbl" width="7">&nbsp;</td>
<td class="modbc">&nbsp;</td>
<td class="modbr" width="7">&nbsp;</td>
</tr></table>
</div>
<div id="comm_info" rel="drag" class="mod">
	<table width="100%" border="0" cellspacing="0" cellpadding="0" class="modth">
	<tr><td class="modtl" width="7">&nbsp;</td>
	<td class="modtc" nowrap><div class="modhead"><span class="modtit">文章存档</span></div></td>
	<td class="modtc" nowrap align="right"></td>
	<td class="modtr" width="7">&nbsp;</td>
	</tr></table>
<div id="m_links" class="modbox">
    <span id="linkArea">
  <%
If Trim(Request("ReqDate"))="" or ( not IsDate(Trim(Request("ReqDate"))) ) then
 CurrentDate=Date
else
 CurrentDate=Trim(Request("ReqDate"))
end if
PreviousMonthDate=DateAdd("m",-1,CurrentDate)
NextMonthDate=DateAdd("m",1,CurrentDate)
bgnum=split(CurrentDate,"-")(1)
%>
<table width="176" cellpadding="2" cellspacing="2" background="blogimages/month<%=bgnum%>.gif" align=center>
  <tr align="LEFT"> 
                    <td width="14%" height="19" align="center"><a href="log.asp?userid=<%=userid%>&blogtypeid=<%=blogtypeid%>&ReqDate=<%=PreviousMonthDate%>" title="上一月">&lt;&lt;</a></td>
                    <td colspan="5" align="center"><%=year(CurrentDate)&"年"&month(CurrentDate)&"月"%></td>
                    <td width="14%" align="center"><a href="log.asp?userid=<%=userid%>&ReqDate=<%=NextMonthDate%>" title="下一月">&gt;&gt;</a></td>
  </tr>
                  <tr align="LEFT"> 
                    
    <td style="bold 11px; color:red"> 日</td>
                    <td style="bold 11px;"> 一</td>
                    <td style="bold 11px;"> 二</td>
                    <td style="bold 11px;"> 三</td>
                    <td style="bold 11px;"> 四</td>
                    <td style="bold 11px;"> 五</td>
                    <td style="bold 11px;"> 六</td>
  </tr>
  <%
ym=year(CurrentDate)&"-"&month(CurrentDate)&"-"
i=1
do while i<33
 j=1
 response.write("<tr height=19>")
 do while j<8
  If IsDate(ym&i) then
   CurrentWeekDay=weekday(ym&i)
   if j=CurrentWeekDay then
    If Datediff("d",ym&i,now)>-1 then
     LinkText="<a href=log.asp?userid="&userid&"&blogtypeid="&blogtypeid&"&NewsDate="&ym&i&">" & i & "</a>"
    else
     LinkText=i
    end if
    if i<>Day(now) then
     response.write("<td class=""calendar"">&nbsp;"&LinkText&"</td>")
    else
     response.write("<td class=""calendar-today"">&nbsp;"&LinkText&"</td>")    
    end if
    i=i+1
   else
    response.write("<td></td>")
   end if
  else
   response.write("<td></td>")
   i=i+1
   'exit do
  end if
  j=j+1
 loop
 response.write("</tr>") 
loop
%>
</table>
    <div class="line">&nbsp;</div>
    </div>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
    <tr>
      <td class="modbl" width="7">&nbsp;</td>
      <td class="modbc">&nbsp;</td>
      <td class="modbr" width="7">&nbsp;</td>
    </tr>
  </table>
</div>
<div id="mod_links" class="mod" rel="drag">
	<table width="100%" border="0" cellspacing="0" cellpadding="0" class="modth">
	<tr><td class="modtl" width="7">&nbsp;</td>
	<td class="modtc" nowrap><div class="modhead"><span class="modtit">最新评论</span></div></td>
	<td class="modtc" nowrap align="right">
	</td>
	<td class="modtr" width="7">&nbsp;</td>
	</tr></table>
<div id="m_links" class="modbox">
<%
sql="select top 20 * from ftblog_pl where userid="&userid&" order by pldate desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if not rs.eof then
do while not rs.eof
%>
	<div class="item"> <span style="margin-left:3px"></span> <span id="linkArea"><%=rs("netname")%></span> 
    <br><span style="margin-left:3px"></span><a href="myblog.asp?id=<%=rs("blogid")%>&userid=<%=rs("userid")%>"><%=left(nohtml(rs("plcontent")),50)%><%if len(nohtml(rs("plcontent")))>200 then response.write "......" end if%></a>
	</div>
	<div class="line">&nbsp;</div>
<%
rs.movenext
loop
rs.close
else
response.write "数据为空"
end if
%>
</div>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="8">
<tr><td class="modbl" width="7">&nbsp;</td>
<td class="modbc">&nbsp;</td>
<td class="modbr" width="7">&nbsp;</td>
</tr></table>
</div>