逐梦论坛 - Powered by Discuz! Board

标题: [LeadBBS相关] 【WENSUI】首页在线人员显示当前位置,提供了 [打印本页]

作者: shillan 时间: 2005-12-28 05:27 标题: 【WENSUI】首页在线人员显示当前位置,提供了

---------可预见到的问题:如果用户在浏览含有英文引号的版面或者主题时可能会导致列表打不开.
 解决办法:安装发帖过滤引号的补丁

以前修改过boards.asp的,请重新修改这个文件,因为原来的修改是针对ol的.

鼠标放在在线人员名字上，浮动显示他的当前位置，点击图标跟踪

使用图片作用图标的,需要在图片代码中加
....gif border=0>这样的形式,避免出现边框

修改boards.asp user/ol.asp
1\==================================
 if boardid = 0 then
 sql = "select top " & lmt_max_onlineuserlist & " id,username,hiddenflag from leadbbs_onlineuser order by id"
 else
 sql = "select top " & lmt_max_onlineuserlist & " id,username,hiddenflag from leadbbs_onlineuser where atboardid=" & boardid &" and userid>0"
 end if

-----------------
替换为:
 if boardid = 0 then
 sql = "select top " & lmt_max_onlineuserlist & " id,username,hiddenflag,aturl,atinfo from leadbbs_onlineuser order by id"
 else
 sql = "select top " & lmt_max_onlineuserlist & " id,username,hiddenflag,aturl,atinfo from leadbbs_onlineuser where atboardid=" & boardid &" and userid>0"
 end if

-----------------
如果要加ip显示,替换为:
 if boardid = 0 then
 sql = "select top " & lmt_max_onlineuserlist & " id,username,hiddenflag,aturl,atinfo,ip from leadbbs_onlineuser order by id"
 else
 sql = "select top " & lmt_max_onlineuserlist & " id,username,hiddenflag,aturl,atinfo,ip from leadbbs_onlineuser where atboardid=" & boardid &" and userid>0"
 end if

2\============================================
function s(getdata0,getdata1,getdata2,)

替换为:

function s(getdata0,getdata1,getdata2,getdata3,getdata4)

-----------------
显ip修改为:
function s(getdata0,getdata1,getdata2,getdata3,getdata4,getdata5)

3\=======================

 if(getdata1 == null || trim(getdata1) == "")
 {
 tempstr+="※<a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + ">游客</a></td>";
 }
 else
 {
 rguser+=1;
 if (getdata1 == "隐身会员")
 {
 tempstr+="※<a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + ">隐身会员</a></td>";
 }
 else
 {
 if(parseint(getdata2)&(1<<(10-1))){tempstr+="●";}
 else
 {
 if(parseint(getdata2)&(1<<(14-1))){tempstr+="●";}
 else
 {
 if(parseint(getdata2)&(1<<(8-1))){tempstr+="●";}
 else
 {
 if(parseint(getdata2)&(1<<(2-1))){tempstr+="●";}
 else{tempstr+="※";}
 }
 }
 }
 tempstr+="<a href='<%=url%>user/lookuserinfo.asp?name=" + getdata1 + "'>" + getdata1 + "</a></td>";

--------------------替换为:
 if(getdata1 == null || trim(getdata1) == "")
 {
 tempstr+="<a href=" + getdata3 + ">※</a><a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + " title='所在位置: " + getdata4 + "'>游客</a></td>";
 }
 else
 {
 rguser+=1;
 if (getdata1 == "隐身会员")
 {
 tempstr+="<a href=" + getdata3 + ">※</a><a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + " title='所在位置: " + getdata4 + "'>隐身会员</a></td>";
 }
 else
 {
 if(parseint(getdata2)&(1<<(10-1))){tempstr+="<a href=" + getdata3 + ">●</a>";}
 else
 {
 if(parseint(getdata2)&(1<<(14-1))){tempstr+="<a href=" + getdata3 + ">●</a>";}
 else
 {
 if(parseint(getdata2)&(1<<(8-1))){tempstr+="<a href=" + getdata3 + ">●</a>";}
 else
 {
 if(parseint(getdata2)&(1<<(2-1))){tempstr+="<a href=" + getdata3 + ">●</a>";}
 else{tempstr+="<a href=" + getdata3 + ">※</a>";}
 }
 }
 }
 tempstr+="<a href='<%=url%>user/lookuserinfo.asp?name=" + getdata1 + "' title='所在位置: " + getdata4 + "'>" + getdata1 + "</a></td>";

---------------

如果要加ip显示,替换为:

-------------------
 if(getdata1 == null || trim(getdata1) == "")
 {
 tempstr+="<a href=" + getdata3 + ">※</a><a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + " title='所在位置: " + getdata4 + "\n" + "ip地址: " + getdata5 + "'>游客</a></td>";
 }
 else
 {
 rguser+=1;
 if (getdata1 == "隐身会员")
 {
 tempstr+="<a href=" + getdata3 + ">※</a><a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + " title='所在位置: " + getdata4 + "\n" + "ip地址: " + getdata5 + "'>隐身会员</a></td>";
 }
 else
 {
 if(parseint(getdata2)&(1<<(10-1))){tempstr+="<a href=" + getdata3 + ">●</a>";}
 else
 {
 if(parseint(getdata2)&(1<<(14-1))){tempstr+="<a href=" + getdata3 + ">●</a>";}
 else
 {
 if(parseint(getdata2)&(1<<(8-1))){tempstr+="<a href=" + getdata3 + ">●</a>";}
 else
 {
 if(parseint(getdata2)&(1<<(2-1))){tempstr+="<a href=" + getdata3 + ">●</a>";}
 else{tempstr+="<a href=" + getdata3 + ">※</a>";}
 }
 }
 }
 tempstr+="<a href='<%=url%>user/lookuserinfo.asp?name=" + getdata1 + "' title='所在位置: " + getdata4 + "\n" + "ip地址: " + getdata5 + "'>" + getdata1 + "</a></td>";

=====================

非登陆用户不能查看当前位置

修改boards.asp user/ol.asp
==================================
sql = "select top " & lmt_max_onlineuserlist & " id,username,hiddenflag
-----------------
每个文件中都有两处,(不是四行,上面代码后面的要保留,只替换该行的这一部分)替换为:
sql = "select top " & lmt_max_onlineuserlist & " id,username,hiddenflag,aturl,atinfo(这儿有空格)

用户以树型看，你追踪到的就是树型？用户以平板看，你追踪就是平板模式？

应该是,不过如果你只想用平板可以试试这样改:

inc/board_popfun.asp

aturl='" & replace(left(request.servervariables("script_name") & "?" & request.querystring,255),"'","''")
修改为:
aturl='" & replace(replace(left(request.servervariables("script_name") & "?" & request.querystring,255),"'","''"),"announce2.asp","announce.asp")
只改第一个就可以了

http://w.leadbbs.com/a/a.asp?b=200&id=2003163

欢迎光临逐梦论坛 (http://temp2023.zhumeng.org/)