明辉站/网站教程/内容

ADO存取数据库如何与HTML结合

网站教程2024-02-09 阅读
[摘要]asp如何与HTML代码配合,以显示执行ADO查询数据库资料的结果呢? 关于ASP跟SELECT、CHECKBOX、RADIO的详细结合,请参考:使用动态数据初始化下拉菜单、使用动态数据初始化单选框、使用动态数据初始化复选框,这里只做个简单的介绍。 ASP程序代码部份,首先使用ado连结到Acce...

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("书名") %> <br>

<% rs.MoveNext %>

<% Loop %>

其中「rs2("书名")」为字段「书名」的资料,由「Do While not rs.EOF…Loop」循环与「rs.MoveNext」

移到下一记录,「not rs.EOF」表示未移动到尾,将「著作」表所有资料显示到单选选项当中。

(出处:热点网络)

……

相关阅读