Pjblog的Title优化方法

Pjblog的Title不管是在文章页面还是在标签页面，全部使用的都是整个pjblog的Title，这对搜索引擎是不利的，尤其是在抓取你的单个文章的时候。下面这个方法增加了红字部分，分别增加了 TAG、关键字搜索、插件、分类相关页面的Title优化。

header.asp文件，找到'处理标题
把之下的代码替换成如下：

'处理标题
Dim BlogTitle
BlogTitle=siteName & " - " & blog_Title
  if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/default.asp")<>0 then
    dim Tid
    If CheckStr(Request.QueryString("id"))<>Empty Then
        Tid=CheckStr(Request.QueryString("id"))
    End If
    if len(Tid)>0 then Response.Redirect ("article.asp?id="&Tid)
  end if
 IF Request.QueryString("tag") <> "" Then
    BlogTitle = Request.QueryString("tag") & " - Tags" & " - " & BlogTitle
  End If
IF Request.QueryString("SearchContent") <> "" Then
    Dim stype
    Select Case (LCase(Trim(Request.QueryString("searchType"))))
    Case "title":stype="日志标题"
    Case "content":stype="日志内容"
    Case "comments":stype="日志评论"
    Case "trackback":stype="引用通告"
    End select
    BlogTitle = Request.QueryString("SearchContent") & " - " & stype & " - 搜索结果" & " - " & BlogTitle
End If
IF Request.QueryString("plugins") <> "" Then
    BlogTitle = Request.QueryString("plugins") & " - 其他" & " - " & BlogTitle
End If
IF IsInteger(cateID) = True Then
   Dim Cate
   Set Cate = New Category
   Cate.Load(cateID)
   BlogTitle = Cate.Cate_Name & " - " & BlogTitle
End If
if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/article.asp")=0 then
      getBlogHead BlogTitle,"",-1
end if

'输出文件头
sub getBlogHead(Title,CateTitle,CateID)
%>

今天我是这样更改的，但是具体效果我没看出来，郁闷……谁要是能弄懂了，可以留言告诉我下……谢谢！