'作 用：顯示下一篇文章
'參 數(shù)：TitleLen ----標(biāo)題最多字符數(shù)，一個漢字=兩個英文字符
'=================================================
Private Function GetNextArticle(TitleLen)
Dim rsNext, sqlNext, strNext,picurl
strNext = Replace(XmlText_Class("ShowArticle/NextArticle_Link", "<li>下一{$ItemUnit}： "), "{$ItemUnit}", ChannelItemUnit & ChannelShortName)
sqlNext = "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 ASC"
Set rsNext = Conn.Execute(sqlNext)

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

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

2.稍微改一下模板的調(diào)用代碼，比如改成下列代碼

<table>
<tr>
<td width＝300>{$PrevArticle}</td>
<td width＝300>{$NextArticle}</td>
</tr>
</table>

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