首页文章标题加色的修改

说明：本修改方法只对一级分类下的文章有效。二级分类我未做过测试。知道的请继续完善。谢过先！

修改index2.asp、admin_article.asp、admin.js、ubb_help.js四个文件
第1步，打开admin_article.asp
在<!-- #include file="include/admin_onlogin.asp" -->下面添加
<script language=javascript>
<!--
function forum_slect_color()
{
  var c=window.showModalDialog("htmledit/selcolor.html","s","dialogWidth=300px;dialogHeight=270px;status=0");
  var d=c;
  if (c && c!="")
  {
    window.document.all.item("bordercolor").bgColor=c;
    if (d.length==7) { d=d.substr(1,d.length); }
    window.document.all.tcolor.value=d;
  }
}

-->
</script>
往下，找到sub joekoe_chk_edit()这一段，添加tcolor变量。在
dim topic,keyes,comto,author,power,emoney,username,tim,counter,istop,hidden,word
后面增加 ,tcolor
查找
   power=replace(power,",",".")
    emoney=trim(request.form("emoney"))
在下面增加
   tcolor=code_admin("tcolor",1,6)
    if len(tcolor)<>6 then tcolor=""
往下，找到
  rs("word")=word
下面增加
  rs("tcolor")=tcolor
找到
<tr>
<td><%response.write tit_fir%>标题：</td>
<td><input type=text name=topic value='<%response.write rs("topic")%>' size=60 maxlength=50><%response.write redx%></td>
</tr>
这一段，下面添加
<tr>
<td id=bordercolor><%response.write tit_fir%>标题颜色：</td>
<td># <input type=text name=tcolor value='' size=10 maxlength=7>  <a href='javascript:;' onClick="javascript:forum_slect_color();"><img border=0 src="htmledit/images/fgcolor.gif" width=23 height=22 align=absmiddle alt='点击选取主题字体颜色'></a>  请正确填写<font class=red_3>6</font>位颜色代码。</td>
</tr>
找到sub joekoe_chk_add()这一段，在
  dim topic,keyes,comto,author,power,emoney,username,tim,counter,istop,hidden,word
后面增加 ,tcolor
找到
  rs("word")=word
下面增加
  tcolor=code_admin("tcolor",1,6)
   if len(tcolor)<>6 then tcolor=""
往下找到
<tr>
<td><%response.write tit_fir%>标题：</td>
<td><input type=text name=topic size=60 maxlength=50><%response.write redx%></td>
</tr>
下面添加
<tr>
<td id=bordercolor><%response.write tit_fir%>标题颜色：</td>
<td># <input type=text name=tcolor value='' size=10 maxlength=7>  <a href='javascript:;' onClick="javascript:forum_slect_color();"><img border=0 src="htmledit/images/fgcolor.gif" width=23 height=22 align=absmiddle alt='点击选取主题字体颜色'></a>  请正确填写<font class=red_3>6</font>位颜色代码。</td>
</tr>
往下找到sub joekoe_chk_main()这一段，
在dim topic,pageurl2后面添加 ,tcolor
往下找到
  sql="select top "&nummer*viewpage&" id,topic,tim,istop,hidden,cod,tcolor from "&data_name&sql_add&" order by id desc"
（增加红色部分变量）
往下找到
  id=rs("id")
   topic=rs("topic")
下面添加
    tcolor=rs("tcolor")
    if var_null(tcolor)<>"" then
      topic="<font color=#"&tcolor&">"&topic&"</font>"
    else
      topic=joekoe_cms.code_html(topic,1,(18+tnum))
    end if

第2步，修改images/admin/admin.js文件
在function showIt()上面增加
function jk_tcolor()
{
  var arr = showModalDialog("htmledit/selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0");
  if (arr != null) { document.write_frm.tcolor.value = arr.substring(1,7);  }
}

第3步，打开style/ubb_help.js文件
在最后添加
function jk_tcolor()
{
  var arr = showModalDialog("htmledit/selcolor.html", "", "dialogWidth:18.5em; dialogHeight:17.5em; status:0");
  if (arr != null) { document.write_frm.tcolor.value = arr.substring(1,7);  }

}

第4步，修改index2.asp
找到sub main_center_list(cl_type,cl_tnum,cl_cnum,cl_classid)这一段
在  dim tmp1,tmp_title,tmp_tit,tmp_count,tmp_img,tmp_record,tmp_table,tmp_where,tmp_url,today,new_win,tmp_color
中增加红色部分，往下，在
tmp_table="article"
    tmp_count="浏览次数"
tmp_record="id,topic,username,tim,counter,tcolor"
tmp_img="article"
中增加红色部分，往下找到
    'tmp1=tmp1&format_topic_type(img_skin("h_"&tmp_img),rs(2),rs(1),cl_cnum,tmp_url,rs(3),rs(4),false,tmp_tit,tmp_count,0)
在上面增加
    tmp_color=""
    if cl_type="article" or cl_type="news" or cl_type="forum" then
      tmp_color="style=""color:"&rs(5)&";"""
end if
最后修改
     tmp1=tmp1&vbcrlf&"<tr><td height="&dim_num(6)&">" & img_skin("h_"&tmp_img) & "<a href='"&tmp_url&"' "&tmp_color&" alt='"&tmp_tit&"："&joekoe_cms.code_html(rs(1),1,0)&"<br>发 布 人："&rs(2)&"<br>"&tmp_count&"："&rs(4)&" 人次<br>整理时间："&rs(3)&"' target=_blank>"&joekoe_cms.code_html(rs(1),1,cl_cnum)&"</a> "&new_win&"</td><td></td></tr><tr><td height=1 background='images/bg_dian.gif' colspan=2></td></tr>"
注意看红色部分代码
最后，打开数据库，在article表中增加tcolor字段，长度设为7（颜色代码只有7位表示），字段属性可参考bbs_topic中的tcolor字段
或者在后台执行
alter table article add column tcolor text(7)

新闻也可参考此方法（论坛数据表中已定义tcolor字段），论坛直接在首页添加tcolor定义即可！

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