PJBLOG去掉最新評論及留言中ubb代碼的方法

在你的最新評論和留言中突然冒出來UBB代碼，不爽吧？
下面是修改方法：

一、打開plugins\guestbook\install.xml，如果沒裝留言插件，此步路過。
找到

程序代码
NewMessage=NewMessage&"<a class=""sideA"" href=""LoadMod.asp?plugins=GuestBookForPJBlog#book_"&Message_Item(0)&""" title="""&Message_Item(1)&" 于 "&Message_Item(2)&" 发表留言"&CHR(10)&CCEncode(CutStr(Message_Item(3,25))&""">"&CCEncode(CutStr(Message_Item(3),25))&"</a>"

修改成：

程序代码
NewMessage=NewMessage&"<a class=""sideA"" href=""LoadMod.asp?plugins=GuestBookForPJBlog#book_"&Message_Item(0)&""" title="""&Message_Item(1)&" 于 "&Message_Item(2)&" 发表留言"&CHR(10)&CCEncode(CutStr(UBBCode(Message_Item(3),1,0,0,0,0),25))&""">"&CCEncode(CutStr(UBBCode(Message_Item(3),1,0,0,0,0),25))&"</a>"

二、打開common\cache.asp
找到：

程序代码
NewComment=NewComment&"<a class=""sideA"" href=""default.asp?id="&blog_Comment(1,i)&"#comm_"&blog_Comment(0,i)&""" title="""&blog_Comment(2,i)&" 于 "&blog_Comment(4,i)&" 发表评论"&CHR(10)&CCEncode(CutStr(DelQuote(blog_Comment(3,i)),100))&""">"&CCEncode(CutStr(DelQuote(blog_Comment(3,i)),25))&"</a>"

修改成：

程序代码
NewComment=NewComment&"<a class=""sideA"" href=""default.asp?id="&blog_Comment(1,i)&"#comm_"&blog_Comment(0,i)&""" title="""&blog_Comment(2,i)&" 于 "&blog_Comment(4,i)&" 发表评论"&CHR(10)&CCEncode(CutStr(UBBCode(DelUbb(blog_Comment(3,i)),1,0,0,0,0),100))&""">"&CCEncode(CutStr(UBBCode(DelUbb(blog_Comment(3,i)),1,0,0,0,0),25))&"</a>"

二、打開common\ubbcode.asp
找到：（注意%>）

程序代码
End Function
%>

在上面插入以下代碼（太多了，不想看，所以直接在後面加了代碼。在原代碼中修改也能出來。）

程序代码
IF DisSM=1 Then
For Each log_Smilies IN Arr_Smilies
log_SmiliesContent=Split(log_Smilies,"|")
strContent=Replace(strContent,log_SmiliesContent(2),"")
Next
End IF
UBBCode=strContent

三、打开common\function.asp
在最后的
程序代码
%>
上面插入以下代码

程序代码

'*************************************
'删除标签
'*************************************
Function DelUbb(strContent)
If IsNull(strContent) Then Exit Function
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="\[quote\](.[^\]]*?)\[\/quote\]"
strContent= re.Replace(strContent,"")
re.Pattern="\[quote=(.[^\]]*)\](.[^\]]*?)\[\/quote\]"
strContent= re.Replace(strContent,"")
re.Pattern="(\[img\])(.[^\]]*)\[\/img\]"
strContent= re.Replace(strContent,"")
re.Pattern="\[img=(left|right|center|absmiddle|)\](.[^\]]*)(\[\/img\])"
strContent= re.Replace(strContent,"")
re.Pattern="\[img=(\d*|),(\d*|)\](.[^\]]*)\[\/img\]"
strContent= re.Replace(strContent,"")
re.Pattern="\[img=(\d*|),(\d*|),(left|right|center|absmiddle|)\](.[^\]]*)(\[\/img\])"
strContent= re.Replace(strContent,"")
re.Pattern="(\[mid\])(.[^\]]*