[原创]区长大人进

这个是你要的东西，因为没多少所以就不往你邮箱里发了

-----------------------------------
用不同的图标显视展开在线列表的管理员跟普通会员方法
跟我论坛做的一样，
要改一点点数据库的
这别人写的，
我论坛那个有自己改过了的
这个代码需要有修改MEMBERCODE=3的才能用

先打开LOADING.asp
找到
if Request("forumid")="0" then
sql="select * from online where username<>'' and eremite<>1"
else
sql="select * from online where forumid="&int(Request("forumid"))&" and username<>'' and eremite<>1"
end if
改为
if Request("forumid")="0" then
sql="select * from online "
else
sql="select * from online where forumid="&int(Request("forumid"))&" "
end if


找到
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>"
改为
if (rs("membercode")="5" or rs("membercode")="4") and rs("eremite")<>"1" then
userface="images/gm5.gif"
elseif rs("membercode")="3" and rs("eremite")<>"1" then
userface="images/gm3.gif"
elseif rs("membercode")="2" and rs("eremite")<>"1" then
userface="images/gm2.gif"
elseif rs("membercode")="1" and rs("eremite")<>"1" then
userface="images/gm1.gif"
else
userface="images/gm0.gif"
end if

if　rs("username")="" then
username="客人"
elseif rs("eremite")="1" then
username="隐身会员"
else
username=rs("username")
end if

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>"

打开INC/LINE.ASP
找到
rs.update
rs.close
在前面加上
rs("membercode")=membercode
再打开数据库
打开ONLINE表单
在最后面添加列
改名为"membercode"
--------------------------------
图片自己在网上找找，喜欢的就拿来用

呵呵
我就谢谢你的帮助了
合作愉快

其实应该谢谢你，有这样一个好的球迷俱乐部，为了大家，你是社区的希望啊

怎么我修改的没有用啊？
修改MEMBERCODE=3的才能用?是什么意思啊？
在哪里改啊？是在页面上改还是数据库里面改啊？

［此帖子已被 TTXS 在 2004-5-31 23:09:45 编辑过］

基本上高低了，用的又是另外一种方法，但是功能还是有点区别，不知道怎么搞的，用你提供的那种方法总是有点错误，但是还是谢谢你的热心帮助了

哦？这样呀？支持！