<% Dvbbs.stats="论坛道具权限信息" Dvbbs.LoadTemplates("") Dvbbs.Head() Select case Trim(Request.QueryString("orders")) Case "0" : Show_UserGroupID Case "1" : Show_BoardID Case "2" : Show_ToolsInfo Case Else Show_ToolsInfo End Select Dvbbs.Showerr() ShowFoot() Dvbbs.mainsetting(0)="98%" Dvbbs.Footer() Dvbbs.PageEnd() '-------------------------------------------------------------------------------- '用户道具列表 '-------------------------------------------------------------------------------- Sub Show_ToolsInfo() ''道具获取参数 '1:目标用户：ToUserID= '2:帖子：BoardID=&TopicID=&ReplyID= Dim Str Str = "Action=0&ToUserID="&Request("ToUserID")&"&BoardID="&Dvbbs.BoardID&"&TopicID="&Request("TopicID")&"&ReplyID="&Request("ReplyID") %>

道具使用列表
说明：请确认每种道具的说明再进行操作！

<% Dim Sql,Rs,i Response.Write "" Sql = "Select B.ID,B.UserID,B.UserName,B.ToolsID,B.ToolsName,B.ToolsCount,B.SaleCount,B.SaleMoney,B.SaleTicket,I.ToolsInfo,I.ToolsImg From [Dv_Plus_Tools_Buss] B Inner Join [Dv_Plus_Tools_Info] I on I.ID=B.ToolsID where B.UserID="& Dvbbs.UserID &" ORDER BY B.ID Desc" Set Rs = Dvbbs.Plus_Execute(Sql) If Not Rs.eof Then SQL = Rs.GetRows(-1) Else Response.Write "

您还未有任何道具，请到论坛道具中心购买！

" Exit Sub End If Rs.close:Set Rs = Nothing Dim ToolsImg For i=0 To Ubound(SQL,2) If SQL(10,i)<>"" Then ToolsImg = Server.Htmlencode(SQL(10,i)) Else ToolsImg = "Dv_plus/Tools/pic/None.jpg" End If %>

<%=Server.Htmlencode(SQL(4,i))%>
数量：<%=SQL(5,i)%>">
数量：<%=SQL(5,i)%>

<% If i mod 3 = 2 Then Response.Write "" Next Response.Write "" End Sub Sub ShowFoot() %> <% End Sub Sub Show_UserGroupID() Dim ID,Rs Dim ToolsGroupID,ToolsName,Temp,CanUse CanUse = False Temp = 1 ID = Trim(Request.QueryString("ID")) If ID<>"" And IsNumeric(ID) Then ID = Cint(ID) Else Dvbbs.AddErrCode(34) : Exit Sub End If Set Rs = Dvbbs.Plus_Execute("Select ToolsName,UserGroupID From [Dv_Plus_Tools_Info] Where ID="& ID) If Rs.Eof Then Dvbbs.AddErrCode(34) : Exit Sub Else ToolsName = Dvbbs.iHtmlencode(Rs(0)) ToolsGroupID = Rs(1) End If Rs.Close If IsNull(ToolsGroupID) Then ToolsGroupID = "" If ToolsGroupID<>"" Then ToolsGroupID = ","&Trim(ToolsGroupID)&"," If Dvbbs.Master And Session("flag")<>"" Then Temp=0 %> <% Dim IsSet Set Rs=DvBBS.Execute("Select UserGroupID,Title,UserTitle,parentgid From Dv_UserGroups where parentgid<>0 Order By parentgid,UserGroupID") Do while not Rs.eof If Dvbbs.UserGroupID=Rs(0) Then CanUse=True IsSet = SysGroupName(Rs(3)) %> <% Rs.movenext Loop Rs.close Set Rs=Nothing Response.Write "

<%=ToolsName%> -- 用户组权限列表
><%=IsSet%> <%=Rs(1)%> >> <%=Rs(2)%>	<%=iffcheck(InStr(ToolsGroupID,","&Rs(0)&",")>0,Temp,Rs(0))%>
" If CanUse=True Then _ Response.Write "恭喜您，您所属的用户组可以使用该道具！" _ Else _ Response.Write "很抱歉，您所属的用户组不可以使用该道具！" Response.Write "
" If Temp=0 Then _ Response.Write "全选: 选取允许的用户组，然后点击确定，当道具资料修改提交后才能生效！" _ Else _ Response.Write "" Response.Write "

" End Sub Sub Show_BoardID() Dim ID,Rs Dim ToolsBoardID,ToolsName,Temp Temp=1 ID = Trim(Request.QueryString("ID")) If ID<>"" And IsNumeric(ID) Then ID = Cint(ID) Else Dvbbs.AddErrCode(34) : Exit Sub End If Set Rs = Dvbbs.Plus_Execute("Select ToolsName,BoardID From [Dv_Plus_Tools_Info] Where ID="& ID) If Rs.Eof Then Dvbbs.AddErrCode(34) : Exit Sub Else ToolsName = Dvbbs.iHtmlencode(Rs(0)) ToolsBoardID = Rs(1) End If Rs.Close:Set Rs=Nothing If IsNull(ToolsBoardID) Then ToolsBoardID = "" If ToolsBoardID<>"" Then ToolsBoardID = ","&Trim(ToolsBoardID)&"," If Dvbbs.Master And Session("flag")<>"" Then Temp=0 %> <% ''论坛版块列表 Dim i,ii,BoardSetting,Loadboard Dim Node,xpath If Dvbbs.GroupSetting(37) ="1" Then xpath="[@hidden=0]" For Each Node in Application(Dvbbs.CacheName&"_boardlist").documentElement.selectNodes("board"& xpath) Response.Write "" If Node.attributes.getNamedItem("depth").text>"0" Then For ii=1 To Clng(Node.attributes.getNamedItem("depth").text) Response.Write "  " Next End If If Node.attributes.getNamedItem("child").text>"0" Then Response.Write "" Else Response.Write "" End If Response.Write Node.attributes.getNamedItem("boardtype").text Response.Write "" Response.Write "" Next Response.Write "

<%=ToolsName%> -- 版块权限列表
"&iffcheck(InStr(ToolsBoardID,","&Node.attributes.getNamedItem("boardid").text&",")>0,Temp,Node.attributes.getNamedItem("boardid").text)&"
" If Temp=0 Then _ Response.Write "全选: 选取允许使用的版块，然后点击确定，当道具资料修改提交后才能生效！" _ Else _ Response.Write "" Response.Write "

" End Sub Function iffcheck(iBoolean,itype,iStr) If itype=0 Then iffcheck = "" Else iffcheck = iffcheck & " >" End If Else If iBoolean=True Then iffcheck = "√" Else iffcheck = "x" End If End If End Function %>