效果如圖

假如文章不存在圖片。則顯示默認的圖片

如圖

修改方法

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