Thực hành 2: Một số ví dụ thực hành về ASP doc
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (108.9 KB, 11 trang )
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>
<body style="FONT-FAMILY:arial">
<h1 style="FILTER:shadow(color=red);”>
Moi ban nhap Ho ten va Nam sinh
</h1>
<form action="Display.asp" method="post">
<input type="text" name="HoTen" value="Bill Gate">
<input type="text" name="NamSinh" value="1950">
<input type="submit" value="Gui di" id="Submit1" >
</form>
</body>
</html>
07/03/14
4
Nội dung của file Display.asp
<%@language=VBScript%>
<html>
<body style="font-family:arial" >
<h1 align=center style="filter:shadow();color:red;width:100%" >
Du lieu nhan ve do nguoi dung gui den.
</h1>
<%
Dim HT
Dim NS
HT = Request.Form("HoTen") ‘//Lấy họ tên vừa do người dùng Submit
NS = Request.Form("NamSinh") ‘//Lấy năm sinh
Response.Write("Xin chao ban : " &HT ) ‘//Hiển thị Họ tên lấy được
Response.Write("<BR>Ban da nhap nam sinh la : " & NS) ‘//Hiển thị năm sinh
%>
</body>
</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
<%@language=VBScript%>
<html>
<body style="font-family:arial" >
<h1 align=center style="filter:shadow();color:red;width:100%" >
Du lieu nhan ve do nguoi dung gui den.
</h1>
<%
Dim HT, NS, NamHienTai
NamHienTai = Year(Date()) ‘// Hàm Date() cho ngày tháng hiện tại
HT = Request.Form("HoTen") ‘//Lấy họ tên vừa do người dùng Submit
NS = Request.Form("NamSinh") ‘//Lấy năm sinh
Response.Write("Xin chao ban : " &HT ) ‘//Hiển thị Họ tên lấy được
Response.Write("<BR>Tuoi cua Ban la : " & (NamHienTai-NS)) ‘//Hiển thị Tuổi
%>
</body>
</html>
07/03/14
8
Ví dụ 3: Hiển thị dữ liệu trong bảng Access
Yêu cầu: Hiển thị dữ liệu trong một bảng CSDL
CSDL có tên là :Users.mdb
Bảng CSDL có tên là tblUsers
07/03/14
9
Nội dung của file UserDetail.ASP
<%@language="VBScript"%>
<html>
<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:
Xây dựng trang ASP tính tổng của 2 số do người dùng submit đi.
Bài tập 2:
Xây dựng trang ASP thực hiện phép +, -, *, / giữa hai số do người dùng
submit đi.
Bài tập 3:
Xây dựng trang ASP hiển thị bảng Employees trong CSDL Norwind
Bài tập 4:
Xây dựng trang ASP tra cứu danh bạ điện thoại
