上一篇: 
下一篇: 
文章来自: 
引用通告: 
Tags: 
最新日志:
不错呦！smile@林凯西，确保“准备文件”中的几个文件都有安装，S...您好，看了您这篇帖子觉得很有帮助。但是有个问题想请...我的修改过了怎么还被恶意注册呢 @jjjjiiii 用PJ快9年了，主要是A...PJ3啊，貌似很少有人用PJ了，现在不是WP就是z...@332347365，我当时接入时错误码没有-10...楼主，ChkValue值应为-103是什么意思呢？...大哥 你最近能看到我发的信息，请跟我联系，我有个制...
Google网站管理员工具提示PJBlog3重复的标题标记解决方法
编辑:dnawo 日期:2011-08-22
今天登录Google网站管理员工具，在"故障诊断→HTML建议"看到提示很多页面有重复的标题：
详细报告如下：
熟悉PJBlog的朋友知道，"article.asp?id=xxxx"(A)是PJBlog文章页面的链接，那"default.asp?id=xxxx"(B)是什么呢？测试了下，原来它是起了个中转的作用，最终还是跳转到A，这样的话，只要找出所有链接B改为A就好了，那问题是链接B在哪边呢？经过一番寻找，在首页文章列表中终于找着了：
PJBlog3重复的标题标记解决方法
①.打开class/cls_default.asp，找到如下代码：
修改如下(红色新增)：
②.打开header.asp，找到如下代码：
修改为：
详细报告如下：
熟悉PJBlog的朋友知道，"article.asp?id=xxxx"(A)是PJBlog文章页面的链接，那"default.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="article.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
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
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 | 引用: 0 | 查看次数: 46392
发表评论
请登录后再发表评论！
