asp入門執行個體-讀取資料庫程式

來源:互聯網
上載者:User

<!--#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>

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.