PJBlog3 2.8.5.157 新版发布下载\|升级(2008.8.26)	来给PJ3提提发展建议	2008版 PJHOME 珍藏/纪念版官方T恤正式发布！	PJ3内测团队主创人员身份，性格，特点吐血大曝光
PJBlog技术支持论坛使用问题总索引	PJ-Blog 3 斑竹日志	【独家】我使用过的三种空间，与客服的精彩故事	Z-Blog,Wordpress,Bo-Blog转换到PJBlog

[PJblog^3]技术支持论坛 - PJBLOG SUPPORT FORUM » 『插件、拓展代码使用/讨论区』 » [原创]给你的文章页面添加真正的“关键字”，11月20日修复中文tag不能正常转换的bug!

29 ‹‹1 23

打印

[原创]给你的文章页面添加真正的“关键字”，11月20日修复中文tag不能正常转换的bug!

live-int

PJFORUM新人

Rank: 3 Rank: 3 Rank: 3

UID: 34004
帖子: 3
精华: 0
积分: 133
PJ币: 3 元
专长
在线时间: 13 小时
注册时间: 2007-2-24

发短消息
加为好友
当前离线

21^# 大中小发表于 2007-2-24 22:39 只看该作者

楼上有几位没有能正确修改，偶就菜水平帮忙说明下，呵呵，随便写下，如何按theosoft的思路来修改description

引用:

然后打开header.asp，找到
<meta name="keywords" content=...这一句，改成
  <%dim tmpTag,tmp_tags,len_name
len_name=Len(SiteName)
If Left(Title,len_name)=SiteName Then
%>
  <meta name="keywords" c />
<%else
set tmpTag=new tag
tmp_tags=tmpTag.filterKeys(log_ViewArr(19,0))
%>
  <meta name="keywords" c />
<%end if%>

这句应该是这样
<%dim tmpTag,tmp_tags,len_name
   len_name=Len(SiteName)
If Left(Title,len_name)=SiteName Then
   %>
   <meta name="keywords" content="Blog,Theosoft,<%=SiteName%>" />
   <%else
   set tmpTag=new Tag
   tmp_tags=tmpTag.filterKeys(log_ViewArr(19,0))
   %>
   <meta name="keywords" content="<%=tmp_tags%>Blog,<%=SiteName%>" />
   <%end if%>

关于description的问题，我是直接调用了摘要内容，按theosoft的思路修改如下:
将已经修改的
SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag FROM blog_Content Where log_ID="&id&" and log_IsDraft=false"
这句换成
SQL="Select top 1 log_ID,log_CateID,log_title,Log_IsShow,log_ViewNums,log_Author,log_comorder,log_DisComment,log_Content,log_PostTime,log_edittype,log_ubbFlags,log_CommNums,log_QuoteNums,log_weather,log_level,log_Modify,log_FromUrl,log_From,log_tag,log_Intro FROM blog_Content Where log_ID="&id&" and log_IsDraft=false"
header.asp中的
<meta name="description" content="<%=SiteName%> - <%=blog_Title%>" />
换成
<%
   len_name=Len(SiteName)
If Left(Title,len_name)=SiteName Then
   %>
<meta name="description" content="<%=SiteName%> - <%=blog_Title%>" />
   <%else
   tmp_tags=tmpTag.ClearHTML(log_ViewArr(20,0))
   %>
   <meta name="description" content="<%=tmp_tags%>" />
   <%end if%>

common\library.asp，中在刚增加的
Public function filterKeys(str) 'Theosoft (C) 2001-2006
..........
end function
函数下再增加如下函数
  Public Function ClearHTML(str) 'golove (C) 2007
Dim jnkcTmp,jnkcRegExp
jnkcTmp = str & ""
Set jnkcRegExp = new RegExp
jnkcRegExp.Global = True
jnkcRegExp.Pattern = "(<[^>]*>)"
jnkcTmp = jnkcRegExp.Replace(jnkcTmp,"")
Set jnkcRegExp = Nothing
jnkcTmp=replace(jnkcTmp,chr(10),"")
jnkcTmp=replace(jnkcTmp,chr(13),"")
ClearHTML = jnkcTmp
End Function

搞定收工，哈哈
有问题就来留言吧，www.live-int.cn