Tạo tập tin listallbook.asp dùng để liệt kê các cuốn sách có trong CSDL
Các thao tác cơ bản
• Câu lệnh SQL dùng để thực thi là: SELECT * FROM T_BOOK
• Kết quả trả về của câu lệnh SELECT sẽ là tập các mẩu tin chứa trong biến Recordset. Ta sẽ dùng một vòng lặp để liệt kê các mẩu tin này theo dạng bảng
Đoạn mã của tập tin listallbook.asp như sau:
<%@CODEPAGE=65001%> <%Response.Charset = "utf-8"%> <!--#include file="dbconn.asp"--> <%
sPicPath = "BookPic/"
strSQL = "SELECT * FROM T_BOOK" Set rs = Conn.Execute(strSQL) %>
<table width="600" border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111"> <tr align="center"> <td>TT</td> <td>Tên sách</td> <td>Tên tác giả</td> <td>Năm XB</td> <td>Giá tiền</td> <td>Ảnh bìa</td> </tr> <% i=1
do while not rs.EOF %> <tr> <td><%Response.Write i%></td> <td><%Response.Write rs("BOOK_TITLE")%></td> <td><%Response.Write rs("BOOK_AUTHOR")%></td> <td><%Response.Write rs("BOOK_YEAR")%></td> <td><%Response.Write rs("BOOK_PRICE")%></td> <td><img src='<%Response.Write sPicPath & rs("BOOK_PIC")%>'></td> </tr> <% rs.movenext i=i+1 loop %> <% rs.Close Set rs = NOTHING Conn.Close
Set Conn = NOTHING %>
• Do trong mã chương trình trên có tiếng Việt Unicode nên tập tin cần được lưu dưới dạng Unicode (UTF-8)
• Hai dòng đầu tiên đảm bảo cho việc hiển thị tiếng Việt Unicode (xem thêm bài tham khảo Lập trình web ASP với tiếng Việt Unicode)
• Do các tập tin ảnh bìa tương ứng với các cuốn sách được lưu trong thư mục BookPic (lưu trong biến sPicPath) nên đường dẫn đến các tập tin này phải là : sPicPath & rs("BOOK_PIC")
• Mở rộng đoạn mã trên sao cho trong bảng kết quả trả về, có thêm thông tin của nhà xuất bản, chủđề mà cuốn sách thuộc về (xem bài giải ở tập tin listallbookext.asp)