<!-- #include file="include/config.asp" -->
<!-- #include file="include/con_blog.asp" -->
<!-- #include file="../include/jk_ubb.asp" -->
<!-- #include file="../include/jk_page_cute.asp" -->
<!-- #include file="../include/jk_pagecute.asp" -->

<%
'****************************************************
' HSCMS 1.2      Power by 2332.cn
' Email: 116116089@qq.com
' Web: http://www.2332.cn
' Copyright (C) 2006 2332.cn All Rights Reserved.
'**************************************************** 
   
call web_head(0,0,5,0,0)

call blog_first()
tit=b_name

keyword=sql_chk(request.form("keyword"))
sel=sql_chk(request.form("sel"))
stype=trim(request.form("stype"))

Call Blog_Top()
'----------------------------左边 开始----------------------------
'call Blog_left()
'----------------------------左边 结束----------------------------

'response.write  vbcrlf&"<div id='main'>"
'response.write  vbcrlf&"<div class=""channel_nav"">"
'response.write  vbcrlf&"<a href=""blog.asp?userid="&b_userid&""" >"&tit&"</a> "
'response.write  vbcrlf&">> 日志 "&"</div><br>"

	'webroad=webroad&"<div id='main'>"
	webroad=webroad&"<div style='float:left'>"
	webroad=webroad&"<a href='/index.asp' >亿百网络</a> "
	webroad=webroad&">> <a href='/blog/index.asp' >博客首页</a> >>"
	webroad=webroad&"<a href=""blog.asp?Userid="&b_userid&""" >"&tit&"</a> "
	webroad=webroad&">> <a href=""blog.asp?Userid="&b_userid&""" >日志</a> "
	webroad=webroad&">> <a href='photo.asp?Userid="&b_userid&"' style=""color:#FF0000"">-----<查看相册></a> "
	'response.write  vbcrlf&">> <a href=""blog.asp?User="&b_user&"&action="&action&""" >"&tit2&"</a> "
'	webroad=webroad&">> "&tit2 
	webroad=webroad&"</div><br><br>"




'----------------------------中间 开始----------------------------
dim eyear,emonth,eday,sqls,user,topic,hidden,tim,weather,word,bdate,stype,keyword,sel
log_list=""
bdate=true
sqls=""
eyear=request.QueryString("year")
emonth=request.QueryString("month")
eday=request.QueryString("day")
if eyear<>"" then 
sqls=" and year="&eyear
if emonth<>"" then
sqls=sqls&" and month="&emonth
if eday<>"" then
sqls=sqls&" and day="&eday
end if
end if
end if
if eyear<>"" and not(isnumeric(eyear)) then bdate=false
if emonth<>"" and not(isnumeric(emonth)) then bdate=false
if  eday<>"" and not(isnumeric(eday)) then bdate=false
if bdate=false then call format_redirect("blog.asp?userid="&b_userid)


if stype="article" and keyword<>"" and sel<>""  then
sqls=sqls&" and "&sel&" like '%"&keyword&"%' "
elseif stype="photo" then
call format_redirect("photo.asp?userid="&b_userid&"&stype="&stype&"&sel="&sel&"&keyword="&keyword)
end if

sql="select count(id)  from blog_data where hidden=1 and type='article' and username='"&b_userid&"'   "&sqls 
set rs=joekoe_cms.exec(sql,1)
rssum=rs(0)
  rs.close
  if int(rssum)<1 then
    log_list="暂时没有日志"
  else
  
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from blog_data where hidden=1 and type='article' and username='"&b_userid&"' "&sqls&" order by id desc"
  call joekoe_cms.exec("",-1)
  rs.open sql,conn,1,1
  if int(viewpage)>1 then rs.move (viewpage-1)*nummer
  if int(viewpage*nummer)>int(rssum) then nums=nummer-(viewpage*nummer-rssum)
  log_list="<div  align='left'>"
    for i=1 to nums
    id=rs("id")
    topic=rs("topic")
	word=rs("word")
'	word=code_jk(word)
	cod=trim(rs("cod"))
    tim=rs("tim")
	icon=rs("icon")
	weather=rs("weather")
    if rs("author")<>"" then
       d_author=rs("author")
    else
       d_author=rs("username")
    end if
	if int(cod)=2 then   word=topic
   	topic_weeks="<DIV style='float:right'> 星期"&weeks(datepart("w",tim))&"&nbsp;&nbsp;<IMG src='images/image/"&weather&".gif' align=absMiddle>&nbsp; </DIV>"
	topic="<IMG  src='images/main/topic.gif' border=0>&nbsp;<a href='blog_view.asp?userid="&b_userid&"&action=show&id="&id&"' style=""font-size:12px"" ><b>"&code_jk(topic)&"</b></a> "
	topic=topic_weeks&topic 
   
   ' log_list=log_list&"<DIV class=topic><DIV class=topic_r>星期"&weeks(datepart("w",tim))&"&nbsp;&nbsp;<IMG src='images/image/"&weather&".gif' align=absMiddle>&nbsp; </DIV>"
   ' log_list=log_list&"<a href=blog_view.asp?userid="&b_userid&"&action=show&id="&id&" target=_blank><IMG alt=开新窗口访问该主题 src='images/main/topic.gif' border=0></A>&nbsp;<a href=blog_view.asp?userid="&b_userid&"&action=show&id="&id&">"&topic&"</A> </DIV>"
    log_list=log_list&topic
	log_list=log_list&"<DIV >"&left(PrintTrueText(word),100)&"......<br/><a href='blog_view.asp?userid="&b_userid&"&action=show&id="&id&"' style=""font-size:12px"">[阅读全文]</A> </DIV>"
    log_list=log_list&"<DIV class=postend><A href='../user/view.asp?username="&d_author&"' target=_blank alt='查看个人资料'>"&d_author&"</A> 发表于"&tim&"</DIV><HR class=post><BR>"
  rs.movenext
  next
  rs.close

log_list=log_list&"&nbsp;共有<font class=red>"&rssum&"</font>条日志&nbsp;页次：<font class=red>"&viewpage&"</font>/<font class=red>"&thepages&"</font>&nbsp;分页："&jk_pagecute(nummer,thepages,viewpage,"blog.asp?userid="&b_userid&"&",5,"#ff0000")&" "
end if
log_list=log_list&"</DIV></div>"


Dim Tmpskin:tmpskin=b_skinmain

tmpskin = Replace(tmpskin, "留言板","热门日志")
tmpskin = Replace(tmpskin, "Blog信息","所养宠物")
tmpskin = Replace(tmpskin, "博客信息","所养宠物")
tmpskin = Replace(tmpskin, "$show_blogname$",b_name)
tmpskin = Replace(tmpskin, "$show_placard$",B_content)
tmpskin = Replace(tmpskin, "$show_calendar$",Calendar(request.QueryString("year"),request.QueryString("month"),request.QueryString("day")))
tmpskin = Replace(tmpskin, "$show_subject_l$",blog_zt)
tmpskin = Replace(tmpskin, "$show_subject$",blog_fl)
tmpskin = Replace(tmpskin, "$show_newblog$",left_new())
tmpskin = Replace(tmpskin, "$show_comment$",blog_pl(10,b_userid))
tmpskin = Replace(tmpskin, "$show_info$","<table  width=200 style='float:right' >"&showpet(idtoname(b_userid))&"</table>")
tmpskin = Replace(tmpskin, "$show_login$",user_info())
tmpskin = Replace(tmpskin, "$show_newmessage$",left_hot())
tmpskin = Replace(tmpskin, "$show_search$",blog_search())
tmpskin = Replace(tmpskin, "$show_log$",webroad&log_list)
tmpskin = Replace(tmpskin, "$show_xml$","")
tmpskin = Replace(tmpskin, "$show_links$","")

response.write tmpskin

'----------------------------中间 结束----------------------------
'Call Blog_End()
'****************************************************
' HSCMS 1.2      Power by 2332.cn
' Email: 116116089@qq.com
' Web: http://www.2332.cn
' Copyright (C) 2006 2332.cn All Rights Reserved.
'****************************************************
%>

