<!-- #include file="include/config.asp" -->
<!-- #include file="include/con_photo.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
dim stype,keyword,sel
keyword=sql_chk(request.querystring("keyword"))
sel=sql_chk(request.querystring("sel"))
stype=trim(request.querystring("stype"))

call   Blog_Top()
'----------------------------左边 开始----------------------------
'call  Blog_left()
'----------------------------左边 结束----------------------------
	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=""photo.asp?Userid="&b_userid&""" >相册</a> "
	webroad=webroad&">> <a href='blog.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>"

'----------------------------中间 开始----------------------------
if berr="" then

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$",photo_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$",photo_list)
tmpskin = Replace(tmpskin, "$show_xml$","")
tmpskin = Replace(tmpskin, "$show_links$",hot_blog1(5))

response.write tmpskin

  
 else
response.write vbcrlf&berr
end if




 

Function  photo_list()
  dim id,user,topic,hidden,tim,pic,sqls,tmp1
  Tmp1="<table width='100%'><tr><td>"
  sqls=""
  if keyword<>"" and sel<>""  then
  sqls=sqls&" and "&sel&" like '%"&keyword&"%' "
  end if
  sql="select count(id) from blog_data where hidden=1 and type='photo' and  username='"&b_userid&"' and hidden=1 "&sqls
  set rs=joekoe_cms.exec(sql,1)
  rssum=rs(0)
  rs.close
  if int(rssum)<1 then
     tmp1="暂时没有相片" 
  else
  call format_pagecute()
  sql="select top "&nummer*viewpage&" * from blog_data where hidden=1 and type='photo' and   username='"&b_userid&"' and hidden=1 "&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)

  for i=1 to rssum
    id=rs("id")
    topic=rs("topic")
    tim=rs("tim")
	pic=rs("pic")
	counts=rs("count")
    if rs("author")<>"" then
     user=rs("author")
    else
     user=rs("username")
    end if		
%>

<% if (i-1) mod col_num=0 then 
       tmp1=tmp1&"<tr><td><table border=0 cellspacing=0 cellpadding=0 width='100%'><tr align=center>"
       tr_ture=false
   end if
   tmp1=tmp1&"<td width='"&pnum&"'><table border=0 cellspacing=0 cellpadding=2><tr><td align=center>"&pic_fk(pic,1,"photo_view.asp?userid="&b_userid&"&id="&id)&"</td></tr><tr><td align=center><a href='photo_view.asp?userid="&b_userid&"&id="&id&"'><font alt='"&joekoe_cms.code_html(topic,1,0)&"'>"&joekoe_cms.code_html(topic,1,8)&"</font></a></td></tr></table></td>"
    if i mod col_num=0 then
  			tr_ture=true
            tmp1=tmp1&"</tr></table></td></tr>"
  end if
  rs.movenext
  next
    rs.close
    if not tr_ture then tmp1=tmp1&"</tr></table></td></tr>"
    tmp1=tmp1&"<tr height=26><td>&nbsp;共有<font class=red>"&rssum&"</font>个照片&nbsp;页次：<font class=red>"&viewpage&"</font>/<font class=red>"&thepages&"</font>&nbsp;分页："&jk_pagecute(nummer,thepages,viewpage,"photo.asp?userid="&b_userid&"&",5,"#ff0000")&"</td></tr></table>"
end if
photo_list="<div>"&webroad&"<div>"&tmp1&"</div></div>"
end Function
'****************************************************
' HSCMS 1.2      Power by 2332.cn
' Email: 116116089@qq.com
' Web: http://www.2332.cn
' Copyright (C) 2006 2332.cn All Rights Reserved.
'****************************************************
%>