Tham khảo tài liệu 'asp databases part 10', công nghệ thông tin, cơ sở dữ liệu phục vụ nhu cầu học tập, nghiên cứu và làm việc hiệu quả | Phần thực hành 711 TITLE Sailors Web Site TITLE HEAD BODY --Display the page data DIV ALlGN center BIGXBIGXFONT COLOR navy Saiiors Case Study FONTX BIGX BIG DXV BRXBR Mã còn lại trong trang web đưa vào tập tin dùng chung chứa các tùy chọn và chứa các thẻ HTML chuẩn để kết thúc trang. include file BODY HTML TRANG HIỂN THỊ THUYEN Trang kê tiếp chúng ta sẽ xem xét lầ trang hiển thị tất cả thuyền trong bảng Boats. Trang này sẽ hiển thị 2 cột Boat Name và Boat Class trong bảng này. Phẩn cuối trang cung cấp một siêu liên kết trở lại trang . THỬ NGHIỆM - Trang này mở recordset chứa tất cả các thuyển được liệt kê trong bảng Boats chúng được sắp xếp theo loại thuyền và tên thuyền. Chúng ta sẽ sử dụng bảng để hiển thị dữ liệu. Trang được trình bày như hình sau. A intranet 712 Phẩn thực hành Mã của stored procedure qAllBoats như sau SELECT Boats. Boatciass Boats. Boat-Name FROM Boats ORDER BY Boats . Boatciass Boats . BoatName Tập tin Display Boats asp như sau include file include file AuthenticationCheck inc -- include file HTML HEAD O TA NAME GENERATOR Con tent Micro so ft Visual studio T TLE Sailors Web Site TITLE HEAD BODY Display the page data DTV ALIGN-CBNTER BIGXBIGXFONT COLOR navy Sailors Case Study FONTX BIGX BIG DIV BRXBR include file Check for database errors Cal1 CheckForErrors objConn Create the Recordset object set thè SQL string and open the recordset Set objRS strSQL qAllBoats strSQL objConn adOpenForwardOnly adCmdStoredProc Check for database errors Call CheckForErrors objConn --Build the table header rows TABLE border l cellspacing l TR TD COLSPAN 2 ALIGN CENTER Registared Boats by Class TD TR TR TH BGCOLOR navyXFONT COLOR white Boat Name FONTX TH TH BGCOLOR navyXFONT COLOR white Boat Class FONTX TH TR Phần thực hành 713 Set a variable to hold the last boatclass Dim strLastClaas strLastClass objRS Boatciass Loop .
