[LeadBBS相关] 【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+="<font color=#8888ff>※</font><a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + ">游客</a></td>";
      }
      else
      {
            rguser+=1;
            if (getdata1 == "隐身会员")
            {
                  tempstr+="<font color=gray class=grayfont>※</font><a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + ">隐身会员</a></td>";
            }
            else
            {
                  if(parseint(getdata2)&(1<<(10-1))){tempstr+="<font color=red class=redfont>●</font>";}
                  else
                  {
                        if(parseint(getdata2)&(1<<(14-1))){tempstr+="<font color=green class=greenfont>●</font>";}
                        else
                        {
                              if(parseint(getdata2)&(1<<(8-1))){tempstr+="<font color=blue class=bluefont>●</font>";}
                              else
                              {
                                    if(parseint(getdata2)&(1<<(2-1))){tempstr+="<font color=gray class=grayfont>●</font>";}
                                    else{tempstr+="<font color=green class=greenfont>※</font>";}
                              }
                        }
                  }
                  tempstr+="<a href='<%=url%>user/lookuserinfo.asp?name=" + getdata1 + "'>" + getdata1 + "</a></td>";

--------------------替换为:
      if(getdata1 == null || trim(getdata1) == "")
      {
            tempstr+="<a href=" + getdata3 + "><font color=#8888ff>※</font></a><a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + " title='所在位置: " + getdata4 + "'>游客</a></td>";
      }
      else
      {
            rguser+=1;
            if (getdata1 == "隐身会员")
            {
                  tempstr+="<a href=" + getdata3 + "><font color=gray class=grayfont>※</font></a><a href=<%=url%>user/lookusermoreinfo.asp?olid=" + getdata0 + " title='所在位置: " + getdata4 + "'>隐身会员</a></td>";
            }
            else
            {
                  if(parseint(getdata2)&(1<<(10-1))){tempstr+="<a href=" + getdata3 + "><font color=red class=redfont>●</font></a>";}
                  else
                  {
                        if(parseint(getdata2)&(1<<(14-1))){tempstr+="<a href=" + getdata3 + "><font color=green class=greenfont>●</font></a>";}
                        else
                        {
                              if(parseint(getdata2)&(1<<(8-1))){tempstr+="<a href=" + getdata3 + "><font color=blue class=bluefont>●</font></a>";}
                              else
                              {
                                    if(parseint(getdata2)&(1<<(2-1))){tempstr+="<a href=" + getdata3 + "><font color=gray class=grayfont>●</font></a>";}
                                    else{tempstr+="<a href=" + getdata3 + "><font color=green class=greenfont>※</font></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 + "><font color=#8888ff>※</font></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 + "><font color=gray class=grayfont>※</font></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 + "><font color=red class=redfont>●</font></a>";}
                  else
                  {
                        if(parseint(getdata2)&(1<<(14-1))){tempstr+="<a href=" + getdata3 + "><font color=green class=greenfont>●</font></a>";}
                        else
                        {
                              if(parseint(getdata2)&(1<<(8-1))){tempstr+="<a href=" + getdata3 + "><font color=blue class=bluefont>●</font></a>";}
                              else
                              {
                                    if(parseint(getdata2)&(1<<(2-1))){tempstr+="<a href=" + getdata3 + "><font color=gray class=grayfont>●</font></a>";}
                                    else{tempstr+="<a href=" + getdata3 + "><font color=green class=greenfont>※</font></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