Đang chuẩn bị liên kết để tải về tài liệu:
Giáo Trình Lập Trình Ứng Dụng CSDL Web ASP- P26

Giáo Trình Lập Trình Ứng Dụng CSDL Web ASP- P26:Đây là những ngôn ngữ rất đơn giản và dễ sử dụng. Lưu ý rằng các script là những ngôn ngữ giới hạn, dùng để viết các chương trình đơn giản. Để thực hiện những công việc phức tạp như kết nối CSDL, lập trình đồ hoạ, giao tiếp với thiết bị phần cứng,. thì ta phải sử dụng các component (thành phần) đã được tạo trước bằng các ngôn ngữ lập trình mạnh mẽ hơn như C++, VB,. Các script của ASP chỉ có lệnh gọi đến các component này. | GIÁO TRÌNH LẬP TRÌNH ÚNG DỤNG CSDL WEB ASP II. Xây dựng ứng dụng GuestBook Thông thường các trang Web đều có sử dụng GuestBook với guest book khi user duyệt có thể ghi lại các ý kiến cũng như các cảm nhận của mình . Trong ví dụ này ta có sử dụng component là Scripting.FileSystemObject đối tượng này cho phép ta có rất nhiều thao tác hữu ích đối với file thư mục. Để chạy ví dụ này hãy nhập đoạn code sau và bạn tạo sẵn 1 tệp có tên guestbook.txt trong cùng thư mục với tệp ASP này Const bDeleteEntries True Dim bForce bForce Request.QueryString force Dim strFile strFile Server.MapPath guestbook.txt If Request.Form.Count 0 Then H3 Sign Our Guestbook H3 FORM ACTION guestbook.asp METHOD post TABLE TR TD ALIGN right B Name B TD TD INPUT TYPE text NAME name SIZE 15 INPUT TD TR TR TD ALIGN right B Comment B TD TD INPUT TYPE text NAME comment SIZE 35 INPUT TD TR TABLE INPUT TYPE submit VALUE Sign Guestbook INPUT FORM BR H3 Today s Comments H3 -- INCLUDE FILE guestbook.txt -- St by hoangly85 126 hoangly85@updatesofts.com GIÁO TRÌNH LẬP TRÌNH ÚNG DỤNG CSDL WEB ASP Else Dim objFSO Dim objFile Set objFSO Server.CreateObject Scripting.FileSystemObject Set objFile objFSO.OpenTextFile strFile 8 True objFile.Write B objFile.Write S erver.HTMLEncode Reque st.F orm name objFile.Write B objFile.Write S erver.HTMLEncode Reque st.F orm comment objFile.Write BR objFile.WriteLine objFile.Close Set objFile Nothing Set objFSO Nothing H3 Your comments have been written to the file H3 A HREF . guestbook.asp Back to the guestbook A End If If bDeleteEntries Then Set objFSO Server.CreateObject Scripting.FileSystemObject Set objFile objFSO.GetFile strFile If DateDiff d objFile.DateLastModified Date 0 Or bForce Then Set objFile Nothing Set objFile objFSO.CreateTextFile strFile True objFile.Write B Hello B objFile.WriteLine I hope you like this guestbook BR objFile.Close End If Set objFile Nothing Set objFSO Nothing St by hoangly85 127 hoangly85@updatesofts.com GIÁO TRÌNH LẬP TRÌNH ÚNG DỤNG CSDL WEB .