动网论坛教程：发帖语气重修改

核心提示： node.attributes.setNamedItem(Cnode) '发帖语气 Rs.MoveNext注意，如果你安了其他的插件，动网论坛教程：发帖语气重修改(3)，请把 '发帖语气 Set CNode = XMLDOM

　 node.attributes.setNamedItem(Cnode)
　 '发帖语气
　 Rs.MoveNext

************************注意，如果你安了其他的插件，请把

　 '发帖语气
　 Set CNode = XMLDOM.createNode(2,"Speak","")
　 Cnode.text= Split(node.attributes.getNamedItem("Ubblist").text,",")(0)
　 node.attributes.setNamedItem(Cnode)
　 '发帖语气
放到
　 Rs.MoveNext
之前即可

3、修改inc/ubblist.asp文件
 找到
Function Ubblist(Str1)
 Dim Str
 Str=Str1
 Str=LCase(Str)
 Dim Dv_ubb(51),i
 Dv_ubb(0)="javascript":Dv_ubb(1)="jscript:":Dv_ubb(2)="js:":Dv_ubb(3)="value":Dv_ubb(4)="about:"
 Dv_ubb(5)="file:":Dv_ubb(6)="document.cookie":Dv_ubb(7)="vbscript:":Dv_ubb(8)="vbs:":Dv_ubb(9)="mouse"
 Dv_ubb(10)="exit":Dv_ubb(11)="error":Dv_ubb(12)="click":Dv_ubb(13)="key":Dv_ubb(14)="[/img]"
 Dv_ubb(15)="[/upload]":Dv_ubb(16)="[/dir]":Dv_ubb(17)="[/qt]":Dv_ubb(18)="[/mp]":Dv_ubb(19)="[/rm]"
 Dv_ubb(20)="[/sound]":Dv_ubb(21)="[/flash]":Dv_ubb(22)="[/money]":Dv_ubb(23)="[/point]":Dv_ubb(24)="[/usercp]"
 Dv_ubb(25)="[/power]":Dv_ubb(26)="[/post]":Dv_ubb(27)="[/replyview]":Dv_ubb(28)="[/usemoney]":Dv_ubb(29)="[/url]"
 Dv_ubb(30)="[/email]":Dv_ubb(31)="http":Dv_ubb(32)="https":Dv_ubb(33)="ftp":Dv_ubb(34)="rtsp":Dv_ubb(35)="mms"
 Dv_ubb(36)="[/html]":Dv_ubb(37)="[/code]":Dv_ubb(38)="[/color]":Dv_ubb(39)="[/face]":Dv_ubb(40)="[/align]"
 Dv_ubb(41)="[/quote]":Dv_ubb(42)="[/fly]":Dv_ubb(43)="[/move]":Dv_ubb(44)="[/shadow]":Dv_ubb(45)="[/glow]"