仿3.0论坛
作者:cmscn 日期:2006-05-14
精华帖 锁定帖
打开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)
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
评论: 8 | 引用: 0 | 查看次数: 709
发表评论