|
这个是你要的东西,因为没多少所以就不往你邮箱里发了<br><br>-----------------------------------<br>用不同的图标显视展开在线列表的管理员跟普通会员方法<br>跟我论坛做的一样,<br>要改一点点数据库的<br>这别人写的,<br>我论坛那个有自己改过了的<br>这个代码需要有修改MEMBERCODE=3的才能用<br><br>先打开LOADING.asp<br>找到<br>if Request("forumid")="0" then<br>sql="select * from online where username<>'' and eremite<>1"<br>else<br>sql="select * from online where forumid="&int(Request("forumid"))&" and username<>'' and eremite<>1"<br>end if<br>改为<br>if Request("forumid")="0" then<br>sql="select * from online "<br>else<br>sql="select * from online where forumid="&int(Request("forumid"))&" "<br>end if<br><br><br>找到<br>allline=""&allline&"<td width=16% style=word-break:break-all><img src="&rs("userface")&" width=16 height=16> <a href=Profile.asp?username="&rs("username")&">"&rs("username")&"</a></td>"<br>改为<br>if (rs("membercode")="5" or rs("membercode")="4") and rs("eremite")<>"1" then<br>userface="images/gm5.gif"<br>elseif rs("membercode")="3" and rs("eremite")<>"1" then<br>userface="images/gm3.gif"<br>elseif rs("membercode")="2" and rs("eremite")<>"1" then<br>userface="images/gm2.gif"<br>elseif rs("membercode")="1" and rs("eremite")<>"1" then<br>userface="images/gm1.gif"<br>else<br>userface="images/gm0.gif"<br>end if<br><br>if rs("username")="" then<br>username="客人"<br>elseif rs("eremite")="1" then<br>username="隐身会员"<br>else<br>username=rs("username")<br>end if<br><br>allline=""&allline&"<td width=16% style=word-break:break-all><img src="&userface&" width=16 height=16> <a title=目前位置:『"&rs("bbsname")&"』"&rs("act")&" href="&rs("acturl")&">"&username&"</a></td>"<br><br>打开INC/LINE.ASP<br>找到<br>rs.update<br>rs.close<br>在前面加上<br>rs("membercode")=membercode<br>再打开数据库<br>打开ONLINE表单<br>在最后面添加列<br>改名为"membercode"<br>--------------------------------<br>图片自己在网上找找,喜欢的就拿来用 |
|