<!-- #include file="include/config.asp" -->
<!-- #include file="include/con_blog.asp" -->
<!-- #include file="../include/jk_review.asp" -->
<!-- #include file="../include/jk_ubb.asp" -->
<!-- #include file="../include/jk_page_view.asp" -->
<!-- #include file="../include/jk_emoney.asp" -->



<% 
'****************************************************
' HSCMS 3.0      Power by sinoxz.com
' Email: sinoxz@sinoxz.com
' Web: http://www.sinoxz.com
' Copyright (C) 2006 sinoxz.com All Rights Reserved.
'****************************************************
response.write joekoe_cms.js_put("../style/magic.js",0)
call web_head(0,0,5,0,0)
call blog_first()


'----------------------------左边 开始----------------------------


'call Blog_left()
'----------------------------左边 结束----------------------------

	id=request.QueryString("id")
	if not(isnumeric(id)) then
	  call format_redirect("blog.asp?userid="&b_userid)
	end if
	
	  sql="select * from blog_data where id="&id&""
	  call joekoe_cms.exec("",-1)
	  rs.open sql,conn,1,1
		if rs.eof then
		berr="<br><br>对不起，内容不存在！<br><br><a href="&trim(request.servervariables("http_referer"))&">返回</a><br><br>"
		else
		   if rs("hidden")=0 and login_id<>b_userid then 
		 berr=">对不起，此日志不公开！<br><br><a href="&trim(request.servervariables("http_referer"))&">返回</a><br><br>"
		  else
			call joekoe_cms.exec("update  blog_data  set count=count+1 where id="&rs("id")&"",0)
			id=rs("id")
			topic=trim(rs("topic"))
			
			word=rs("word")
			word=code_jk(word)
			weather=rs("weather")
			icon=rs("icon")
			tim=rs("tim")
			counts=rs("count")
			if rs("author")<>"" then
			   d_author=rs("author")
			else
			   d_author=rs("username")
			end if
			cod=trim(rs("cod"))
		 end if
	   end if
	 rs.close
	tit=b_name
	tit2="查看日志:"&joekoe_cms.code_html(topic,1,20)
	webroad=webroad&"<div align='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&">> "&tit2 
	webroad=webroad&"</div><br>"

Call Blog_Top()

'----------------------------中间 开始----------------------------
if berr="" then
	topic_weeks="<DIV style='float:right' width=100% > 星期"&weeks(datepart("w",tim))&"&nbsp;&nbsp;<IMG src='images/image/"&weather&".gif' align=absMiddle>&nbsp; </DIV>"
	topic="<div width='100%' ><IMG  src='images/main/topic.gif' border=0>&nbsp;<b>"&topic&"</b></div> "
	topic=topic_weeks&topic
	user_hf="</br><div style='float:right' width=100% ><img src=../images/icon/"&icon&".gif border=0 align=absmiddle>&nbsp;&nbsp;<A href='../user/view.asp?username="&d_author&"' target=_blank alt='查看个人资料'>"&d_author&"</A> 发表于"&tim&" &nbsp;&nbsp;浏览："&counts&"&nbsp;&nbsp;</div>"
	
	blog_main="<div align='left'>"&webroad	
	blog_main=blog_main&topic
	blog_main=blog_main&"<div  width='95%' align='left'><div >"&word&"</div></br>"&user_hf&" "
	blog_main=blog_main&"</br>"&review_type("diary",id,joekoe_cms.web_path&"blog/blog_view.asp?userid="&b_userid&"&id="&id,1,b_userid)&""
	blog_main=blog_main&"</div>"
    
  else
  response.write vbcrlf&berr
  end if


'response.write vbcrlf&"</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$",blog_main)
tmpskin = Replace(tmpskin, "$show_xml$","")
tmpskin = Replace(tmpskin, "$show_links$",hot_blog1(5))


response.write tmpskin

'Call Blog_End()
'****************************************************
' HSCMS 3.0      Power by sinoxz.com
' Email: sinoxz@sinoxz.com
' Web: http://www.sinoxz.com
' Copyright (C) 2006 sinoxz.com All Rights Reserved.
'****************************************************
%>
