<!-- #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_xiaojun@163.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
nummer=dim_num(0)
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_newarticle(8)
response.write ukong
call left_hotarticle(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 align=center>
<td class=td width='10%'>序号</td>
<td class=td width='40%'>文章标题</td>
<td class=td width='20%'>发布人</td>
<td class=td width='20%'>时间</td>
<td class=td width='10%'>查看</td>
</tr>
<%
sql_order="id desc"
sql="select count(id) from blog_data where type='article' 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,count,tim from blog_data where type='article' 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
  response.write vbcrlf&"<tr class=tr><td align=center><font class=gray>"&rs("id")&"</font></td><td ><a href=blog_view.asp?user="&rs("username")&"&id="&rs("id")&">"&joekoe_cms.code_html(rs("topic"),1,25)&"</a></td><td align=center>"&format_user_name(idtoname(rs("username")),0,"")&"</td><td align=center><font class=gray>"&rs("tim")&"</a></td><td align=center><font class=gray>"&rs("count")&"</font></td></tr>"
  rs.movenext
next
rs.close
pageurl="?action="&action&"&"
%>
<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.
'**

%>