小叶白龙博客一．在PJBlog中，除article.asp页面外，日志分类及Tag页面的title与首页都是一样的，事实上这样对搜索引擎优化(SEO)是很不利的，所以我们将着重对<分类日志页面title>和<tag分类页面title>进行优化．
类别页面标题设置：类别名称-站点名称
Tag页面标题设置：Tag-站点名称
二．PJBlog中的meta标签优化：尽管当前搜索引擎对于meta标签并不是很重视，但是有做总比没做的好，所以这里在尽量不改动PJBlog程序结构的前提下对article.asp页面的meta标签keywords及meta标签description进行优化．
文章meta keywords设置：直接将文章Tag做为关键字
文章meta description设置：直接将PJBlog的内容摘要做为文章描述
一．PJBlog页面标题搜索引擎优化(SEO)程序实现
-header.asp
- if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/article.asp")=0 then
- getBlogHead BlogTitle,"",-1
- end if
这句代码是判断URL中是否包含字符串"/article.asp"如果没有则执行代码，这正是我们修改的地方，将它替换为以下代码即可：
- If inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/article.asp")=0 Then
- Dim strTag
- Dim intCateID
- Dim objCategory
- strTag = Request.QueryString("tag")
- intCateID = Request.QueryString("cateID")
- If strTag<>"" Then BlogTitle = strTag & "-" & BlogTitle
- If IsInteger(intCateID) Then
- Set objCategory = New Category
- objCategory.load(intCateID)
- BlogTitle = objCategory.cate_Name & "-" & BlogTitle
- getBlogHead BlogTitle,objCategory.cate_Name,intCateID
- Set objCategory=Nothing
- Else
- getBlogHead BlogTitle,"",-1
- End If
- End If
二．meta标签优化
-header.asp
修改两处：一．定义变量，二．meta修改
- 一．定义变量strKeywords,strDescription
- 将语句
- Dim BlogTitle
- 改为
- Dim BlogTitle,strKeywords,strDescription
- 二．meta修改，当变量strKeywords或strDescription存在值时输出设置值否则输出预定值
- 将语句
- <meta name="keywords" content="<A href="http://www.zdxz.cn" target=_blank>布落格(Abo BloG)</A>,阿布的部落格,PJBlog2,PJBlog3,ASP,JavaScript,VBScript,PHP,脚本特效,网站建设,网页设计,网页制作,域名注册,网络赚钱,pjblog SEO,搜索引擎优化,IT计算机科普,图片,资源下载,笑话,散文" />
- <meta name="description" content="<%=SiteName%> – <%=blog_Title%>" />
- 修改为
- <% If strKeywords <> "" or strDescription <> "" Then %>
- <meta name="keywords" content="<%= strKeywords %>" />
- <meta name="description" content="<%= strDescription %>" />
- <% Else %>
- <meta name="keywords" content="<A href="http://www.zdxz.cn" target=_blank>布落格(Abo BloG)</A>,阿布的部落格,PJBlog2,PJBlog3,ASP,JavaScript,VBScript,PHP,脚本特效,网站建设,网页设计,网页制作,域名注册,网络赚钱,pjblog SEO,搜索引擎优化,IT计算机科普,图片,资源下载,笑话,散文" />
- <meta name="description" content="<%=SiteName%> – <%=blog_Title%>" />
- <% End If %>
-article.asp
修改两处：一．SQL语句更改，二．设定输出值
- 一．SQL语句更改
- SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_tag,log_Intro FROM blog_Content Where log_ID="&id&" and log_IsDraft=false"
- 改为（添加log_tag,log_Intro字段）
- SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_tag,log_Intro FROM blog_Content Where log_ID="&id&" and log_IsDraft=false"
- SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag FROM blog_Content Where log_ID="&id&" and log_IsDraft=false"
- 改为（添加log_Intro字段）
- SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag,log_Intro FROM blog_Content Where log_ID="&id&" and log_IsDraft=false"
- 二．设定输出值
- getBlogHead BlogTitle,getCate.cate_Name,getCate.cate_ID
- 在该语句上添加以下语句
- ‘ 文章关键字及描述值设定
- Dim objTag, objRe
- Set objTag = New tag
- If blog_postFile Then
- strKeywords = objTag.filterHTML(log_ViewArr(8,0))
- strDescription = log_ViewArr(9,0)
- Else
- strKeywords = objTag.filterHTML(log_ViewArr(19,0))
- strDescription = log_ViewArr(20,0)
- End If
- Set objTag = Nothing
- strKeywords = Replace(strKeywords,"</a> <a","</a>,<a") ‘ 将中间的空格换为半角逗号“,”
- Set objRe=new RegExp
- objRe.IgnoreCase =True
- objRe.Global=True
- objRe.Pattern = "<.*?rel.*?>(.*?)<\/.*?>" ‘ 过滤HTML标签
- strKeywords = objRe.Replace(strKeywords,"$1")
- objRe.Pattern = "\[(\w+)[^\[\]]*\]([^\[\]]*)\[\/\1\]" ‘ 过滤UBB标签
- strDescription = log_ViewArr(2,0) & "," & objRe.Replace(strDescription,"$2")
- objRe.Pattern = "<(.[^>]*)>" ‘ 过滤HTML标签
- strDescription = objRe.Replace(strDescription,"")
- Set objRe = Nothing
若你复制的代码有问题，请点击代码显示面板上的 view plain 再进行拷贝
评论前必须登录！
注册