仿3.0论坛


精华帖 锁定帖

打开con_forum_list.asp
引用内容 引用内容
function forumisv(b_islock,b_istop,b_isgood)
  dim temp_b
  temp_b=""
  if b_islock=1 then temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/islock.gif' border=0  align=right title='锁定'>"
  if b_isgood=1 then temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/isgood.gif' border=0  align=right title='精华'>"
  if b_istop=1 then temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/istop.gif' border=0 align=absMiddle title='固顶'>"
  if b_istop=2 then temp_b=temp_b&"<img src='"&joekoe_cms.web_dir_skin&"forum/istops.gif' border=0  align=absMiddle title='总固顶'>"
  forumisv=temp_b
end function

vbcrlf&"<td align=left style={padding-left:5px; padding-right:5px;}>"&forumisv(l_islock,l_istop,l_isgood)&topic_head&l_mode&topic_bb&"

将  folder_is=base_forum_is(l_re_counter,l_istop,l_islock,l_isgood,l_isvote,l_vote_num)
修改为
  folder_is=base_forum_is(l_re_counter,l_istop,l_isvote,l_vote_num)


打开functions.asp
引用内容 引用内容


function base_forum_is(b_re_counter,b_istop,b_islock,b_isgood,b_isvote,b_vote_num)
  dim temp_b
  temp_b="isok"
  if b_isvote=1 then
    if b_islock=1 then
      temp_b="isvotelock"
    else
      temp_b="isvote"
    end if
  else
    select case b_istop
    case 1
      temp_b="istop"
    case 2
      temp_b="istops"
    case else
      if b_isgood=1 then
        temp_b="isgood"
      else
        if b_islock=1 then
          temp_b="islock"
        else
          if b_re_counter>=10 then temp_b="ishot"
        end if
      end if
    end select
  end if
  base_forum_is="<img src='"&joekoe_cms.web_dir_skin&"forum/"&temp_b&".gif' border=0>"
end function

修改为

  function base_forum_is(b_re_counter,b_istop,b_isvote,b_vote_num)
  dim temp_b
  temp_b="isok"
  if b_isvote=1 then
      temp_b="isvote"
  else
    select case b_istop
    case 1
      temp_b="istop"
    case 2
      temp_b="istops"
    case else
          if b_re_counter>=10 then temp_b="ishot"
    end select
  end if
  base_forum_is="<img src='"&joekoe_cms.web_dir_skin&"forum/"&temp_b&".gif' border=0>"
end function



文章来自: Original
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 8 | 引用: 0 | 查看次数: 709
发表评论
昵 称:
密 码: 游客发言不需要密码.
内 容:
验证码: 验证码
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 20 字 | UBB代码 关闭 | [img]标签 关闭