论坛版主级以上职务直观化
<p>大家使用动网论坛中有没有为这个问题烦恼过？</p><div class=\"msgheader\">QUOTE:</div><div class=\"msgborder\">看版主发的贴，不能直观知道此版主是管理何版块的，想知道，只能点击信息进入查看。</div><p>如果没有，就不要看下面了～～</p><p>今天发布的这个修改就是他们论坛职务的直观调用，没有涉及到查询数据库的操作，直接使用系统缓存，快速直观。</p><p>以下是修改方法：</p><p>一、首先打开dispbbs.asp，在最后一个%>前面增加以下函数代码：</p><div class=\"msgheader\">QUOTE:</div><div class=\"msgborder\">Function GetAdminPost(UserName,ClassName)<br/>GetAdminPost=Server.HTMLEncode(ClassName)<br/>\'考虑到GroupID作用不同，故使用等级称谓来判断<br/>Dim ClassList,I<br/>ClassList=split(\"管理员,超级版主,版主\",\",\")<br/>For I=0 to Ubound(ClassList)<br/>If ClassList(I)=ClassName Then I=0:Exit For<br/>Next<br/>If I>0 Then Exit Function<br/>Dim Model,XMLDOM,str,ThisMaster,Cname,Node,TmpID<br/>Model=\"<div class=\\\'menuitems\\\'><a target=\\\'_blank\\\' href=\\\'index.asp?boardid={$BID}\\\'>{$POST}</a><span style=\\\'color:#C00\\\'>[版主]</span></a></div>\"<br/>Str=\"\" : ThisMaster = \"<span title=\"\"其他版块版主\"\">[友情]</span>\"<br/>Set XMLDOM=Application(Dvbbs.CacheName&\"_Boradlist\") <br/>For Each Node in XMLDOM.documentElement.getElementsByTagName(\"board\")<br/>If Instr(\"|\"&node.attributes.getNamedItem(\"boardmaster\").text&\"|\",UserName)>0 Then<br/>Cname=node.attributes.getNamedItem(\"boardtype\").text<br/>TmpID=Cint(node.attributes.getNamedItem(\"boardid\").text)<br/>If Dvbbs.BoardID = TmpID Then<br/>ThisMaster = \"[本版]\"<br/>Cname=Cname&ThisMaster<br/>End If<br/>Str=Str&Replace(Replace(Model,\"{$POST}\",Cname),\"{$BID}\",TmpID)<br/>End If<br/>Next<br/>Set XMLDOM=nothing<br/>If Str=\"\" Then <br/>ThisMaster=\"<span title=\"\"无职务\"\" style=\"\"color:#00D\"\">[荣誉]</span>\"<br/>If ClassName<>ClassList(0) Then Cname=ThisMaster&ClassName Else Cname=ClassName&\" [无职务]\"<br/>Else<br/>If ClassName=ClassList(2) Then ClassName=ThisMaster&ClassName<br/>Cname=ClassName&\" <span style=\"\"cursor:pointer;color:#00D\"\" onmouseover=\"\"showmenu(event,\'\"&Str&\"\')\"\">[职务]</span>\"<br/>End If<br/>GetAdminPost = Cname<br/>End Function <br/>%></div><p>，再跑到第290行左右，找到代码：<b>RootID_a=Rs(\"RootID\")，下面添加一行代码：</b></p><div class=\"msgheader\">QUOTE:</div><div class=\"msgborder\">node.attributes.getNamedItem(\"userclass\").text=GetAdminPost(UserName,Rs(\"userClass\"))</div><p>二、后台风格管理，<b>Page_dispbbs,Template(15)</b>，找到代码：</p><div class=\"msgheader\">QUOTE:</div><div class=\"msgborder\"><xsl:value-of select=\"@userclass\"/></div><p>改成：</p><div class=\"msgheader\">QUOTE:</div><div class=\"msgborder\"><xsl:value-of disable-output-escaping=\"yes\" select=\"@userclass\"/></div><p>好了，修改完毕！</p>
页:
[1]