asp

位置:IT落伍者 >> asp >> 浏览文章

asp入门实例-读取数据库程序


发布日期:2022年04月27日
 
asp入门实例-读取数据库程序

<!#include file="connasp">
<!DOCTYPE html PUBLIC "//WC//DTD XHTML Transitional//EN" "
<html xmlns="
<head>
<meta httpequiv="ContentType" content="text/html; charset=gb" />
<title></title>
<meta name="keywords" content="" />
<meta name="description" content="" />
<link href="" rel="stylesheet" type="text/css" />
<style type="text/css">
<!
#web {marginleft:auto; marginright:auto; width:px; height:auto; textalign:left; margin: auto}
A {float:left; width:%; height:auto; border:px solid #CCC; background:#FFF;}
A ul {float:left; liststyletype:none;}
A li {margintop:px; marginbottom:px;}
B {float:left; width:%; height:px;}
>
</style>
</head>
<body>
<div id="web">
<div class="A">
<ul>
<%
i=
set rs=servercreateobject("adodbrecordset")
sql ="select * from 表 order by 日期 Desc"
rsopen sqlconn
if rseof then
%>
没有文章
<%
else
do while not rseof
%>
<li><a href="<%=rs("路径")%>" target="_blank"><%=rs("标题")%></a></li>
<%
i=i+
if i>= then exit do 显示条数
rsmovenext
loop
end if
rsclose
%>
</ul>
</div>
<!广告>
<div class="B"><br/>广告位置</div>
<div class="A">
<ul>
<%
i=
set rs=servercreateobject("adodbrecordset")
sql ="select * from 表 where 自动排列字段 not in (select top 自动排列字段 from 表 order by 日期 Desc) order by 日期 Desc"
rsopen sqlconn
if rseof then
%>
没有文章
<%
else
do while not rseof
%>
<li><a href="<%=rs("路径")%>" target="_blank"><%=rs("标题")%></a></li>
<%
i=i+
if i>= then exit do 显示条数
rsmovenext
loop
end if
rsclose
%>
</ul>
</div>
</div>
</body>
</html>

上一篇:ASP常用函数:WriteLn() PrintLn()

下一篇:asp之FSO大全