论坛简洁模式修改

一 修改文件 admin_forum.asp

找到

dim funder,ftrue,fir_true,forumname,forumtype,forumpro,forumstar,forumparent,forumorder,fparent,forumhidden,fhidden,rs2,forumf,forumid2,classid2,fhn

再最后增加,forumconfig

找到     if not(isnumeric(forumpro)) then forum_pro=0
在下面填加
    forumconfig=trim(request.form("forum_config"))


找到    rs("forum_power")=code_admin("forum_power",1,50)
在下面填加
    if forumconfig<>"" then rs("forum_config")=forumconfig

找到  forumhidden=rs("forum_hidden")
在下面填加  forumconfig=rs("forum_config")

找到563行 附近 <tr><td>论坛类型：</td><td>

在上填加
  以下为代码内容：
<%if rs("forum_f")=0 then%>
  <tr><td>分类样式：</td><td><input type=radio name=forum_config value='1'<%if int(forumconfig)=1 then response.write " checked"%>>正常 <input type=radio name=forum_config value='2'<%if int(forumconfig)=2 then response.write " checked"%>>简洁(2列) <input type=radio name=forum_config value='3'<%if int(forumconfig)=3 then response.write " checked"%>>简洁(3列)</td></tr>
<%end if%>


找到     rs("forum_config")=""
修改为     rs("forum_config")=1

找到    sql="select forum_id,class_id,forum_name,forum_w,forum_n,forum_star,forum_hidden,forum_pro,forum_topic_num,forum_data_num,forum_new_num from bbs_forum order by class_id,forum_order,forum_star"
  
修改为  sql="select forum_id,class_id,forum_name,forum_w,forum_n,forum_star,forum_hidden,forum_pro,forum_topic_num,forum_data_num,forum_new_num,forum_config from bbs_forum order by class_id,forum_order,forum_star"


找到   <tr class=<%response.write cc%>>

在下面填加
  
  以下为代码内容：
<td>
  <table border=0 cellspacing=0 cellpadding=0 width='100%'>
  <tr class=<%response.write cc%>>
  <td><font class=<%response.write fclass%>><b><%response.write foo&forumname%></b></font><%if int(forumn)>0 then response.write " <font class=red>"&forumn&"</font>"%>
  <%
      if int(forumn)>0 then
   response.write "  分类样式："
   if int(rs("forum_config"))=2 then
        response.write "<font class=red>简洁(2列)</font>"
   elseif int(rs("forum_config"))=3 then
        response.write "<font class=red>简洁(3列)</font>"
   else
        response.write "<font class=gray>正常</font>"
   end if
      end if
  %>
  </td>


二 修改文件 con_forum_main.asp

找到   dim classid,forum_w,forum_w2,f_remark,fcid,forum_new_info,f_new_view,mdim,mnum

在其后增加 ,fconfig

找到     sql="select forum_id,forum_n,forum_w,forum_name,forum_type,forum_pro,forum_new_info,forum_new_num,forum_topic_num,forum_data_num,forum_power,forum_remark,forum_pic,class_id from bbs_forum where forum_hidden=0 and forum_star<2 order by class_id,forum_order,forum_star"

修改为   sql="select forum_id,forum_n,forum_w,forum_name,forum_type,forum_pro,forum_new_info,forum_new_num,forum_topic_num,forum_data_num,forum_power,forum_remark,forum_pic,class_id,forum_config from bbs_forum where forum_hidden=0 and forum_star<2 order by class_id,forum_order,forum_star"


查找       fcid=classid
在下面增加
      fconfig=int(mdim(14,i))
      dim ii:ii=0

找到       response.write vbcrlf&forum_main_body(mdim(0,i),mdim(1,i),forum_w2,mdim(3,i),mdim(4,i),forum_new_info,mdim(7,i),mdim(8,i),mdim(9,i),mdim(10,i),f_remark,mdim(12,i),f_new_view)
      response.buffer

修改为

if fconfig>1 then
  dim jj_width:jj_width=100\fconfig&"%"
  if (ii mod fconfig)=0 then response.write vbcrlf&"<tr>"
   response.write vbcrlf&forum_main_body_j(mdim(0,i),mdim(1,i),forum_w2,mdim(3,i),mdim(4,i),forum_new_info,mdim(7,i),mdim(8,i),mdim(9,i),mdim(10,i),f_remark,mdim(12,i),f_new_view,jj_width)
  if (ii mod fconfig)>fconfig-2 then response.write vbcrlf&"</tr>"
  ii=ii+1
else
       response.write vbcrlf&forum_main_body(mdim(0,i),mdim(1,i),forum_w2,mdim(3,i),mdim(4,i),forum_new_info,mdim(7,i),mdim(8,i),mdim(9,i),mdim(10,i),f_remark,mdim(12,i),f_new_view)
end if
response.buffer

找到 function forum_main_body
整段代码替换为

function forum_main_body(f_id,f_n,f_w,f_name,f_type,f_new_info,f_new_num,f_topic_num,f_data_num,f_power,f_remark,f_pic,f_new_view)
  dim temp1,ddim,temp_pic,fj
  if action="follow" then
  temp1=temp1&vbcrlf&"<td width='25%' align=left>" & _
              vbcrlf&"<table border=0 cellpadding=1 cellspacing=1 width='100%'>" & _
              vbcrlf&"<tr class=bg_tdf2><td colspan=2 height=30><b> <a href='forum_list.asp?forum_id="&f_id&"'>"&f_name&"</a> </b></td></tr>" & _
              vbcrlf&"<tr class=bg_tdf>" & _
              vbcrlf&"<td> <img src='"&joekoe_cms.web_dir_skin&"forum/forum_num_new.gif' alt='今日主题数' border=0> <font class=red>"&f_new_num&"</font>" & _
              vbcrlf&"   <img src='"&joekoe_cms.web_dir_skin&"forum/forum_num_topic.gif' alt='论坛主题数' border=0> "&f_topic_num&"" & _
              vbcrlf&"   <img src='"&joekoe_cms.web_dir_skin&"forum/forum_num_data.gif' alt='论坛帖子数' border=0>"&f_data_num&"</td>" & _
              vbcrlf&"<td width='*'></td>" & _
              vbcrlf&"</tr>" & _
              vbcrlf&"<tr class=bg_tdf2><td colspan=2 height=20>" & _
              vbcrlf&" "&forum_super_view(f_power,web_forum_power_type)&"" & _
              vbcrlf&"</td></tr>" & _
              vbcrlf&"" & _
              vbcrlf&"</table>" & _
              vbcrlf&"</td>"
  forum_main_body=temp1
  
  else
  temp1=temp1&vbcrlf&"<tr class=bg_tdf>" & _
              vbcrlf&"<td width='6%' align=center><img alt='"
  ddim=split(web_forum_type,"|")
  for fj=0 to ubound(ddim)
    if int(f_type)=int(fj+1) then
      temp1=temp1&ddim(fj)
      exit for
    end if
  next
  if isarray(ddim) then erase ddim
              temp1=temp1&"' src='"&joekoe_cms.web_dir_skin&"forum/label_"&f_type
  if f_new_num>0 then temp1=temp1&"n"
  temp1=temp1&".gif' border=0></td>"
  temp1=temp1&vbcrlf&"<td width='100%'>" & _
              vbcrlf&"  <table border=0 width='100%' cellpadding=5 cellspacing=0>" & _
              vbcrlf&"  <tr class=bg_1>" & _
              vbcrlf&"  <td align=center>" & _
              vbcrlf&"    <table border=0 cellpadding=0 cellspacing=0 width='100%'>" & _
              vbcrlf&"    <tr>" & _
              vbcrlf&" <td class=htd><b><a href='forum_list.asp?forum_id="&f_id&"'>"&f_name&"</a></b>"
  if f_n>0 and f_w=1 then
    temp1=temp1&" <a class=gray alt='本论坛下面有 "&f_n&" 个分论坛'>["&f_n&"]</a>"
  end if
  temp1=temp1&vbcrlf&"<br>"&f_remark&"</td>"
  if var_null(f_pic)<>"" and  f_pic<>"" then
    temp_pic=f_pic
    if left(temp_pic,1)="$" then
      temp_pic=right(temp_pic,len(temp_pic)-1)
      temp_pic="images/forum_pic/"&temp_pic
    end if
    temp1=temp1&vbcrlf&"    <td align=right><img src='"&temp_pic&"' border=0></td>"
  end if
  temp1=temp1&vbcrlf&"    </tr>" & _
              vbcrlf&"    </table>" & _
              vbcrlf&"  </td>" & _
              vbcrlf&"  <td><font class=htd>"
  if f_w=1 then
    if f_new_view then
      f_new_info=split(f_new_info,"|")
      if int(ubound(f_new_info))=3 then
        temp1=temp1&"<font class=htd>新帖：<a href='forum_view.asp?forum_id="&f_id&"&view_id="&f_new_info(2)&"' alt='"&joekoe_cms.code_html(f_new_info(3),1,0)&"'>"&joekoe_cms.code_html(f_new_info(3),1,12)&"</a><br>作者："&format_user_name(f_new_info(0),0,"")&"<br>时间："&f_new_info(1)&"</font>"
      else
        temp1=temp1&"<font class=gray>暂无</font>"
      end if
    else
      temp1=temp1&"<p align=center class=gray>您没有浏览最后更新的权限</p>"
    end if
  else
    temp1=temp1&"<p align=center><a href='forum_list.asp?forum_id="&f_id&"' class=gray>点击浏览分论坛（<font class=red>"&f_n&"</font>个）信息</a></p>"
  end if
  if isarray(f_new_info) then erase f_new_info
  temp1=temp1&vbcrlf&"</td>" & _
              vbcrlf&"  </tr>" & _
              vbcrlf&"  <tr height=22 class=bg_tdf2>" & _
              vbcrlf&"  <td width='72%'><a href='forum_write.asp?forum_id="&f_id&"'><img src='"&joekoe_cms.web_dir_skin&"forum/mini_write.gif' align=absmiddle alt='发表主题' border=0></a>" & _
              vbcrlf&"  <a href='forum_write.asp?forum_id="&f_id&"&isvote=yes'><img src='"&joekoe_cms.web_dir_skin&"forum/mini_vote.gif' align=absmiddle alt='发表主题' border=0></a>" & _
              vbcrlf&"    "&forum_super_view(f_power,web_forum_power_type)&"</td>" & _
              vbcrlf&"  <td width='28%'><img src='"&joekoe_cms.web_dir_skin&"forum/forum_num_new.gif' alt='今日主题数' border=0> <font class=red>"&f_new_num&"</font>" & _
              vbcrlf&"    <img src='"&joekoe_cms.web_dir_skin&"forum/forum_num_topic.gif' alt='论坛主题数' border=0> "&f_topic_num&"" & _
              vbcrlf&"    <img src='"&joekoe_cms.web_dir_skin&"forum/forum_num_data.gif' alt='论坛帖子数' border=0>"&f_data_num&"</td>" & _
              vbcrlf&"  </tr>" & _
              vbcrlf&"  </table>" & _
              vbcrlf&"</td></tr>"
  forum_main_body=temp1
  end if
end function

再在下面填加

'下面是新增的简洁列表循环
function forum_main_body_j(f_id,f_n,f_w,f_name,f_type,f_new_info,f_new_num,f_topic_num,f_data_num,f_power,f_remark,f_pic,f_new_view,f_width)
  dim temp1,ddim,temp_pic,fj
  temp1=temp1&vbcrlf&"   <td width='"&f_width&"' align=center  class=bg_tds>" & _
              vbcrlf&"   <table border=0 width='100%' cellpadding=0 cellspacing=0>" & _
              vbcrlf&"   <tr class=bg_td height=20>" & _
              vbcrlf&"   <td width='70%'> <img alt='"
  ddim=split(web_forum_type,"|")
  for fj=0 to ubound(ddim)
    if int(f_type)=int(fj+1) then
      temp1=temp1&ddim(fj)
      exit for
    end if
  next
  if isarray(ddim) then erase ddim
              temp1=temp1&"' src='"&joekoe_cms.web_dir_skin&"forum/label_"&f_type
  if f_new_num>0 then temp1=temp1&"n"
  temp1=temp1&".gif' border=0> <b><a href='forum_list.asp?forum_id="&f_id&"'>"&f_name&" </a></b></td>" & _
              vbcrlf&"   <td align=right><a href='forum_write.asp?forum_id="&f_id&"'>"
  if f_n>0 and f_w=1 then
    temp1=temp1&"<font class=gray alt='本论坛下面有 "&f_n&" 个分论坛'>[<font class=red>"&f_n&"</font>]</font> "
  end if
  temp1=temp1&"<a href='forum_write.asp?forum_id="&f_id&"'><img src='"&joekoe_cms.web_dir_skin&"forum/fb.gif' align=absmiddle alt='发表主题' border=0></a> " & _
              vbcrlf&"<a href='forum_write.asp?forum_id="&f_id&"&isvote=yes'><img src='"&joekoe_cms.web_dir_skin&"forum/tp.gif' align=absmiddle alt='发表投票' border=0></a> </tr>" & _
              vbcrlf&"<tr height=40 class=bg_td>" & _
              vbcrlf&"<td colspan=2><table border=0 width='100%' cellpadding=0 cellspacing=0>" & _
              vbcrlf&"<tr>"
  if var_null(f_pic)<>"" and  f_pic<>"" then
    temp_pic=f_pic
    if left(temp_pic,1)="$" then
      temp_pic=right(temp_pic,len(temp_pic)-1)
      temp_pic="images/forum_pic/"&temp_pic
    end if
    temp1=temp1&vbcrlf&"    <td align=center width=60><img src='"&temp_pic&"' border=0></td>"
  end if
  temp1=temp1&vbcrlf&"    <td height=40 colspan=2>  "&replace(f_remark,vbcrlf,"<br>")&"</td>" & _
              vbcrlf&" </tr>" & _
              vbcrlf&" </table>" & _
              vbcrlf&" </td></tr>" & _
              vbcrlf&"  <tr height=28 class=bg_tds>" & _
              vbcrlf&"  <td> "&forum_super_view(f_power,web_forum_power_type)&"</td>" & _
              vbcrlf&"  <td align=right class=tims><img src='"&joekoe_cms.web_dir_skin&"forum/forum_num_new.gif' alt='今日主题数' border=0><font class=red>"&f_new_num&"</font> <img src='"&joekoe_cms.web_dir_skin&"forum/forum_num_topic.gif' alt='论坛主题数' border=0>"&f_topic_num&" <img src='"&joekoe_cms.web_dir_skin&"forum/forum_num_data.gif' alt='论坛贴子数' border=0>"&f_data_num&" </td>" & _
              vbcrlf&"  </tr></table></td>"
  forum_main_body_j=temp1
end function



请修改完毕执行语句
update bbs_forum set forum_config='1'
点击下载此文件

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: