标题： 7.1坛版主级以上职务直观化(stardy)

蓝雨

一、首先打开dispbbs.asp，在最后一个%>前面增加以下函数代码：
Function GetAdminPost(UserName,ClassName)
GetAdminPost=Server.HTMLEncode(ClassName)
\'考虑到GroupID作用不同，故使用等级称谓来判断
Dim ClassList,I
ClassList=split(\"管理员,超级版主,版主\",\",\")
For I=0 to Ubound(ClassList)
If ClassList(I)=ClassName Then I=0:Exit For
Next
If I>0 Then Exit Function
Dim Model,XMLDOM,str,ThisMaster,Cname,Node,TmpID
Model=\"

{$POST}[版主]

\"
Str=\"\" : ThisMaster = \"[友情]\"
Set XMLDOM=Application(Dvbbs.CacheName&\"_Boradlist\")
For Each Node in XMLDOM.documentElement.getElementsByTagName(\"board\")
If Instr(\"|\"&node.attributes.getNamedItem(\"boardmaster\").text&\"|\",UserName)>0 Then
Cname=node.attributes.getNamedItem(\"boardtype\").text
TmpID=Cint(node.attributes.getNamedItem(\"boardid\").text)
If Dvbbs.BoardID = TmpID Then
ThisMaster = \"[本版]\"
Cname=Cname&ThisMaster
End If
Str=Str&Replace(Replace(Model,\"{$POST}\",Cname),\"{$BID}\",TmpID)
End If
Next
Set XMLDOM=nothing
If Str=\"\" Then
ThisMaster=\"[荣誉]\"
If ClassName<>ClassList(0) Then Cname=ThisMaster&ClassName Else Cname=ClassName&\" [无职务]\"
Else
If ClassName=ClassList(2) Then ClassName=ThisMaster&ClassName
Cname=ClassName&\" [职务]\"
End If
GetAdminPost = Cname
End Function

第290行左右，找到代码：
RootID_a=Rs(\"RootID\")

下面添加一行代码：
node.attributes.getNamedItem(\"userclass\").text=GetAdminPost(UserName,Rs(\"userClass\"))

二、后台风格管理，Page_dispbbs,Template(15)，找到代码：

改成：