给内容页的上一篇文章还有下一篇文章加上图片连接 - 动易cms - 爱建站

,,,,CMS教程,模板无忧,建站教程,CMS教程,动易Cms教程,

SEO SEO

首页  >   动易cms > 给内容页的上一篇文章还有下一篇文章加上图片连接  >  正文

 

效果如图 假如文章不存在图片


效果如图

假如文章不存在图片。则显示默认的图片

如图

修改方法

1.找到include文件夹PowerEasy.Article.asp文件1467行开始的代码

将下列函数改成以下代码。

"=================================================
"函数名:GetPrevArticle
"作 用:显示上一篇文章
"参 数:TitleLen ----标题最多字符数,一个汉字=两个英文字符
"=================================================
Private Function GetPrevArticle(TitleLen)
Dim rsPrev, sqlPrev, strPrev,picurl
strPrev = Replace(XmlText_Class("ShowArticle/PrevArticle_Link", "<li>上一{$ItemUnit}: "), "{$ItemUnit}", ChannelItemUnit & ChannelShortName)
sqlPrev = "Select Top 1 ArticleID,DefaultPicUrl,Title,Author,UpdateTime,Hits,InfoPurview,InfoPoint from PE_Article Where ChannelID=" & ChannelID & " and Deleted=" & PE_False & " and Status=3 and ReceiveType=0 and ClassID=" & rsArticle("ClassID") & " and ArticleID<" & rsArticle("ArticleID") & " order by ArticleID DESC"
Set rsPrev = Conn.Execute(sqlPrev)

If TitleLen < 0 Or TitleLen > 255 Then TitleLen = 50
If rsPrev.EOF Then
strPrev = strPrev & XmlText_Class("ShowArticle/NoPrevArticle", "没有了")
Else
If Instr(rsPrev("DefaultPicUrl"),".") then

picurl="/"&ChannelDir&"/"&UploadDir&"/"&rsPrev("DefaultPicUrl")
else
picurl=SiteUrl&"images/nopic.gif"
end if
strPrev = strPrev & "<br><a class="LinkPrevArticle" href="" & GetArticleUrl(ParentDir, ClassDir, rsPrev("UpdateTime"), rsPrev("ArticleID"), ClassPurview, rsPrev("InfoPurview"), rsPrev("InfoPoint")) & """
strPrev = strPrev & " title="" & Replace(Replace(Replace(Replace(strList_Title, "{$Title}", rsPrev("Title")), "{$Author}", rsPrev("Author")), "{$UpdateTime}", rsPrev("UpdateTime")), "{$br}", vbCrLf) & ""><img src=""&picurl&" "border=0></a><br><a class="LinkPrevArticle" href="" & GetArticleUrl(ParentDir, ClassDir, rsPrev("UpdateTime"), rsPrev("ArticleID"), ClassPurview, rsPrev("InfoPurview"), rsPrev("InfoPoint")) & """
strPrev = strPrev & " title="" & Replace(Replace(Replace(Replace(strList_Title, "{$Title}", rsPrev("Title")), "{$Author}", rsPrev("Author")), "{$UpdateTime}", rsPrev("UpdateTime")), "{$br}", vbCrLf) & "">" & GetSubStr(rsPrev("Title"), TitleLen, ShowSuspensionPoints) & "</a>"
End If
rsPrev.Close
Set rsPrev = Nothing
strPrev = strPrev & "</li>"
GetPrevArticle = strPrev
End Function

"=================================================
"函数名:GetNextArticle

查看更多 动易Cms教程  动易Cms模板

共2页上一页12下一页

给内容页的上一篇文章还有下一篇文章加上图片连接
http://www.yuedudg.cn/article/1995491.html

 

友情链接
discuz经验网 zblog之家 织梦之家
phpcms之家 ecshop经验网 cms综合网
wp之家 帝国cms常识


Tags: CMS教程 模板无忧 建站教程 CMS教程 动易Cms教程


手机浏览本文
给内容页的上一篇文章还有下一篇文章加上图片连接

给内容页的上一篇文章还有下一篇文章加上图片连接

站内推荐

网站分类

标签列表

关于我们
文章内容来源互联网仅供参考,如果还有疑问请联系我们!我们将竭力帮您解决您的问题
联系我们:

QQ: 397423577 

email:397423577@qq.com

微信:ganenboy