frtime

引用:

原帖由 debugcn 于 2008-1-21 13:08 发表
1.8 的版本只要解压缩到XHJKeyWords目录就可以了,适用于1.8版本
1.7的版本还是需要按照说明步骤修改代码.

原来是这样啊!  怪不得没成功！

夜火

发现了问题，如果一个链接里包含所设置的关键字，那这个链接会被拆开
还有如果文章里还有很多关键字，那么这篇文章页就会变成链接农场。。。。。。。。
希望能得到改善，一篇文章里重复的关键字只链接一次，有链接的关键字不做操作
我现在已经把这个插件删掉了~，感觉不如自己手动来的好~~

busfly

内文关键字替换插件,SEO有效2008-01-29日更新
这个插件还有问题，请作者注意修改一下，
这个插件可能是参考了文章列表插件，可能定义和使用了一些和文章列表插件相同的东西，导致，当这个插件启用后，文章列表插件不能正常生成各种列表（主要是当这个插件在文章列表插件之前启用时发生这个情况） 请使用了文章排行列表插件却不显示列表的朋友关注此贴

请作者注意修改一下，同时提醒一下插件开发作者注意严格遵守插件开发规则，以免给其它的插件或者系统带来不必要的问题

另外，使用了文章列表插件的朋友，如果没有正常出现文章列表，请查看一下是否安装启用了这个关键字插件，如果安装了，请停用这个插件,或者先启用列表插件,再启用SEO插件(不过不知道这样的话,SEO插件会不会有用)

[ 本帖最后由 busfly 于 2008-2-13 10:54 编辑 ]

aibiliwu

不会呀,我用的停好的,2个插件,没冲突.

haphic

想冲突吗? 你先把列表插件停了, 再启用. 然后再来发议论.

busfly

我刚刚看了一下,好像也没发现什么和列表插件相同的东西,只是在main.asp下发现了两个系统自带的函数,被重新写了一篇,不知道是不是这个影响的

复制内容到剪贴板

代码:


'*********************************************************
' 目的：    Save Text to File
' 输入：   
' 输入：   
' 返回：   
'*********************************************************
Function SaveToFile(strFullName,strContent,strCharset)
On Error Resume Next
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = adTypeText
.Mode = adModeReadWrite
.Open
.Charset = strCharset
.Position = objStream.Size
.WriteText = strContent
.SaveToFile strFullName,adSaveCreateOverWrite
.Close
End With
Set objStream = Nothing
Err.Clear
End Function
'*********************************************************
'*********************************************************
' 目的：    Load Text form File
' 输入：   
' 输入：   
' 返回：   
'*********************************************************
Function LoadFromFile(strFullName,strCharset)
On Error Resume Next
Dim objStream
Set objStream = Server.CreateObject("ADODB.Stream")
With objStream
.Type = adTypeText
.Mode = adModeReadWrite
.Open
.Charset = strCharset
.Position = objStream.Size
.LoadFromFile strFullName
LoadFromFile=.ReadText
.Close
End With
Set objStream = Nothing
Err.Clear
End Function
'*********************************************************

busfly

另外在这个插件的include.asp里发现了这个

复制内容到剪贴板

代码:


<!-- #include file="KeyWords.asp" -->   
<%
'///////////////////////////////////////////////////////////////////////////////
'// 插件应用:   文章内文关键字替换,Z-Blog(去掉Z-Blog专用的代码段后可用在其它系统上)
'// 插件制作:   www.jrgz2008.com
'// 备    注:   以软件兔的基线版本更改成现在的真正的内文关键字系统
'// 最后修改：  2008-01-21
'// 最后版本:   1.1
'///////////////////////////////////////////////////////////////////////////////


'注册插件
Call RegisterPlugin("XhjKeyWords","ActivePlugin_XhjKeyWords")

'具体的接口挂接
Function ActivePlugin_Totoro()

'挂上接口
'Filter_Plugin_TArticle_Export_TemplateTags
Call Add_Filter_Plugin("Filter_Plugin_TArticle_Export_TemplateTags","XhjKeyWords_chkComment_TArticle_Export_TemplateTags")

End Function

'*********************************************************
' 目的：    替换掉文章的内容部分
'*********************************************************
Function XhjKeyWords_chkComment_TArticle_Export_TemplateTags(ByRef aryTemplateTagsName,ByRef aryTemplateTagsValue)
aryTemplateTagsValue(4)=XhjKeyWords(aryTemplateTagsValue(4))
aryTemplateTagsValue(5)=XhjKeyWords(aryTemplateTagsValue(5))
End Function
'*********************************************************

%>

明显的有问题,但是不知道和列表插件有什么关系,怎么没影响到Totoro插件呢?
希望大家有空的都来分析分析
这个插件制作时也太不小心了吧,如果不是很需要,还是不要使用为好

hayou

现在最新版的用不了
可以在插件管理激活
但是点击进去的时候出现这个问题：

错误原因:插件未启用，请在管理界面启用

事实上我已经启用了

myneeke

请问一下：
我single.html中加了：<meta name="description" content="<#article/intro#>" />
然后使用LZ的插件，这个地方的也会被替换掉，该怎么解决啊？
例如：关键字“个”
文章写：个中国第九十罚款搭街坊安放按时地方机啊个安静啊安放的撒方法饿饭个
结果：<meta name="description" content="<a href="http://www.ineeke.cn" Class="keylink" title="adff"  Target="adff" >个</a>中国第九十罚款搭街坊安放按时地方机啊<a href="http://www.ineeke.cn" Class="keylink" title="adff"  Target="adff" >个</a>安静啊安放的撒方法饿饭<a href="http://www.ineeke.cn" Class="keylink" title="adff"  Target="adff" >个</a>" />
怎么办啊？

hayou

不是有个位置可以替换吗？
就是那个post-body

gaboode

我启用了了列表插件和关键字插件，出现的问题是关键字根本不行替换！希望原作者有时间改进一下！支持你！

busfly

此插件问题很麻烦,不是很需要的,请停用