简介：default.asp
'下面就是本站首页显示的样本程序：http://asp.on.net.cn/
'适用与本站所有的首页显示程序。
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; c...
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/
(待续)
