<!-- #include file="include/set.asp" -->
<!-- #include file="../include/jk_pagecute.asp" -->
<!-- #include file="../include/jk_page_cute.asp" -->
<%
'****************************************************
' HSCMS 1.2      Power by eebaa.com
' Email: yz_xiaojun9163q.com
' Web: http://www.eebaa.com
' Copyright (C) 2004 eebaa.com All Rights Reserved.
'****************************************************
dim nummer,nums,rssum,page,viewpage,thepages,pageurl,sql_add,sql_order
iframe=true

col_num=4
num_col=3
pnum=100\col_num
w_num=10
tr_ture=true
nummer=num_col*col_num
nums=nummer

page=1
tit="日志列表"
call web_head(0,0,0,0,0)
'---------------------------左边1 开始----------------------------
call hscms_blog_login("用户登陆",user_login())
'---------------------------左边1 结束----------------------------
call web_center(0)
'---------------------------中间1 开始----------------------------
call hsblog_top()
'---------------------------中间1 结束----------------------------
response.write web_right
response.write web_left(0)
'---------------------------左边2 开始----------------------------
call left_newphoto(8)
response.write ukong
call left_hotphoto(8)
'---------------------------左边2 结束----------------------------
call web_center(0)
'---------------------------中间2 开始----------------------------


call hsblog_ListBlog(20)


response.write ukong
'---------------------------中间2 结束----------------------------

call web_end(0,0)


Sub hsblog_ListBlog(num)

%>
<table cellspacing=1 cellpadding=4 class=table>
<tr>
<td class=td >相片查看</td>
</tr>
<%
sql_order="id desc"
sql="select count(id) from blog_data where type='photo' and hidden=1"
set rs=joekoe_cms.exec(sql,1)
rssum=rs(0)
rs.close
call format_pagecute()
sql="select top "&nummer*viewpage&" id,topic,username,pic,count,tim from blog_data where type='photo' and hidden=1 order by "&sql_order
call joekoe_cms.exec(sql,-1)
rs.open sql,conn,0,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 nums

  nid=rs("id")
  nname=rs("topic")
  gall_pic=rs("pic")
  if (i-1) mod col_num=0 then
%>
<tr class=tr><td>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr align=center>
<%
    tr_ture=false
  end if
%>
  <td width='<%response.write pnum%>%'>
    <table border=0 cellspacing=0 cellpadding=2>
    <tr><td align=center><%response.write pic_fk(gall_pic,1,"photo_view.asp?user="&rs("username")&"&id="&nid)%></td></tr>
    <tr><td align=center><b><a href='photo_view.asp?user=<%=rs("username")%>&id=<%response.write nid%>' alt='<%response.write joekoe_cms.code_html(nname,1,0)%>'><%response.write joekoe_cms.code_html(nname,1,w_num)%></a></b></td></tr>
<tr><td align=center>

<font class=red><%response.write format_user_name(idtoname(rs("username")),0,"")%></font>
    人气：<font class=red><%response.write rs("count")%></font></td></tr>
    </table>
  </td>
<%
  if i mod col_num=0 then
    tr_ture=true
%>
  </tr>
  </table>
</td></tr>
<%
  end if
  rs.movenext
next
rs.close
if not tr_ture then
%>
  </tr>
  </table>
</td></tr>
<%
end if
pageurl="?"
%>
<tr><td class=trb colspan=9 height=<%response.write m_hei%>>
&nbsp;现有&nbsp;<font class=red><%response.write rssum%></font>&nbsp;篇<%response.write tit_fir%>
&nbsp;页次：<font class=red><%response.write viewpage%></font>/<font class=red><%response.write thepages%></font>&nbsp;
&nbsp;分页：<%response.write jk_pagecute(nummer,thepages,viewpage,pageurl,8,"#ff0000")%>
</td></tr>
</table>
<%End Sub
'****************************************************
' HSCMS 1.2      Power by eebaa.com
' Email: yz_xiaojun@163.com
' Web: http://www.eebaa.com
' Copyright (C) 2004 eebaa.com All Rights Reserved.
'**

%>