标题： 7.1坛版主级以上职务直观化(stardy)
<p>一、首先打开dispbbs.asp，在最后一个%>前面增加以下函数代码：<br/>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</p><p>第290行左右，找到代码：<br/>RootID_a=Rs(\"RootID\")</p><p>下面添加一行代码：<br/>node.attributes.getNamedItem(\"userclass\").text=GetAdminPost(UserName,Rs(\"userClass\"))</p><p>二、后台风格管理，Page_dispbbs,Template(15)，找到代码：<br/><xsl:value-of select=\"@userclass\"/><br/>改成：<br/><xsl:value-of disable-output-escaping=\"yes\" select=\"@userclass\"/><br/></p><p></p>
页:
[1]