clist.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<!--#INCLUDE FILE="conn.asp" -->
<!--#include file="ubbcode.asp" -->
<!--#include file="log_lib.asp" -->
<!-- code by Poorfish -->

<script>
document.title="破废墟 Blogin... | 评论列表";
</script>

<%
function FormatTitle(str) 
if len(trim(str))>=36 then 
FormatTitle=left(trim(str),35)&"..." 
else 
FormatTitle=trim(str)
end if 
end function 

sql="select * from moban where m_id="&m_id&""
set rs=conn.EXECUTE(sql)

if rs.eof or rs.bof then
   sql="select * from moban where m_id=1"
   set rs=conn.EXECUTE(sql)
end if

mb_code=rs("m_html")
rs.close
set rs=nothing
'=====================================写入登陆信息
checkuser()
mb_code=replace(mb_code,"$checkuser$",check_user)
'=======================================写入日历
calenda l_year,l_month,l_day
mb_code=replace(mb_code,"$calenda$",ccode)
'=======================================写入Top10
getTop()
mb_code=replace(mb_code,"$top10$",tcode)
'=======================================写入MusicBox
getMusic()
mb_code=replace(mb_code,"$music_box$",mbcode)
'=======================================写入RSS
getRss()
mb_code=replace(mb_code,"$rss$",rsscode)
'=======================================写入blogcn的最新信息
getBlogcn()
mb_code=replace(mb_code,"$blogcn$",blogcncode)
'=======================================写入日志信息
getloginfo()
mb_code=replace(mb_code,"$log_info$",icode)
'=======================================写入分类列表
getcatlist()
mb_code=replace(mb_code,"$log_cat_list$",lcode)
'=======================================写入搜索表单
getsearchcode()
mb_code=replace(mb_code,"$search_form$",sccode)
'=======================================写入内容

dim clcode
dim plist,maxpages,mypage
sub getuserlist


if not isempty(request("page")) then
                    Mypage=cint(Request("page"))
                else
                    Mypage=1
                end if


set rs = Server.CreateObject("ADODB.Recordset")
sql="select log_r.*,log_cat.id from log_r,log,log_cat where log_r.log_id = log.log_id and log.cat_id = log_cat.id order by log_r.log_r_id desc"
rs.open sql,conn,1,1

Mypagesize =25
rs.pagesize=Mypagesize
maxpages=cint(rs.pagecount)
totalsize=cint(Mypagesize)
rs.absolutepage=Mypage
GuestTotal=rs.RecordCount
cNum=GuestTotal - Mypage*Mypagesize + Mypagesize

if cint(Mypage) >1 then
    if cint(Mypage) > maxpages then
         clcode=clcode&"嘿嘿，所翻到的这一页是空白的，不要捣乱哦"
         exit sub
    end if
end if

pagelink

clcode=clcode&"<table width=100% border=0 cellspacing=0 cellpadding=4><tr><td align=right>共有评论"&GuestTotal&"篇 | 第页显示"&MyPageSize&"篇 | 共"&cint(Mypage)&"页 [第"&maxpages&"页]</font></td></tr>"

clcode=clcode&"<tr><td><font style='font-size:10px'>"&Plist&"</font></td></tr></table>"

clcode=clcode&"<table width=100% border=0 cellspacing=1 cellpadding=2 bgcolor='"&color1&"'><tr bgcolor="&color1&" align=center><td width=40><b>编号</b></td><td><b>评论内容索引</b></td><td><b>评论人</b></td><td><b>发表时间</b></td></tr>"

ic = 0
  total = 0

  do until rs.Eof or total = totalsize
  
  if ic = 0 then 
    CColor = Color2 
  else 
    CColor = Color1
  end if
  if rs.Eof or rs.Bof then
    clcode=clcode&"Sorry, 暂时没有评论"
  end if
    clcode=clcode&"<tr bgcolor='"&ccolor&"'>"
    clcode=clcode&"<td align=center class=eng>"&cNum&"</td>"
    clcode=clcode&"<td><a href=showlog.asp?log_id="& rs("log_ID") &"&cat_id="&rs("id")&"#mark_"&rs("log_r_id")&">"&unHtml(FormatTitle(rs("log_r_content")))&"</a></td>"
    clcode=clcode&"<td>"&rs("log_r_author")&"</td>"
    clcode=clcode&"<td class=eng align=center>"&rs("r_written_time")&"</td></tr>"
  rs.MoveNext
  cNum = cNum - 1
  ic = ic + 1
  if ic = 2 then ic = 0
  total = total + 1
  loop                  
    clcode=clcode&"</table>"
clcode=clcode&"<table width=100% border=0 cellspacing=0 cellpadding=4><tr><td align=right><font style='font-size:10px'>"&Plist&"</font></td></tr></table>"
end sub

'===================================================
getuserlist
mb_code=replace(mb_code,"$main_content$",clcode)


response.write mb_code


%>


<%

function PageLink  
  
PageShowSize = 10  
Scriptname=Request.Servervariables("script_name")  
PageNextSize=int((MyPage-1)/PageShowSize)+1  
Pagetpage=int((GuestTotal-1)/MyPageSize)+1  
  
if Maxpages > 1 then  
   if PageNextSize >1 then  
       PagePrev=PageShowSize*(PageNextSize-1)  
       plist=plist&"<a href='" & Scriptname & "?page=" & PagePrev & "'>[<<]</a>-"  
   end if  
   if Mypage-1 > 0 then  
       Prev_Page = MyPage - 1  
       plist=plist&"<a href='" & Scriptname & "?page=" & Prev_Page & "'>[<]</a> "  
   end if  
   if maxpages>=PageNextSize*PageShowSize then  
       PageSizeShow = PageShowSize  
   else  
       PageSizeShow = Maxpages-PageShowSize*(PageNextSize-1)  
   end if  
   for PageCounterSize=1 to PageSizeShow  
       PageLink = (PageCounterSize+PageNextSize*10)-10  
       if PageLink <> cint(Mypage) then  
       plist=plist&"<a href='" & Scriptname & "?page=" & PageLink & "'>[" & PageLink & "]</a> "  
       else  
           plist=plist&PageLink  & "  "  
       end if   
   next  
   if Mypage+1 <=Pagetpage  then  
       Next_Page = MyPage + 1  
       plist=plist&"<a href='" & Scriptname & "?page=" & Next_Page & "'>[>]</a>"  
   end if  
   if maxpages > PageShowSize*PageNextSize then  
       PageNext = PageShowSize * PageNextSize + 1  
       plist=plist&"-<a href='" & Scriptname & "?page=" & PageNext & "'>[>>]</a>"  
   end if  
   else  
       plist=plist&"[1]"  
end if  
END function   

conn.close
set conn=nothing
%>

<!--#include file="bottom.asp"-->