修改动易制作动易关键词标签：

一直使用动易做站，总感觉美中不足的是缺少一个跟dedecms相似的TAG标签，今天在网上找了找，居然找到高手们的修改方法，从而利用搜索页面达到跟dedecms相同的效果的关键词标签

修改方式：

在动易中寻找include 目录，然后将PowerEasy.Article.asp文件下载先来，修改PowerEasy.Article.asp文件，查找If InStr(strHtml, "{$CorrelativeArticle}") 在这行下方增加：

'zct----2010-08-23
 If InStr(strHtml, "{$zctkeyword}") > 0 Then strHtml = Replace(strHtml, "{$zctkeyword}", GetKeyword())

查找 '函数名：GetPrevArticle 在这行上方增加

'zct----2010-08-23================================
'函数名：zctkeyword
'作用：Article的HTML形式列出关键词(zctkeyword)
'参数：没有啊！
Private Function GetKeyword()
 Dim sqlKeyword,linkKeyword,rsKeyword,strKeyword,i
 sqlKeyword = "Select Keyword From PE_Article Where ArticleID="&rsArticle("ArticleID")
 Set rsKeyword = Conn.Execute(sqlKeyword)
 If rsKeyword("Keyword")<>"" Then
  strKeyword = Split(rsKeyword("Keyword"),"|")
  For i = 1 To UBound(strKeyword)-1
   linkKeyword=linkKeyword & "<a href=/Search.asp?ModuleName=Article&Field=Keywords&keyword="&strKeyword(i)&">"&strKeyword(i)&"</a> "
  Next
 End if
 GetKeyword=linkKeyword
End Function

完成修改

调用方式：

在内容页模板中相关位置输入：{$zctkeyword}即可