外部调用zblog最新文章和随机文章

外部调用ZBLOG文章的方法2011-5-15更新代码是网上搜的,经测试可用。

原理是直接从数据库读取数据。不多说 直接上代码


<!-- #include file="../c_option.asp" -->
<!-- #include file="c_system_base.asp" -->
'*********************************************************
' 目的:
' 输入:文章标签
' 返回:HTML
'*********************************************************

Function GetLastInfo()
Dim objRS
Dim html
Dim strDbPath

strDbPath = Server.MapPath("/blog/" &amp; ZC_DATABASE_PATH)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; strDbPath

Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.open "SELECT top 13 log_ID,log_Title,log_PostTime FROM [blog_Article] order by log_ID DESC",objConn,1,1

do while not objRS.eof
html = html &amp; "
<ul>
	<li><a title="" target=""><span>["&amp; Month(FormatDateTime(objRS("log_PostTime"),2)) &amp; "/" &amp; Day(FormatDateTime(objRS("log_PostTime"),2)) &amp;"]</span>" &amp; objRS("log_Title") &amp; "</a></li>
</ul>
"

objRS.MoveNext
loop

objConn.Close
Set objConn=Nothing

GetLastInfo = html

End Function

FUNCTION GetRandInfo()
Dim objRS
Dim html
Dim strDbPath

strDbPath = Server.MapPath("/blog/" &amp; ZC_DATABASE_PATH)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; strDbPath

Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.open "SELECT top 13 log_ID,log_Title FROM [blog_Article] order by rnd(time()-log_ID)",objConn,1,1

do while not objRS.eof
html = html &amp; "
<ul>
	<li><a title="" target="">" &amp; objRS("log_Title") &amp; "</a></li>
</ul>
"

objRS.MoveNext
loop

objConn.Close
Set objConn=Nothing

GetRandInfo = html
END FUNCTION
'*********************************************************
%&gt;

将以上代码保存为文件c_html_article.asp。

使用方法:

1、把文件c_html_article.asp放在zblog所在路径下面的FUNCTION文件夹中
2、调用博客文章页面(必须是asp的)头部插入如下代码:
[asp][/asp]
3、在需要展示文章的位置插入调用代码:

调用最新文章:

<div class="article-list"></div>

调用随机文章:

<div class="article-list"></div>

注意:请在c_html_article.asp 文件中修改博客所在目录和调用文章数量.

源码下载:外部调用ZBLOG文章的方法2011-5-15更新

发表评论

电子邮件地址不会被公开。 必填项已用*标注