萬盛學電腦網

 萬盛學電腦網 >> 網絡編程 >> asp編程 >> asp入門實例-讀取數據庫程序

asp入門實例-讀取數據庫程序

<!--#include file="conn.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title></title>
<meta name="keywords" content="" />
<meta name="description" content="" />
<link href="" rel="stylesheet" type="text/css" />
<style type="text/css">
<!--
#web {margin-left:auto; margin-right:auto; width:600px; height:auto; text-align:left; margin:0 auto}
.A {float:left; width:100%; height:auto; border:1px solid #CCC; background:#F8F8F8;}
.A ul {float:left; list-style-type:none;}
.A li {margin-top:8px; margin-bottom:8px;}
.B {float:left; width:100%; height:100px;}
-->
</style>
</head>
<body>
<div id="web">
<div class="A">
<ul>
<%
i=0
set rs=server.createobject("adodb.recordset") 
sql ="select * from 表 order by 日期 Desc"
rs.open sql,conn,1,1
if rs.eof then
%>
沒有文章
<%
else
do while not rs.eof
%>
<li><a href="<%=rs("路徑")%>" target="_blank"><%=rs("標題")%></a></li>
<%
i=i+1
if i>=8 then exit do     '顯示條數
rs.movenext
loop
end if
rs.close
%>
</ul>
</div>
<!--廣告-->
<div class="B"><br/>廣告位置</div>
<div class="A">
<ul>
<%
i=0
set rs=server.createobject("adodb.recordset") 
sql ="select * from 表 where 自動排列字段 not in (select top 10 自動排列字段 from 表 order by 日期 Desc) order by 日期 Desc"
rs.open sql,conn,1,1
if rs.eof then
%>
沒有文章
<%
else
do while not rs.eof
%>
<li><a href="<%=rs("路徑")%>" target="_blank"><%=rs("標題")%></a></li>
<%
i=i+1
if i>=8 then exit do     '顯示條數
rs.movenext
loop
end if
rs.close
%>
</ul>
</div>
</div>
</body>
</html>

copyright © 萬盛學電腦網 all rights reserved