asp如何与HTML代码配合，以显示执行ADO查询数据库材料的结果呢？
　　
　　 关于ASP跟SELECT、CHECKBOX、RADIO的详细结合，请参考：使用动态数据初始化下拉菜单、使用动态数据初始化单选框、使用动态数据初始化复选框，这里只做个简单的引见。
　　 ASP程序代码部份，首先使用ado连结到Access数据库ntopsamp.mdb，下SQL指令「Select * from 著作」查
　　
　　 询表「著作」的所有材料，将查询的结果传回到rs2的recordset当中：
　　
　　 <%
　　
　　 Set conn1 = Server.CreateObject("ADODB.Connection")
　　
　　 conn1.Open "DBQ="& Server.MapPath("ntopsamp.mdb") &";Driver={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;"
　　
　　 Set rs2 = Server.CreateObject("ADODB.Recordset")
　　
　　 SqlStr = "SELECT * From 著作"
　　
　　 rs2.Open SqlStr,conn1,1,1
　　
　　 %>
　　
　　 接着，将查询的结果由rs2的recordset与HTML码相结合，显示在浏览器中。
　　
　　 一、走马灯文字Marquee
　　
　　 用户端使用浏览器，浏览执行rs51.asp的结果，为由右向左挪动的走马灯文字。与走马灯文字<Marquee>的
　　
　　 HTML码相结合的ASP程式码如下：
　　
　　 <marquee><%= rs2("书名") %></marquee>
　　
　　 其中「rs2("书名")」将「著作」表「书名」字段的材料显示为走马灯文字。
　　
　　 二、文字输入Text
　　
　　 与文字输入的HTML码Text相结合的ASP程式码如下：
　　
　　 <input type=text size=20 value=<%= rs2("书名") %> >
　　
　　 其中由value为「rs2("书名")」将文字输入预设为字段「书名」的材料。
　　
　　 三、多行文字输入Textarea
　　
　　 与多行文字输入的HTML码< Textarea>相结合的ASP程式码如下：
　　
　　 <textarea><%= rs2("书名") %></textarea>
　　
　　 其中「rs2("书名")」将多行文字输入预设为字段「书名」的材料。
　　
　　 四、勾选Checkbox
　　
　　 与勾选的HTML码Checkbox相结合的ASP程式码如下：
　　
　　 <input type=checkbox <% if rs2("旧书") = True then %> Checked <% end if %>>旧书
　　
　　 其中由「if rs2("旧书") = True then」检查「著作」表中字段「旧书」材料的值，若为True则勾选（Checked）。
　　
　　 五、图片
　　
　　 与图片的HTML码<IMG…>相结合的ASP程式码如下：
　　
　　 <img src="../rds/<%= rs2("图片") %>">
　　
　　 其中「rs2("书名")」将字段「图片」的材料显示为图片，「../rds/」将图片文件路径设定为rds/下，「../」表示为上一层的路径。
　　
　　 六、超连结
　　
　　 与超连结的HTML码<A HREF…>相结合的ASP程式码如下：
　　
　　 <A href="../rds/<%= rs2("简介") %>"><%= rs2("简介") %></A>
　　
　　 其中「rs2("书名")」将字段「简介」的材料显示为超连结。
　　
　　 七、下拉式选单SELECT
　　
　　 与下拉式菜单的HTML码<SELECT>相结合的ASP程式码如下：
　　
　　 <SELECT NAME="sel1">
　　
　　 <% Do While not rs.EOF %>
　　
　　 <OPTION VALUE=<% = rs("书名") %>> <% = rs("书名") %>
　　
　　 <% rs.MoveNext %>
　　
　　 <% Loop %>
　　
　　 </SELECT>
　　
　　 其中「rs2("书名")」为字段「书名」的材料，由「Do While not rs.EOF…Loop」循环与「rs.MoveNext」
　　
　　 移到下一记录，「not rs.EOF」表示未挪动到尾，将「著作」表所有材料显示到下拉式选单当中。
　　
　　 八、单选RADIO
　　
　　 与单选的HTML码RADIO相结合的ASP程式码如下：
　　
　　 <% Do While not rs.EOF %>
　　
　　 <input name=ra1 type=radio Value="<% = rs("书名") %>"><% = rs("书名") %>

　　
　　 <% rs.MoveNext %>
　　
　　 <% Loop %>
　　
　　 其中「rs2("书名")」为字段「书名」的材料，由「Do While not rs.EOF…Loop」循环与「rs.MoveNext」
　　
　　 移到下一记录，「not rs.EOF」表示未挪动到尾，将「著作」表所有材料显示到单选选项当中。