5247

动态关键字修改 屡次失败 。。。高手请进
论坛上 极为给出的 修改方法 实在看不懂 对于我来说 应该是 步骤不明确 或者说 表达的 有点专业化 请原谅我这个 菜鸟 哪位好心的 能给出 详细点的 修改方法  目前我的 错误 在于 按“威客365”http://www.weike365.cn/article.asp?id=663&pages=2 这个方法 修改后 是导致 所有日志 无法显示网页 按 “简简单单为PJBlog实现动态关键字" 按这位提供的方法 详见：http://bbs.pjhome.net/viewthread ... =%B9%D8%BC%FC%D7%D6 是连主页都无法 打开 也是 无法显示网页
已经失去信心了  请问下高手 到底有没有必要设置下动态关键字
另外 关键 怎样 体现的？？？
跟TAG有什么相关的联系 或者说 性质？？

拜托大家了 关键字 这个问题 困扰了我 4天了

beike

不是你的问题，他们写插件的总是不负责，不写清楚，只有动态页面才可以，静态页面暂时没有解决这个问题，如果要用，请在后台把你的博客改为动态的

5247

我是在动态模式下的 哎~~没办法

fdytxz

???

txj1984

1.我们应该感谢那些写插件写代码的同志们为我们共享各种代码和插件
2.楼主在更改代码之前务必要将原来的文件备份。
3.我也更改了关键字，但是没有生效。我联系了作者，但是作者不搭理。

350828001

把我给郁闷的加我350828001

szcrow

给你个方法，这是在全静态下的。我是自己改的，主要修改Template下的static.htm 和 class下的cls_logAction.asp ：

1、把 static.htm 中的

复制内容到剪贴板

代码:

<meta name="keywords" content="PuterJam,Blog,ASP,designing,with,web,standards,xhtml,css,graphic,design,layout,usability,accessibility,w3c,w3,w3cn" />

改为

复制内容到剪贴板

代码:

<meta name="keywords" content="<$actkey$>,<$log_Title$>,博客,推荐,<$siteName$>" />

2、在 cls_logAction.asp 中的

复制内容到剪贴板

代码:

SaveArticle = SaveToFile(Temp1, "article/" & LogID & ".htm")

前添加

复制内容到剪贴板

代码:

    Dim actkeys,re
    actkeys = ""
    If Len(log_View("log_tag"))>0 Then
        actkeys = getTags.filterHTML(log_View("log_tag"))
        actkeys = Replace(mykeys,"</a> <a","</a>,<a")
        Set re=new RegExp
        re.IgnoreCase =True
        re.Global=True
        '过滤掉HTML标签
        re.Pattern = "<.*?rel.*?>(.*?)<\/.*?>"
        actkeys = re.Replace(actkeys,"$1")
        re.Pattern = "<.*?>(.*?)<\/.*?>"
        actkeys = re.Replace(actkeys,"$1")
        Set re = Nothing
        actkeys = left(actkeys,len(actkeys)-1)&",天使家园日志"
    Else
        actkeys = "天使家园日志"
    End If
    Temp1 = Replace(Temp1, "<$actkey$>", actkeys)

3、重新在初始化里，更新所有日志到文件，并且包含日志列表缓存 就可以了。
4、注明一下，上面的关于“过滤掉HTML标签”的代码是在本坛的某帖子中学到的，忘了是哪个帖子了。
PS、效果可以看我的blog：http://www.drem-angel.cn
PS2、图




[ 本帖最后由 szcrow 于 2008-8-17 09 编辑 ]