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

最新推荐文章于 2021-04-02 18:28:36 发布

u012261857

最新推荐文章于 2021-04-02 18:28:36 发布

阅读量828

点赞数

本文解析了一个ASP博客系统的两个功能模块：获取最新文章信息与随机文章信息。通过数据库查询与处理，实现了展示文章标题、发布时间等功能。文章深入探讨了使用ADO组件进行数据库操作的方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'*********************************************************
' 目的：
' 输入：文章标签
' 返回：HTML
'*********************************************************
Function GetLastInfo()
Dim objRS
Dim html
Dim strDbPath
strDbPath = Server.MapPath("/blog/" & ZC_DATABASE_PATH)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & 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 & "
<ul>
<li><a title="" target=""><span>["& Month(FormatDateTime(objRS("log_PostTime"),2)) & "/" & Day(FormatDateTime(objRS("log_PostTime"),2)) &"]</span>" & objRS("log_Title") & "</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/" & ZC_DATABASE_PATH)
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbPath
Set objRS=Server.CreateObject("ADODB.Recordset")
objRS.open "SELECT top 13 log_ID,log_Title（www.bao880.com）FROM [blog_Article] order by rnd(time()-log_ID)",objConn,1,1
do while not objRS.eof
html = html & "
<ul>
<li><a title="" target="">" & objRS("log_Title") & "</a></li>
</ul>
"
objRS.MoveNext
loop
objConn.Close
Set objConn=Nothing
GetRandInfo = html
END FUNCTION