欢迎光临

木子屋

标题: Google网站管理员工具提示PJBlog3重复的标题标记解决方法

作者: dnawo

日期: 2011-08-22 10:32 AM

分类: 程序修改

内容: 今天登录Google网站管理员工具，在"故障诊断→HTML建议"看到提示很多页面有重复的标题：
详细报告如下：
熟悉PJBlog的朋友知道，"ar​tic​le.​asp​?id​=xxxx"(A)是PJBlog文章页面的链接，那"de​fau​lt.​asp​?id​=xxxx"(B)是什么呢？测试了下，原来它是起了个中转的作用，最终还是跳转到A，这样的话，只要找出所有链接B改为A就好了，那问题是链接B在哪边呢？经过一番寻找，在首页文章列表中终于找着了：
PJBlog3重复的标题标记解决方法
①.打开class/cls_default.asp，找到如下代码：
复制内容到剪贴板 程序代码分类:<a href="default.asp?cateID=<%=webLogArr(1,PageCount)%>" title="<%=getCate.cate_Intro%>"><%=getCate.cate_Name%></a> | <a href="?id=<%=webLogArr(0,PageCount)%>">固定链接</a>
修改如下(红色新增)：
复制内容到剪贴板 程序代码分类:<a href="default.asp?cateID=<%=webLogArr(1,PageCount)%>" title="<%=getCate.cate_Intro%>"><%=getCate.cate_Name%></a> | <a href="ar​tic​le.​asp?id=<%=webLogArr(0,PageCount)%>">固定链接</a>
②.打开header.asp，找到如下代码：
复制内容到剪贴板 程序代码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
Dim rUrl
If blog_postFile = 2 Then
rUrl = caload(Tid)
else
rUrl = "article.asp?id=" & Tid
end if
RedirectUrl (rUrl)
Response.end
End If
End If
修改为：
复制内容到剪贴板 程序代码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
Dim rUrl
If blog_postFile = 2 Then
rUrl = caload(Tid)
ElseIf InStr(Request.ServerVariables("HTTP_REFERER"),Request.ServerVariables("HTTP_HOST")) > 0 Then '站外不跳转
rUrl = "article.asp?id=" & Tid
End If
If rUrl<>"" Then
RedirectUrl (rUrl)
Response.end
End If
End If
End If

+ 查看当前日志评论 (0)

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.241 ms

返回

标题: Google网站管理员工具提示PJBlog3重复的标题标记解决方法

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.241 ms

返回

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.272 ms

返回