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

  次阅读 来源:互联网(转载协议) 2016-03-01 11:05 我要评论(0)

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

本站部分文章来源于网络以及网友投稿,本站只负责对文章进行整理、排版、编辑,是出于传递更多信息之目的,并不意味着赞同其观点或证实其内容的真实性。如果您有什么意见或建议,请联系QQ28-1688-302!

人工智能实验室
相关文章相关文章
  • 让AI触手可及  Qualcomm携手创通联达推出全新终端侧AI开发套件

    让AI触手可及 Qualcomm携手创通联达推出全新终端侧AI开发套件

  • 第一批国家重点研发计划公布,旷视科技开启“五年行动”

    第一批国家重点研发计划公布,旷视科技开启“五年行动”

  • 品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

    品友互动为Digital Travel APAC2018 唯一受邀中国AI企业

  • 长虹新款智能语音空调,告诉你空调也能玩Siri

    长虹新款智能语音空调,告诉你空调也能玩Siri

网友点评网友点评
阅读推荐阅读推荐

据外媒报道,STEER打造了首款完全自动驾驶停车技术,旨在使常规车辆转变为无人驾驶车辆。STEER的首款技术应用是4级自动驾驶及网络安全停车...

近日,美国软性机器抓手制造商 Soft Robotics 宣布,获得 2000 万美元的融资,本轮投资者包括 Scale Venture Partners,Calibrate Ventures...

据外媒报道,加州车管局发布了《2017自动驾驶脱离报告(California Autonomous Vehicle Disengagement Reports)》,其中谈及了脱离的具体...

用人机语音交互,来解决智能家居适老的问题;通过家庭门禁与安防套件、空气净化套件、可燃气体与有害气体监控套件等相互联动,在不同生活情...