[转帖]在线会员性别相应显示颜色 的修改方法
1.首先就是在数据库的online表增加一个字段 usersex 记录在线用户的性别字段名：usersex
数据类型： 数字
字段大小：smallint （整型）
其它属性使用默认的属性：即，小数点：自动；默认值：0
2.修改 inc/char.asp 文件
找到 sub activeonline() 过程,找到下面那句sql(看清楚，不要找错了)，增加红色部分代码
sql="insert into online(id,username,userclass,ip,startime,lastimebk,boardid,browser,stats,actforip,UserGroupID,actCome,userhidden,userid,usersex) values ("&statuserid&",'"&membername&"','"&memberclass&"','"&IP&"',Now(),Now(),"&boardid&",'"&Request.ServerVariables("HTTP_USER_AGENT")&"','"&replace(stats,"'","")&"','"&ActIP&"',"&UserGroupID&",'"&actCome&"',"&userhidden&","&userid&","&mysex&")"
3.修改 online_l.asp 文件
找到 sub onlineuser(online_u,online_g,boardid)过程,增加红色代码
dim NowStats,ActiveTime,Binfo,UComeFrom,BrStr
dim SexColor
...........
if Cint(GroupSetting(30))=0 then
userip="真实ＩＰ：已设置保密"
else
if acip <> "" then
userip="真实ＩＰ：" & acip
else
userip="真实ＩＰ：" & sip
end if
end if
SexColor=iif(rs(11)," class=cman "," class=cgirl ")
if cint(forum_setting(36))=1 then
if Cint(GroupSetting(30))=0 then
UComeFrom=Brstr & "用户来源：已设置保密"
else
...............
select case rs(3)
case 1'管理员
online_face="<img src="&Forum_info(7)&Forum_pic(0)&" alt="&rs(10)&" width=16 height=15>"
case 2 '超级版主
online_face="<img src="&Forum_info(7)&"ao2.gif alt="&rs(10)&" width=16 height=15>"
case 3'版主
online_face="<img src="&Forum_info(7)&Forum_pic(1)&" alt="&rs(10)&" width=16 height=15>"
case 8'贵宾
online_face="<img src="&Forum_info(7)&Forum_pic(2)&" alt="&rs(10)&" width=16 height=15>"
case 9 '超级用户
online_face="<img src="&Forum_info(7)&"gaoji(1).gif alt="&rs(10)&" width=15 height=15>"
case 10 '高级会员
online_face="<img src="&Forum_info(7)&"gaoji.gif alt="&rs(10)&" width=15 height=15>"
case else
online_face="<img src="&Forum_info(7)&Forum_pic(3)&" alt="&rs(10)&" width=12 height=11>"
end select
if membername=rs(0) then
response.write "<td width=""14%"">" & online_face&" <a href=dispuser.asp?id="&rs(5)&" target=_blank title="""& NowStats & ActiveTime & Binfo & UserIP & UComeFrom &"""><font color="&Forum_pic(5)&">"&htmlencode(rs(0))&"</font></a></td>"
else
if rs(4)=1 then
if boardmaster or superboardmaster or master then
response.write "<td width=""14%"">" & online_face&" <a href=dispuser.asp?id="&rs(5)&" target=_blank "&SexColor&" title="""& NowStats & ActiveTime & Binfo & UserIP & UComeFrom & Brstr & "当前状态：隐身"">"&htmlencode(rs(0))&"</a></td>"
else
response.write "<td width=""14%""><img src="&Forum_info(7)&Forum_pic(4)&" width=12 height=11> <a href=# target=_blank title="""& NowStats & ActiveTime & Binfo & UserIP & UComeFrom &""">隐身会员</a></td>"
end if
else
response.write "<td width=""14%"">" & online_face&" <a href=dispuser.asp?id="&rs(5)&" target=_blank "&SexColor&" title="""& NowStats & ActiveTime & Binfo & UserIP & UComeFrom &""">"&htmlencode(rs(0))&"</a></td>"
end if
end if
if i=6 then response.write "</tr><tr>"
if i>6 then
i=1
else
i=i+1
end if
rs.movenext
loop
end if
if cint(online_g)=1 then
4. 修改 inc/FORUM_CSS.asp 文件
增加 男女 颜色 的css
.normalTextSmall
{
font-size : 11px;
color : #000000;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
A.cman { Color: #0066CC; TEXT-DECORATION: none}
A.cman:visited{ Color: #0066CC; TEXT-DECORATION: none}
A.cman:hover { COLOR: #2800A2; TEXT-DECORATION: underline}
A.cgirl { Color: #CC00FF; TEXT-DECORATION: none}
A.cgirl:visited{ Color: #CC00FF; TEXT-DECORATION: none}
A.cgirl:hover { COLOR: #9600BB; TEXT-DECORATION: underline}
</style>
5. 修改 index.asp
response.write "[<a href=boardstat.asp?reaction=online>查看在线用户位置</a>]</Th></TR>"&_
"<TR>"&_
"<TD width=100% vAlign=top class=tablebody1>目前论坛上总共有 <b>"&Forum_OnlineNum&"</b> 人在线，其中注册会员 <b>"&OnlineNum&"</b> 人，访客 <b>"&GuestNum&"</b> 人。<br>"&_
"历史最高在线纪录是 <b>"&Maxonline&"</b> 人同时在线，发生时间是："&formatdatetime(MaxonlineDate,1)&" "&formatdatetime(MaxonlineDate,4)&""&_
"<BR><font color="&Forum_body(8)&">名单图例</font>："
response.write "<img src="&Forum_info(7)&Forum_pic(0)&"> 管理员 ‖ <img src="&Forum_info(7)&"ao2.gif> 超级版主 ‖ <img src="&Forum_info(7)&Forum_pic(1)&"> 版主 ‖ <img src="&Forum_info(7)&"gaoji(1).gif> 超级用户 ‖ <img src="&Forum_info(7)&Forum_pic(2)&"> 贵宾 ‖ <img src="&Forum_info(7)&"gaoji.gif> 高级会员 ‖ <img src="&Forum_info(7)&Forum_pic(3)&"> 普通会员 ‖ <img src="&Forum_info(7)&Forum_pic(4)&"> 客人或隐身会员"
response.write "<br><font color="&Forum_body(27)&">在线会员性别相应显示颜色为:</font> <a class=cman>男性</a> | <a class=cgirl>女性</a> | <font color="&Forum_pic(5)&">自己</font> | 客人或隐身会员 <hr size=1 color="&forum_body(27)&">"&_
"<table width=100% border=0 cellspacing=0 cellpadding=0>"
if request("action")="off" then
call onlineuser(0,0,0)
elseif request("action")="show" then
call onlineuser(1,1,0)
else
call onlineuser(Forum_Setting(14),Forum_Setting(15),0)
end if
好了，应该就这么多了，关键步骤市1、2、3
这个东西不会占用什么资源，就是要修改数据库而已；不过其实修改数据库对升级不会受到影响的，只要你稍懂数据库操作的话；提示一下，如果你怕升级的时候有影响，把增加的字段删除就绝对没有问题
帮楼主顶 支持
页:
[1]