动感首页更新实现之八 ------ 首页模板篇

最新推荐文章于 2025-12-04 14:23:40 发布

原创最新推荐文章于 2025-12-04 14:23:40 发布 · 466 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#公告 #asp

本文介绍了一个用于ASP网站的首页显示程序，该程序能够从数据库中提取最新的五篇文章，并展示在网站首页上。涉及到的技术包括ADO连接数据库、SQL查询及页面输出。

导读：
　　'适用与本站所有的首页显示程序。
　　
　　
　　
　　 ASP动感在线 http://ASP.on.net.cn
　　 rel="stylesheet" type="text/CSS" href=../../"CSS/style.CSS">
　　
　　
　　

首页模板!最新5条信息！

<%
　　   dim conn
　　   dim connstr
　　   on error resume next
　　   connstr="DBQ="+server.mappath("/new/new.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
　　     set conn=server.createobject("ADODB.CONNECTION")
　　     conn.open connstr
　　dim sql
　　dim rs
　　sql="select top 5 * from learning order by articleid desc"
　　Set rs= conn.execute(sql)
　　  if rs.eof and rs.bof then
　　       response.write "

还没有任何文章

"
　　   else
　　%><%do while not rs.eof%>○ " target="_blank"><%=rs("title")%>
　　                    (<%=rs("dateandtime")%>)

　　                    <%=rs("content")%>

　　                    <%
　　      rs.movenext
　　   loop
　　rs.close
　　   end if
　　
　　   set rs=nothing
　　   conn.close
　　   set conn=nothing
　　   %>

以前公告>>

　　
　　

本文转自
http://study.qqcf.com/web/242/27588.htm