CN域名hold锁定需备案后申请解锁
作者:wbq122 日期:2010-08-09
学会了SEO以后
作者:wbq122 日期:2010-08-06
荆州你最近还好吗
作者:wbq122 日期:2010-07-17
PJBLOG4啥时候正式发布
作者:wbq122 日期:2010-07-17
企业网站做SEO如何更新
作者:wbq122 日期:2010-06-01
公司手提纸袋尺寸、分辨率、材质
作者:wbq122 日期:2010-05-28
昨天百度更新了
作者:wbq122 日期:2010-05-21
修改PJBLOG分类页面的标题
作者:wbq122 日期:2010-05-20
唔 博客好久没用了,这几天开张发现,每个栏目页面的标题都是一样的,纠结,这样明显不利于收录,也就不利于SEO了,再次感叹百度的强大。
修改header.asp
找到
在这段代码的下方添加
OK,搞定
修改header.asp
找到
复制内容到剪贴板
程序代码
程序代码'=========================Funciton In Head=============================
'处理标题
Dim BlogTitle
BlogTitle = siteName & "-" & blog_Title
If InStr(Replace(LCase(Request.ServerVariables("URL")), "\", "/"), "/default.asp")<>0 Then
'处理标题
Dim BlogTitle
BlogTitle = siteName & "-" & blog_Title
If InStr(Replace(LCase(Request.ServerVariables("URL")), "\", "/"), "/default.asp")<>0 Then
在这段代码的下方添加
复制内容到剪贴板
程序代码
程序代码IF Request.QueryString("tag") <> "" Then
BlogTitle = Request.QueryString("tag") & " - " & BlogTitle
End If
IF IsInteger(cateID) = True Then
Dim Cate
Set Cate = New Category
Cate.Load(cateID)
BlogTitle = Cate.Cate_Name & " - " & BlogTitle
End If
BlogTitle = Request.QueryString("tag") & " - " & BlogTitle
End If
IF IsInteger(cateID) = True Then
Dim Cate
Set Cate = New Category
Cate.Load(cateID)
BlogTitle = Cate.Cate_Name & " - " & BlogTitle
End If
OK,搞定







