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

效果如图

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

如图

修改方法

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

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

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

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

picurl="/"%26amp;ChannelDir%26amp;"/"%26amp;UploadDir%26amp;"/"%26amp;rsPrev("DefaultPicUrl")
else
picurl=SiteUrl%26amp;"images/nopic.gif"
end if
strPrev = strPrev %26amp; "
strPrev = strPrev %26amp; " title='" %26amp; Replace(Replace(Replace(Replace(strList_Title, "{$Title}", rsPrev("Title")), "{$Author}", rsPrev("Author")), "{$UpdateTime}", rsPrev("UpdateTime")), "{$br}", vbCrLf) %26amp; "'>
strPrev = strPrev %26amp; " title='" %26amp; Replace(Replace(Replace(Replace(strList_Title, "{$Title}", rsPrev("Title")), "{$Author}", rsPrev("Author")), "{$UpdateTime}", rsPrev("UpdateTime")), "{$br}", vbCrLf) %26amp; "'>" %26amp; GetSubStr(rsPrev("Title"), TitleLen, ShowSuspensionPoints) %26amp; ""
End If
rsPrev.Close
Set rsPrev = Nothing
strPrev = strPrev %26amp; ""
GetPrevArticle = strPrev
End Function

'=================================================
'函数名：GetNextArticle
'作 用：显示下一篇文章
'参 数：TitleLen ----标题最多字符数，一个汉字=两个英文字符
'=================================================
Private Function GetNextArticle(TitleLen)
Dim rsNext, sqlNext, strNext,picurl
strNext = Replace(XmlText_Class("ShowArticle/NextArticle_Link", "下一{$ItemUnit}： "), "{$ItemUnit}", ChannelItemUnit %26amp; ChannelShortName)
sqlNext = "Select Top 1 ArticleID,DefaultPicUrl,Title,Author,UpdateTime,Hits,InfoPurview,InfoPoint from PE_Article Where ChannelID=" %26amp; ChannelID %26amp; " and Deleted=" %26amp; PE_False %26amp; " and Status=3 and ReceiveType=0 and ClassID=" %26amp; rsArticle("ClassID") %26amp; " and ArticleID>" %26amp; rsArticle("ArticleID") %26amp; " order by ArticleID ASC"
Set rsNext = Conn.Execute(sqlNext)

If TitleLen < 0 Or TitleLen > 255 Then TitleLen = 50
If rsNext.EOF Then
strNext = strNext %26amp; XmlText_Class("ShowArticle/NoNextArticle", "没有了")
Else
If Instr(rsNext("DefaultPicUrl"),".") then

picurl="/"%26amp;ChannelDir%26amp;"/"%26amp;UploadDir%26amp;"/"%26amp;rsNext("DefaultPicUrl")
else
picurl=SiteUrl%26amp;"images/nopic.gif"
end if
strNext = strNext %26amp; "
strNext = strNext %26amp; " title='" %26amp; Replace(Replace(Replace(Replace(strList_Title, "{$Title}", rsNext("Title")), "{$Author}", rsNext("Author")), "{$UpdateTime}", rsNext("UpdateTime")), "{$br}", vbCrLf) %26amp; "'>
strNext = strNext %26amp; " title='" %26amp; Replace(Replace(Replace(Replace(strList_Title, "{$Title}", rsNext("Title")), "{$Author}", rsNext("Author")), "{$UpdateTime}", rsNext("UpdateTime")), "{$br}", vbCrLf) %26amp; "'>" %26amp; GetSubStr(rsNext("Title"), TitleLen, ShowSuspensionPoints) %26amp; ""
End If
rsNext.Close
Set rsNext = Nothing
strNext = strNext %26amp; ""
GetNextArticle = strNext
End Function

2.稍微改一下模板的调用代码，比如改成下列代码

• 上一篇：SiteFactory版本如何设置允许上传文件的大小   下一篇：SQL Server 2005“备份集中的数据库备份与现有的数据库不同”解决方法