07/03/14
1
Một số ví dụ thực hành về ASP
Ví dụ 1: Đọc dữ liệu đã Submit
Ví dụ 2: Xử lý dữ liệu đã Submit
Ví dụ 3: Hiển thị dữ liệu trong DB
Ví dụ 4: Thao tác dữ liệu trong DB
07/03/14
2
Ví dụ 1: Đọc dữ liệu đã được submit
Yêu cầu:
–
Tạo một trang html có tên là DataEntry.html
–
Trang này có 2 textbox lần lượt có tên là Hoten và
NamSinh để cho người dùng nhập vào họ tên và Năm
sinh.
–
Trong trang có một nút dạng Submit. Khi người dùng
nhấn nút này thì Thông tin sẽ được gửi đến trang
Display.asp để xử lý.
–
Trang Display.asp sẽ hiển thị họ tên và năm sinh
07/03/14
3
Nội dung của file DataEntry.htm
</html>
07/03/14
5
Ví dụ 2: Xử lý dữ liệu đã submit
Yêu cầu:
–
Như ví dụ trước nhưng không hiển thị năm sinh mà tính
toán sau đó hiển thị Tuổi của người đó.
–
2 file tương ứng có tên là DataEntry2.htm và
Display2.asp
07/03/14
6
Nội dung của file DataEntry2.htm
<html>
<body style="FONT-FAMILY:arial">
<h1 style="FILTER:shadow(color=red);”>
Moi ban nhap Ho ten va Nam sinh
</h1>
<form action="Display2.asp" method="post">
<input type="text" name="HoTen" value="Bill Gate">
<input type="text" name="NamSinh" value="1950">
<input type="submit" value="Gui di" name="Submit1">
</form>
</body>
</html>
07/03/14
7
Nội dung của file Display2.asp
<body>
<h1 align=center>Danh sach cac ho thue bao dien thoai</h1> <br>
<%
Dim Cn
Dim Rs
Dim strConnection
Set Cn = Server.CreateObject("ADODB.Connection") ‘// Tạo đối tượng connection
strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=Data/Users.mdb"
Cn.Open strConnection ‘// Mở một kết nối đến CSDL Users.mdb
Set Rs = Cn.Execute("Select * from tblUsers") ‘// Lấy về toàn bộ bản ghi trong bảng
07/03/14
10
Tiếp
Response.Write("<TABLE border=1>")
do while not RS.EOF
Response.Write("<TR>")
Response.Write("<TD>" & Rs!HoVaTen & "</TD>")
Response.Write("<TD>" & Rs!SoThuebao & "</TD>")
Response.Write("<TD>" & Rs!Tinh_Thanh & "</TD>")
Response.Write("</TR>")
Rs.MoveNext
Loop
Response.Write("</TABLE>")
%>
</body>
</html>
07/03/14
11
Bài tập thực hành
Bài tập 1:
Copyright: Tài liệu đại học ©