020 发表于 2006-4-19 05:15:29

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

演示地址: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>修改为 <tdstyle='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

温柔幻刀 发表于 2006-4-19 06:00:09

值得学习啊!!

孤心草 发表于 2006-11-12 17:04:52

恩恩学啊

温柔幻刀 发表于 2006-11-12 18:19:30

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

孤心草 发表于 2006-11-20 04:47:10

锁了么
页: [1]
查看完整版本: [分享]用户组颜色以及登记不同区分代码