ADO存取數據庫如何與HTML結合

asp如何與HTML代碼配合，以顯示執行ADO查詢數據庫資料的結果呢？

關于ASP跟SELECT、CHECKBOX、RADIO的詳細結合，請參考：使用動態數據初始化下拉菜單、使用動態數據初始化單選框、使用動態數據初始化復選框，這里只做個簡單的介紹。
ASP程序代碼部份，首先使用ado連結到Aclearcase/" target="_blank" >ccess數據庫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」表示未移動到尾，將「著作」表所有資料顯示到單選選項當中。

轉載請保留出處http://asp123.on.net.cn

原文轉自：http://www.kjueaiud.com