新云2.1搜索页和评论页title标签中显示不带URL标题名称的方法
-
打开inc/SoftChannel.asp
找到
'================================================
'过程名：ShowSoftComment
'作 用：显示软件评论
'================================================
在Dim 后面增加softnamenourl
往下找
找到
End If
ForbidEssay = Rs("ForbidEssay")
在上面填加一行代码，如下：
softnamenourl = "" & Rs("SoftName") & ""
继续往下找，找到
HtmlContent = Replace(HtmlContent, "{$SoftName}", softname)
在下面增加一行
HtmlContent = Replace(HtmlContent, "{$softnamenourl}", softnamenourl)
OK，接下来你就可以在模板管理里，将评论页里<title></title>之间加入{$softnamenourl}了。此时{$softnamenourl}就会显示不带URL地址的SoftName名称。
--------------------------------------------------------------------------------
文章的搜索页是在NewsChannel.asp找
'================================================
'过程名：ShowArticleComment
'作 用：文章评论
'================================================
在Dim 后面增加articlenamenourl
然后模仿软件的修改方法。
找到
End If
ForbidEssay = Rs("ForbidEssay")
在上面填加一行代码，如下：
articlenamenourl = "" & Rs("title") & ""
继续往下找，找到
HtmlContent = Replace(HtmlContent, "{$ArticleTitle}", ArticleTitle)
在下面增加一行
HtmlContent = Replace(HtmlContent, "{$articlenamenourl}", articlenamenourl)
--------------------------------------------------------------------------------
同理，FlashChannel.asp 动画频道类同样可以修改。
