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

关注+2004-10-07作者：蓝点

　　　　　　　　　　　　

　　　　　　　　　　　　default.asp
'下面就是本站首页显示的样本程序：http://asp.on.net.cn/
'适用与本站所有的首页显示程序。

ASP动感在线 http://ASP.on.net.cn

首页模板!最新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://asp.on.net.cn/