[分享]用户组颜色以及登记不同区分代码
演示地址: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 值得学习啊!! 恩恩学啊 这个是关于上个版本的程序的讨论,就此锁贴!! 锁了么
页:
[1]