[分享]用户组颜色以及登记不同区分代码

020

演示地址:http://tl.v158.com/forum_view.asp?forum_id=16&view_id=166

我是通过“用户组颜色区分代码”来修改的，参考下列代码（注意第⑥步）
①在后台设置颜色如下: 在include/admin_config_edit.asp找到 <tr> <td>用户组 <%response.write i+1%>：</td> <td><input type=text name=user_power_<%response.write i+1%> value='<%response.write tdim(i)%>' size=30 maxlength=20></td> <td class=gray> </td> </tr> 把maxlength=20改为maxlength=30 说明：这里修改字长的目的是在“等级配置”中给用户组添加颜色时，不用修改默认的权数，如“会员用户:1.2”，其中的1.2可以不改，否则必须改为整数！
②在include/common_other.asp在,web_n_girl后面定义web_forum_tcolor 找到web_n_girl="女孩"在其下面添加 web_forum_tcolor=""  
③在include/admin_config_edit.asp里面找到 web_n_girl=code_config(request.form("web_n_girl"),0), 在其下面添加 web_forum_tcolor=code_config(request.form("web_forum_tcolor"),0)  
在<tr> <td>网站目录：</td> <td><input type=text name=web_dim_6 value='<%response.write web_dim(6)%>' size=20 maxlength=100></td> <td class=gray></td> </tr> 下面添加 <tr> <td>用户颜色：</td> <td><input type=text name=web_forum_tcolor value='<% response.write web_forum_tcolor %>' size=10 maxlength=6>  <a href='javascript:;' onClick="javascript:slect_color('web_forum_tcolor');"><img border=0 src="htmledit/images/fgcolor.gif" width=23 height=22 align=absmiddle alt='点击选取主题字体颜色'></a>  请正确填写<font class=red_3>6</font>位颜色代码。</td> <td class=gray>用户在论坛所用的外围颜色</td> </tr>  
④在include/jk_template.asp里面找到,web_n_girl，定义web_forum_tcolor 在 vbcrlf&"web_n_girl="""&web_n_girl&"""" & _ 下面一行添加        vbcrlf&"web_forum_tcolor="""&web_forum_tcolor&"""" & _  
⑤打开forum_view,找到 dim bg_var,n_user,temp1 在其下方添加 dim dim_power,dim_grade,si,sdim,snum,u_color   dim_power=dim_user   dim_grade=split(web_user_grade,"|")   snum=ubound(dim_power)   for si=0 to snum     sdim=split(dim_power(si),":")     if u_power=sdim(0) then       u_color=sdim(3)   end if   next   if u_color="" then     sdim=split(dim_power(0),":")      u_color=sdim(3)   end if  
在下面将<td class=bw><font class=blue><b>"&n_user&"</b></font></td>修改为 <td  style='filter:glow (color=#"&web_forum_tcolor&",strength=2);'><a target=_blank href='user_view.asp?username="&server.urlencode(u_username)&"'><font color='"&u_color&"'><b>"&n_user&"</b></font></a></td>
⑥最后显示用户类型字样（注册用户不显示）。 重新修改第5步，将那段代码改为-------------------用户取色
  dim dim_power,dim_grade,si,sdim,snum,u_color,u_user
  dim_power=dim_user
  dim_grade=split(web_user_grade,"|")
  snum=ubound(dim_power)
  for si=0 to snum
    sdim=split(dim_power(si),":")
    if u_power=sdim(0) then
      u_color=sdim(3)
   u_user=sdim(1)
  end if
  next
  if u_color="" then
    sdim=split(dim_power(0),":")
     u_color=sdim(3)
  u_user=sdim(1)
  end if
  '-------------------用户类型显示
if u_power="user" then
    u_user=""
  else
    response.write ""
  end if

在
vbcrlf&"  <tr><td height=80 align=left>  "&format_user_face(u_face,u_face_w,u_face_h)&"</td></tr>" & _



上添加
  vbcrlf&"  <tr><td height=10 align=left>  <font color='#cc0000'><b>"&u_user&"</b></font></td></tr>" & _

演示地址:http://tl.v158.com/forum_view.asp?forum_id=16&view_id=166[wawa1]

温柔幻刀

值得学习啊！！

孤心草

恩恩学啊

温柔幻刀

这个是关于上个版本的程序的讨论，就此锁贴！！

孤心草

锁了么