MiThink 记事本

PJBlog比较实用，就是发现他的分类页面中，标题都一样，对SEO很不利，现在我就把我的方法拿出来和大家共享一下。

首先打开header.asp中的25行开始，
if inStr(Replace(Lcase(Request.ServerVariables("URL")),"\","/"),"/article.asp")=0 then
...
end if
把中间内容...替换成：
     dim webcaterss
     cateID = trim(request.QueryString("cateID"))
     IF IsInteger(cateID)=True Then
    sql = "select cate_Name,cate_Intro from blog_Category where cate_ID="&cateID
    Set webcaterss=Server.CreateObject("Adodb.Recordset")
    webcaterss.Open SQL,CONN,1,1
        if webcaterss.eof then
            webcaterss.close
            set webcaterss = nothing
            getBlogHead BlogTitle,"",-1
        else
            getBlogHead BlogTitle,webcaterss(0)&" - "&webcaterss(1),cateID
            webcaterss.close
            set webcaterss = nothing
        end if
    else
        getBlogHead BlogTitle&" - "&blog_Title,"",-1
    end if

再打开article.asp页面中的47行getBlogHead BlogTitle,getCate.cate_Name,getCate.cate_ID换成getBlogHead BlogTitle&" - "&blog_Title,"",-1

再次打开PJBlog即可！