不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
实现PJBlog3关键词识别替换不区分大小写的方法
编辑:dnawo 日期:2011-11-20
如上图所示，PJBlog3后台的关键词功能可以为博文中一些特定的关键词加上链接，从SEO角度来说，这对做站内链接极有帮助，但经实际测试，添加上图关键词后，只能实现替换博文中出现的关键词asp.net，而对ASP.NET、asp.NET就失效了，也就是说，PJBlog3替换的时候是区分大小写的，查看了相关代码后，最终解决了该问题。
实现PJBlog3关键词识别替换不区分大小写的方法
打开common/ubbcode.asp文件，找到如下代码：
复制内容到剪贴板
程序代码
程序代码'-----------关键词识别----------------
If AutoKEY = 1 Then
Dim log_Keywords, log_KeywordsContent
For Each log_Keywords IN Arr_Keywords
log_KeywordsContent = Split(log_Keywords, "$|$")
If log_KeywordsContent(3)<>"None" Then
strContent = Replace(strContent, log_KeywordsContent(1), "<a href="""&log_KeywordsContent(2)&""" target=""_blank""><img src=""images/keywords/"&log_KeywordsContent(3)&""" border=""0"" alt=""""/> "&log_KeywordsContent(1)&"</a>")
Else
strContent = Replace(strContent, log_KeywordsContent(1), "<a href="""&log_KeywordsContent(2)&""" target=""_blank"">"&log_KeywordsContent(1)&"</a>")
End If
Next
End If
If AutoKEY = 1 Then
Dim log_Keywords, log_KeywordsContent
For Each log_Keywords IN Arr_Keywords
log_KeywordsContent = Split(log_Keywords, "$|$")
If log_KeywordsContent(3)<>"None" Then
strContent = Replace(strContent, log_KeywordsContent(1), "<a href="""&log_KeywordsContent(2)&""" target=""_blank""><img src=""images/keywords/"&log_KeywordsContent(3)&""" border=""0"" alt=""""/> "&log_KeywordsContent(1)&"</a>")
Else
strContent = Replace(strContent, log_KeywordsContent(1), "<a href="""&log_KeywordsContent(2)&""" target=""_blank"">"&log_KeywordsContent(1)&"</a>")
End If
Next
End If
修改为：
复制内容到剪贴板 程序代码
程序代码'-----------关键词识别----------------
If AutoKEY = 1 Then
Dim log_Keywords, log_KeywordsContent
Dim regEx
SET regEx = new RegExp
'regEx.Pattern = "(s)$"
regEx.IgnoreCase = True
regEx.Global = True
For Each log_Keywords IN Arr_Keywords
log_KeywordsContent = Split(log_Keywords, "$|$")
regEx.Pattern = "("&log_KeywordsContent(1)&")"
If log_KeywordsContent(3)<>"None" Then
strContent = regEx.Replace(strContent, "<a href="""&log_KeywordsContent(2)&""" target=""_blank""><img src=""images/keywords/"&log_KeywordsContent(3)&""" border=""0"" alt=""""/>$1</a>")
Else
strContent = regEx.Replace(strContent, "<a href="""&log_KeywordsContent(2)&""" target=""_blank"">$1</a>")
End If
Next
SET regEx = Nothing
End If
If AutoKEY = 1 Then
Dim log_Keywords, log_KeywordsContent
Dim regEx
SET regEx = new RegExp
'regEx.Pattern = "(s)$"
regEx.IgnoreCase = True
regEx.Global = True
For Each log_Keywords IN Arr_Keywords
log_KeywordsContent = Split(log_Keywords, "$|$")
regEx.Pattern = "("&log_KeywordsContent(1)&")"
If log_KeywordsContent(3)<>"None" Then
strContent = regEx.Replace(strContent, "<a href="""&log_KeywordsContent(2)&""" target=""_blank""><img src=""images/keywords/"&log_KeywordsContent(3)&""" border=""0"" alt=""""/>$1</a>")
Else
strContent = regEx.Replace(strContent, "<a href="""&log_KeywordsContent(2)&""" target=""_blank"">$1</a>")
End If
Next
SET regEx = Nothing
End If
后记
虽然Replace函数最后一个参数也能解决大小写匹配的问题：Replace(str1,str2,1,-1,1)，但是经它替换后，原先博文内容中的ASP.NET、asp.NET都统一成了小写asp.net，不太完美，所以改用正则来替换。
本次测试使用PJBlog版本为PJBlog3 v3.1.6.227。
上一篇: WinForm未能加载文件或程序集SharpZipLib：找到的程序集清单定义与程序集引用不匹配解决方法
下一篇: 域名选择的几个思路及相关疑问
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: 
最新日志:
评论: 0 | 引用: 0 | 查看次数: 6020
发表评论
请登录后再发表评论！
