📄 indivgroup_dispbbs.asp
字号:
If i=0 Then
postuseridlist=Node.selectSingleNode("@postuserid").text
Else
postuseridlist=postuseridlist&","&Node.selectSingleNode("@postuserid").text
End If
i=i+1
Next
'说明:postuserlist为发贴用户数据
Set Rs=Dvbbs.Execute("Select userid,useremail,UserIM,UserMobile,Usersign,userclass,Usertitle,Userwidth,Userheight,UserPost,Userface,JoinDate,userWealth,userEP,userCP,Userbirthday,Usersex,UserGroup,LockUser,userPower,titlepic,UserGroupID,LastLogin,UserHidden,IsChallenge,UserMoney,UserTicket,UserAvaSetting,UserIsAva From dv_user Where UserID IN ("& postuseridlist &")")
If Not Rs.EOF Or postuseridlist<>"" Then
Set postuserlist=Dvbbs.RecordsetToxml(Rs,"user","userlist")
For Each Node In XmlDom.documentElement.SelectNodes("row")
Ubblists=Node.selectSingleNode("@ubblist").text
If postuserlist.documentElement.selectSingleNode("user[@userid="&Node.selectSingleNode("@postuserid").text&"]/@usergroupid") Is Nothing Then
UserGroupID=7
Else
UserGroupID=postuserlist.documentElement.selectSingleNode("user[@userid="&Node.selectSingleNode("@postuserid").text&"]/@usergroupid").text
End If
'过滤标题HTML
If TopicInfo.documentElement.firstChild.selectSingleNode("@topicmode").text <> "1" Then
Node.selectSingleNode("@topic").text=replace(Node.selectSingleNode("@topic").text,"<","<")
Else
If Node.selectSingleNode("@parentid").text<>"0" Then
Node.selectSingleNode("@topic").text=replace(Node.selectSingleNode("@topic").text,"<","<")
End If
End If
postbody=Node.selectSingleNode("@body").text
'过滤脏字
postbody=Dvbbs.ChkBadWords(postbody)
Topic=Node.selectSingleNode("@topic").text
Node.selectSingleNode("@topic").text=Dvbbs.ChkBadWords(Topic)
UserName=Node.selectSingleNode("@username").text
'PostBuyUser=Node.selectSingleNode("@postbuyuser").text
ReplyID_a=Node.selectSingleNode("@announceid").text
RootID_a=Node.selectSingleNode("@rootid").text
AnnounceID_a=ReplyID_a
Node.selectSingleNode("@username").text=Dvbbs.ChkBadWords(username)
'Ubb转换
If InStr(Ubblists,",39,") > 0 Then
Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,0)
Else
Node.selectSingleNode("@body").text = dv_ubb.Dv_UbbCode(postbody,UserGroupID,1,1)
End If
'利用ubblist节点传送广告数据
If Dvbbs.Forum_ads(7)="1" Then
Node.selectSingleNode("@ubblist").text=Topic_Ads(14)
Else
Node.selectSingleNode("@ubblist").text=""
End If
Node.selectSingleNode("@topic").text=Dvbbs.Replacehtml(Node.selectSingleNode("@topic").text)
Next
For Each Node In postuserlist.documentElement.SelectNodes("user")
Rem 分解userIM数组
UserIM=Split(Node.selectSingleNode("@userim").text,"|||")
Node.attributes.setNamedItem(postuserlist.createNode(2,"homepage","")).text=UserIM(0)
Node.attributes.setNamedItem(postuserlist.createNode(2,"oicq","")).text=UserIM(1)
Node.attributes.setNamedItem(postuserlist.createNode(2,"icq","")).text=UserIM(2)
Node.attributes.setNamedItem(postuserlist.createNode(2,"msn","")).text=UserIM(3)
Node.attributes.setNamedItem(postuserlist.createNode(2,"aim","")).text=UserIM(4)
Node.attributes.setNamedItem(postuserlist.createNode(2,"yahoo","")).text=UserIM(5)
Node.selectSingleNode("@userim").text=UserIM(6)
userface=Dv_FilterJS(Node.selectSingleNode("@userface").text)
Node.selectSingleNode("@userface").text=userface
If Dvbbs.forum_setting(42) = "0" Then '关闭签名的判断 2005-5-17 Dv.Yz
Node.selectSingleNode("@usersign").text=""
Else
If canusersign(Node.selectSingleNode("@usergroupid").text) = 1 Then
Node.selectSingleNode("@usersign").text=Dvbbs.ChkBadWords(Dv_ubb.Dv_SignUbbCode(Node.selectSingleNode("@usersign").text,Node.selectSingleNode("@usergroupid").text))
Else
Node.selectSingleNode("@usersign").text=""
End If
End If
Node.selectSingleNode("@joindate").text=Formatdatetime(Node.selectSingleNode("@joindate").text,1)
If Node.selectSingleNode("@userhidden").text = "2" Then
If IsDate(Node.selectSingleNode("@lastlogin").text) Then
If DateDiff("s",Node.selectSingleNode("@lastlogin").text,Now())>(cCur(dvbbs.Forum_Setting(8))*60) Then
Node.selectSingleNode("@userhidden").text = "1"
End If
Else
Node.selectSingleNode("@userhidden").text = "1"
End If
Else
Node.selectSingleNode("@userhidden").text = "1"
End If
'获取自己用户组的名字样式前后标记,并生成节点
namestyle=Split(Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='"& Node.selectSingleNode("@usergroupid").text &"']/@groupsetting").text,",")(58)
Node.attributes.setNamedItem(postuserlist.createNode(2,"namestyle","")).text=namestyle
'修正显示用户组光晕效果 2005.10.13 By Winder.F
UserGroupID=Node.selectSingleNode("@usergroupid").text
If UserGroupID < 9 Then
Node.attributes.setNamedItem(postuserlist.createNode(2,"nameglow","")).text=nameglow(UserGroupID-1)
Else
Node.attributes.setNamedItem(postuserlist.createNode(2,"nameglow","")).text=Dvbbs.mainsetting(5)
End If
Next
'合并数据
XMLDom.documentElement.appendChild(postuserlist.documentElement)
End If
Else
Set XMLDom=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
XMLDom.appendChild(XMLDom.createElement("post"))
End If
Else
Set XMLDom=Server.CreateObject("Msxml2.FreeThreadedDOMDocument" & MsxmlVersion)
XMLDom.appendChild(XMLDom.createElement("post"))
End If
Rem 主贴信息节点的插入 节点名称postinfo
Set Node = XMLDom.documentElement.appendChild(TopicInfo.documentElement.firstChild)
Node.attributes.setNamedItem(XMLDom.createNode(2,"pagecount","")).text=PageCount
Node.attributes.setNamedItem(XMLDom.createNode(2,"boardtype","")).text=Dvbbs.Replacehtml(Dvbbs.Boardtype)
Rem 传送客户端浏览器信息节点
XMLDom.documentElement.appendChild(Dvbbs.UserSession.documentElement.lastChild.cloneNode(True))
Rem 传送用户信息节点
Set Node=XMLDom.documentElement.appendChild(Dvbbs.UserSession.documentElement.firstChild.cloneNode(True))
Rem 附加一些需要用到的用户权限数据
If CanRead Then
Node.attributes.setNamedItem(XMLDom.createNode(2,"canread","")).text=1
End If
If CanReply Then
Node.attributes.setNamedItem(XMLDom.createNode(2,"canreply","")).text=1
End If
If TrueMaster Then
Node.attributes.setNamedItem(XMLDom.createNode(2,"truemaster","")).text=1
Node.attributes.setNamedItem(XMLDom.createNode(2,"canlookip","")).text=1
End If
Node.attributes.setNamedItem(XMLDom.createNode(2,"canreadbest","")).text=1
Rem GroupSetting(10) 可以编辑自己的文章 GroupSetting(11) 可以删除自己的文章 GroupSetting(12) 可以移动自己的主题 GroupSetting(13) 可以打开关闭自己的主题
Node.attributes.setNamedItem(XMLDom.createNode(2,"caneditmypost","")).text=1
Node.attributes.setNamedItem(XMLDom.createNode(2,"candelmypost","")).text=0
Node.attributes.setNamedItem(XMLDom.createNode(2,"canmovemypost","")).text=0
Node.attributes.setNamedItem(XMLDom.createNode(2,"canlockmypost","")).text=0
Rem 相关设置节点,一个个手工添加:(
Set Node = XMLDom.documentElement.appendChild(XMLDom.createNode(1,"setting",""))
Node.attributes.setNamedItem(XMLDom.createNode(2,"pagesize","")).text=10
Node.attributes.setNamedItem(XMLDom.createNode(2,"maxpostlen","")).text=16240
Node.attributes.setNamedItem(XMLDom.createNode(2,"picurl","")).text=Dvbbs.Forum_PicUrl
Node.attributes.setNamedItem(XMLDom.createNode(2,"fontsize","")).text=9
Node.attributes.setNamedItem(XMLDom.createNode(2,"upostalipay","")).text=Dvbbs.Forum_setting(89)
Node.attributes.setNamedItem(XMLDom.createNode(2,"isboke","")).text=Dvbbs.Forum_setting(99)
Rem 如果要恢复行距设置请把下面一行屏蔽掉
Node.attributes.setNamedItem(XMLDom.createNode(2,"lineheight","")).text="normal"
Node.attributes.setNamedItem(XMLDom.createNode(2,"indent","")).text=24
Node.attributes.setNamedItem(XMLDom.createNode(2,"usertitle","")).text=Dvbbs.forum_setting(6)
Dim xslt,proc,XMLStyle
Set XMLStyle=Server.CreateObject("Msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
XMLStyle.loadxml template.html(3)
'XMLStyle.load Server.MapPath("Dv_plus/IndivGroup/Skin/dispbbs.xslt")
Set XSLT=Server.CreateObject("Msxml2.XSLTemplate" & MsxmlVersion)
XSLT.stylesheet=XMLStyle
Set proc = XSLT.createProcessor()
proc.input = XMLDom
proc.transform()
Response.Write proc.output
Set XMLDOM=Nothing
Set XSLt=Nothing
Set proc=Nothing
End Sub
Function canusersign(GroupID)
If Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='"& GroupID &"']/@groupsetting") Is Nothing Then GroupID=7
canusersign = Split(Application(Dvbbs.CacheName &"_groupsetting").documentElement.selectSingleNode("usergroup[@usergroupid='"& GroupID &"']/@groupsetting").text,",")(55)
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -