Tài liệu hướng dẫn giảng dạy

Học phần 3 - Lập trình ứng dụng web với ASP.NET Trang 117/174

Bài 6
XÂY DỰNG VÀ QUẢN LÝ ỨNG DỤNG
Tóm tắt
Lý thuyết 9 tiết - Thực hành 15 tiết
Mục tiêu Các mục chính Bài tập
Sử dụng các đối tượng quản lý ứng
dụng để thực hiện các chức năng điều
khiển luồng chương trình, quản lý
người dùng hay chia sẻ dữ liệu giữa
các trang web.
Tìm hiểu các tập tin quản lý và cấu
hình ứng dụng.
Tổ chức và xây dựng ứng dụng.

1. Đối tượng Response
2. Đối tượng Request
3. Đối tượng Application
4. Đối tượng Session
5. Đối tượng Server
6. Đối tượng Cookies
7. Tập tin quản lý và cấu hình ứng
dụng
8. Tổ chức & xây dựng ứng dụng
6.1, 6.2, 6.3, 6.4
Bài làm thêm:
6.5, 6.6


Trong ASP.Net, chúng ta có thể thực hiện như sau:
lblChao.Text = "Chào bạn. Bạn đang tìm hiểu về đối tượng Response."
Qua ví dụ trên, chắc có lẽ bạn cũng nhận ra rằng, khi sử dụng phương thức Response.Write, chúng
ta không thể qui định vị trí hiển thị của chuỗi trên trong trang Web. Thay vào đó, với ASP.Net,
thông qua các Server control, chúng ta có thể thực hiện chức năng tương tự nhưng linh hoạt hơn
bằng cách đặt điều khiển tại vị trí cần hiển thị.
I.1.2. Phương thức Redirect
Phương thức Redirect gởi thông điệp yêu cầu Web Browser truy cập đến một địa chỉ khác.
Ví dụ

'Nếu đăng nhập thành công
If <Kiểm tra đăng nhập> Then
Response.Redirect("Chao.aspx")
Else
Response.Redirect("Dang_nhap.aspx")
End If
I.1.3. Ví dụ xử lý cho phép người dùng download file
Ví dụ
: Xử dụng đối tượng Response để thực hiện việc download tập tin.

Thiết kế

Thi hành
Viết lệnh xử lý:
Private Sub lnkDownload_Click(sender …, e …) _
Handles lnkDownload.Click
Dim sTap_tin As String = "MinhHoa.zip"
Dim sDuong_dan As String
sDuong_dan = Server.MapPath("../Download/") & sTap_tin
Response.AddHeader("Content-Disposition", _

Ví dụ: Giả sử một người dùng gởi thông điệp đến Web Server yêu cầu trang:
"Request.aspx?Chuc_nang=Hieu_chinh&ID=123". Để lấy giá trị 2 tham số trong chuỗi
QueryString, chúng ta thực hiện như sau:
Dim sChuc_nang As String
sChuc_nang = Request.QueryString("Chuc_nang")
Tài liệu hướng dẫn giảng dạy

Học phần 3 - Lập trình ứng dụng web với ASP.NET Trang 121/174
lblChuc_nang.Text = sChuc_nang
Dim Id As Integer
Id = Request.QueryString("ID")
lblId.Text = Id
Trong trường hợp tên tham số không tồn tại trong chuỗi QueryString, thuộc tính
Request.QueryString() sẽ trả về giá trị nothing.
Nếu bạn để ý trong đoạn lệnh xử lý trên, chúng ta có thực hiện khai báo các biến với kiểu dữ
liệu tương ứng các tham số, nhận kết quả trả về từ thuộc tính Request.QueryString(). Trong
trường hợp tham số không được truyền trong chuỗi URL hoặc có truyền mà sai kiểu dữ liệu,
các biến được tạo sẽ có giá trị mặc định tương ứng với kiểu dữ liệu của nó, tránh được các lỗi về
kiểu dữ liệu không đáng có.


I.2.2. Các ví dụ minh họa
Ví dụ: Lấy thông tin các trình duyệt của người dùng.

Dim sThong_tin As String
With Request.Browser
sThong_tin &= "Browser: " & .Browser & "<br>"
sThong_tin &= "Version: " & .Version & "<br>"
sThong_tin &= "Platform: " & .Platform & "<br>"
sThong_tin &= "JavaScript: " & .JavaScript & "<br>"

Session
Session
Tài liệu hướng dẫn giảng dạy

Học phần 3 - Lập trình ứng dụng web với ASP.NET Trang 123/174
II.1. Đối tượng Application
Đối tượng Application được sử dụng để quản lý tất cả các thông tin của một ứng dụng web. Thông
tin được lưu trữ trong đối tượng Application có thể được xử lý trong bất kỳ trang aspx nào trong
suốt chu kỳ sống của ứng dụng.
II.1.1. Sử dụng biến Application
Tạo biến Application
Application("Tên biến") = <giá trị>
Lấy giá trị từ biến Application
<biến> = Application("Tên biến")
Ví dụ:
Application.Lock()
Application("So_lan_truy_cap") = 0
Application("So_nguoi_online") = 0
Application.UnLock()
Chú ý:
Do tại một thời điểm có thể có nhiều người cùng lúc truy cập và thay đổi giá trị của các thông tin
được lưu trong đối tượng Application, chúng ta nên sử dụng bộ lệnh Lock và UnLock ngay trước và
sau khi cập nhật giá trị của biến Application.
Biến Application có thể được sử dụng ở bất kỳ trang nào và được duy trì trong suốt chu kỳ sống của
ứng dụng.
II.1.2. Duyệt qua tập hợp biến chứa trong Application
Dim i As Integer
Response.Write("<b><u>Danh sách các biến trong đối _
tượng Application</u></b><br>")
For i = 0 To Application.Count() - 1