Bài giảng Lập trình mạng - Lê Anh Tú

cessful ! 
 Do you want 
<% 
'N han Logout de huy Cookies 
if request.form("cmdLogout")"" then 
 response.cookies("Acc")("user")="" 
 response.cookies("Acc")("pass")="" 
 'Khong dung` Expires thi Cookies se bi huy 
 'ngay sau khi dong IE hien hanh` 
 response.redirect("Login1.asp") 
end if 
%> 
2. Nâng cấp chương trình: 
Yêu cầu kiểm tra tài khoản đang nhập có tồn tại trong CSDL không. Làm theo các bước sau: 
(1) Tạo CSDL HOSO.MDB và bảng Account(ID(Autonumber), User(Text), Pass(Text)) 
(2) Viết file Connection.inc kết nối tới CSDL 
Connection.inc 
<% 
Set Conn=Server.CreateObject("ADODB.Connection") 
FilePath= Server.Mappath("Hoso.mdb") 
StrConn="Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & FilePath 
Conn.Open StrConn 
Set RS=Server.CreateObject("ADODB.Recordset") 
%> 
(3) Chèn đoạn mã sau đây vào trước thẻ trong file Login.asp 
<% 
ID=request.cookies("Acc")("user") 
PWD=request.cookies("Acc")("Pass") 
'Mo bang du lieu Account va chon ra dung TK da luu trong Cookies 
StrSQL="Select * from Account Where (User='" & ID & "')AN D(Pass='" & PWD & "')" 
RS.Open StrSQL,Conn 
%> 
(4) Sửa lại dòng gạch chân sau thẻ như sau: 
<% 
'Kiem tra neu da co Cookies thi dang nhap luon vao trang Home.asp 
If not rs.eof then 
 response.redirect("Home.asp") 
else 
'N eu chua co Cookies thi cho hien giao dien dang nhap 
%> 
Bài giảng môn học: Lập trình mạng 
GV: Lê Anh Tú - Bộ môn Mạng & Truyền thông - Khoa CNTT - ĐHTN 107
************************************************** 
Phụ lục 3: Hiển thị ảnh quảng cáo và số lượt truy cập 
Yêu cầu cho phép: 
- Đếm số lượt người đã truy cập 
- Hiển thị ảnh quảng cáo ngẫu nhiên 
 Yêu cầu: Sử dụng file Global.asa 
(Ghi chú: Chuẩn bị sẵn 3 ảnh: 1.gif, 2.gif, 3.gif) 
File Global.asa 
<OBJECT ID="Dem" RUNAT="Server" SCOPE="Application" 
PROGID="MSWC.Counters"> 
<OBJECT ID="Pic" RUNAT="Server" SCOPE="Application" 
PROGID="MSWC.Adrotator"> 
File Quangcao.asp 
<% 
response.write "So luot ttruy cap website la:" 
%> 
<% 
dem.Increment("k") 
response.write dem.get("k") 
%> 
<% 
=pic.GetAdvertisement("quangcao.txt") 
‘noi dung file quangcao.txt nhu tren 
%> 
File Quangcao.txt 
REDIRECT /login.asp 
WIDTH 300 
HEIGHT 300 
BORDER 1 
* 
1.gif 
Trang chu Viet Nam 
60 
2.gif 
Ma nguon VB 
40 
3.gif 
Trang tin tuc 
20 
Bài giảng môn học: Lập trình mạng 
GV: Lê Anh Tú - Bộ môn Mạng & Truyền thông - Khoa CNTT - ĐHTN 108
Phụ lục 4: Bài tập ADO, Phân trang với Recordset 
1. Tạo CSDL HOSO.MDB và thiết kế các bảng dữ liệu có cấu trúc như sau: 
Tạo quan hệ giữa 2 bảng như sau: 
2. Thiết kế trang DEFAULT.ASP cho phép hiển thị các thông tin về sinh viên như sau: 
Chú ý: 
- Sử dụng kỹ thuật phân trang 
- Các chức năng ADD, EDIT, DELETE để thực hiên các chức năng thêm mới, sửa, xóa các bản 
ghi 
- Nhấn vào Mã SV cho phép liên kết đến trang xem tổng hợp thông tin cá nhân về SV đó (Ví dụ: 
Profile.asp) 
Bảng Sinhvien 
Bảng Tinh 
Bài giảng môn học: Lập trình mạng 
GV: Lê Anh Tú - Bộ môn Mạng & Truyền thông - Khoa CNTT - ĐHTN 109
3. Yêu cầu thiết giao diện các trang thêm mới và sửa như sau: 
- Giao diện cập nhật SV mới 
- Giao diện thay đổi thông tin cá nhân 1 SV đã nhập 
MÃ NGUỒN MẦU 
File Connection.inc 
<% 
FilePath=Server.Mappath("Hoso.mdb") 
Set Conn=Server.CreateObject("ADODB.COnnection") 
StrConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & FilePath 
Conn.Open strConn 
Set RS=Server.CreateObject("ADODB.Recordset") 
%> 
File Default.asp 
<% 
'Su dung Query trong Access de tao xau truy van nhu duoi day 
StrSQL="SELECT SinhVien.*, [Tinh].[Tentinh] FROM Tinh INNER JOIN SinhVien ON 
[Tinh].[MaTinh]=[SinhVien].[MaTinh];" 
'Dat thuoc tinh cho RS co kha nang phan trang 
RS.CursorLocation=3 
RS.Pagesize=3 
RS.Open StrSQL,Conn,0,1 
'Xac dinh trang hien thoi 
Session("CurrenPage")=1 
If request("PageID")"" then 
 Session("CurrenPage")=Cint(request("PageID")) 
End if 
If not(RS.eof or RS.bof) then 
 RS.Absolutepage=Session("CurrenPage") 
End if 
%> 
Bài giảng môn học: Lập trình mạng 
GV: Lê Anh Tú - Bộ môn Mạng & Truyền thông - Khoa CNTT - ĐHTN 110
Phân trang với RS 
DANH SACH SINH VIEN 
Page of 
 STT 
 Sửa 
 Xóa 
 Mã SV 
 Họ và tên 
 Giới tính 
 Tuổi 
 Ngày vào đoàn 
 Tên Tỉnh 
 Sở thích 
<% 
i=RS.Pagesize*(Session("CurrenPage")-1) 
While not RS.eof and RS.AbsolutePage=Session("CurrenPage") 
 i=i+1 
%> 
 checked name="RdoSua"> 
 > 
> 
 <% 
 If RS.Fields("Gioitinh") then 
 Response.Write("Nam") 
 Else 
 Response.Write("Nu") 
 End if 
 %> 
<% 
RS.MoveNext 
Wend 
%> 
 <%If Session("CurrenPage")=1 then 
 Response.write("Back") 
 Else%> 
Bài giảng môn học: Lập trình mạng 
GV: Lê Anh Tú - Bộ môn Mạng & Truyền thông - Khoa CNTT - ĐHTN 111
 >Back 
 <% 
 k1=Session("CurrenPage")-1 
 k2=Session("CurrenPage")+1 
 If k1<1 then k1=1 
 If k2>RS.PageCount then k2=RS.PageCount 
 For i=k1 to k2 
 Response.write (" ") 
 If i=Session("CurrenPage") then 
 Response.write(i) 
 Else%> 
 > 
 <%End if 
 Next 
 %> 
 <%If Session("CurrenPage")=RS.PageCount then 
 Response.write("Next") 
 Else%> 
 >Next 
 <%End if 
 RS.Close 
 %> 
File Xuly_Default.asp 
<% 
if request.form("cmdAdd")"" then 
 response.redirect("Them.asp") 
end if 
if request.form("cmdEdit")"" then 
 session("MaSV")=request.form("rdoSua") 
 response.redirect("Sua.asp") 
end if 
if request.form("cmdDelete")"" then 
%> 
<% 
end if 
%> 
File Them.asp 
<% 
StrSQL="Select * from Tinh Order By Tentinh" 
RS.Open StrSQL,Conn 
%> 
Bài giảng môn học: Lập trình mạng 
GV: Lê Anh Tú - Bộ môn Mạng & Truyền thông - Khoa CNTT - ĐHTN 112
Thêm mới SV 
 CẬP NHẬT SINH VIÊN 
 Mã SV 
 HỌ và tên 
 Giới tính 
 Nam 
 Nữ 
 Tuổi 
 Ngày vào đoàn 
 selected value=> 
 selected value=> 
 > 
 Tỉnh 
 <% 
 While not Rs.eof 
 %> 
 > 
 <% 
 RS.MoveNext 
 Wend 
 RS.Close 
 %> 
 Sở thích 
 Du lịch 
 Thể thao 
 Xem TV 
 Ca nhạc 
Bài giảng môn học: Lập trình mạng 
GV: Lê Anh Tú - Bộ môn Mạng & Truyền thông - Khoa CNTT - ĐHTN 113
File Xuly_them.asp 
<% 
StrSQL="Select * from Sinhvien" 
RS.Open StrSQL,Conn,1,3 
RS.AddNew 
RS.Fields("MaSV")=request.form("txtMaSV") 
RS.Fields("Hoten")=request.form("txtHoten") 
RS.Fields("MaSV")=request.form("txtMaSV") 
If Request.form("rdoGT")="Nam" then 
 RS.Fields("Gioitinh")=True 
else 
 RS.Fields("Gioitinh")=False 
End if 
RS.Fields("Tuoi")=request.form("txtTuoi") 
ND=request.form("optThang")&"/"&request.form("optNgay")&"/"&request.form("optNam") 
RS.Fields("NgayDoan")=Cdate(ND) 
RS.Fields("Matinh")=request.form("optTinh") 
RS.Fields("Sothich")=request.form("chkST") 
RS.Update 
RS.Close 
response.redirect("Default.asp") 
%> 
File Sua.asp 
<% 
StrSQL="Select * from Tinh Order By Tentinh" 
RS.Open StrSQL,Conn 
StrSQL1="Select * from Sinhvien Where MaSV='" & session("MaSV") & "'" 
Set RS1=Server.CreateObject("ADODB.Recordset") 
RS1.Open StrSQL1,Conn 
%> 
Sửa thông tin SV 
SUA THÔNG TIN SINH VIÊN 
 Mã SV 
 Họ và tên 
> 
 Giới tính 
 checked 
name="rdoGT">Nam 
Bài giảng môn học: Lập trình mạng 
GV: Lê Anh Tú - Bộ môn Mạng & Truyền thông - Khoa CNTT - ĐHTN 114
 checked 
value="Nu">Nữ 
 Tuổi 
 > 
 Ngày vào đoàn 
 selected 
value=> 
 selected 
value=> 
 selected 
value=> 
 Tỉnh 
 <% 
 While not Rs.eof 
 %> 
 Selected 
value=> 
 <% 
 RS.MoveNext 
 Wend 
 %> 
 Sở thích 
<input type="checkbox" name="chkST" value="Du lich" <%if 
instr(Ucase(rs1.fields("Sothich")),ucase("Du lich"))>0 then%> checked >Du lịch 
<input type="checkbox" name="chkST" value="The thao" <%if 
instr(Ucase(rs1.fields("Sothich")),ucase("The thao"))>0 then%> checked >Thể thao 
<input type="checkbox" name="chkST" value="Xem TV" <%if 
instr(ucase(rs1.fields("Sothich")),ucase("Xem TV"))>0 then%> checked >Xem TV 
<input type="checkbox" name="chkST" value="Ca nhac" <%if 
instr(ucase(rs1.fields("Sothich")),ucase("Ca nhac"))>0 then%> checked >Ca nhạc 
Bài giảng môn học: Lập trình mạng 
GV: Lê Anh Tú - Bộ môn Mạng & Truyền thông - Khoa CNTT - ĐHTN 115
<% 
rs.Close 
rs1.Close 
%> 
File Xuly_sua.asp 
<% 
StrSQL="Select * from Sinhvien Where MaSV='" & session("MaSV") & "'" 
RS.Open StrSQL,Conn,1,3 
RS.Fields("Hoten")=request.form("txtHoten") 
If Request.form("rdoGT")="Nam" then 
 RS.Fields("Gioitinh")=True 
else 
 RS.Fields("Gioitinh")=False 
End if 
RS.Fields("Tuoi")=request.form("txtTuoi") 
ND=request.form("optThang")&"/"&request.form("optNgay")&"/"&request.form("optNam") 
RS.Fields("NgayDoan")=Cdate(ND) 
RS.Fields("Matinh")=request.form("optTinh") 
RS.Fields("Sothich")=request.form("chkST") 
RS.Update 
RS.Close 
response.redirect("Default.asp") 
%> 
File Xoa.asp 
<% 
For i=1 to request.form("chkXoa").Count 
 If request.form("chkXoa")(i)"" then 
 StrSQL="Select * from SinhVien Where MaSV='" & request.form("chkXoa")(i) & "'" 
 RS.Open StrSQL,Conn,1,3 
 RS.Delete 
 RS.Close 
 end if 
next 
Response.redirect("Default.asp") 
%> 
File Profile.asp 
<% 
StrSQL="SELECT SinhVien.*, Tinh.* FROM Tinh INNER JOIN SinhVien ON 
[Tinh].[MaTinh]=[SinhVien].[MaTinh] WHERE MaSV=' " & request("MaSV_ID") & " ' “ 
RS.Open StrSQL,Conn 
Response.write "Mã SV: " & RS.fields("MaSV") & "" 
Response.write "Họ tên: " & RS.fields("Hoten") & "" 
Response.write "Giới tính: " 
If rs.fields("Gioitinh") then 
 Response.write "Nam" & "" 
else 
 Response.write "Nữ" & "" 
end if 
Response.write "Tuổi: " & RS.fields("Tuoi") & "" 
Response.write "Ngày vào đoàn: " & RS.fields("Ngaydoan") & "" 
Response.write "Tỉnh/Tp: " & RS.fields("Tentinh") & "" 
Response.write "Sở thích: " & RS.fields("Sothich") & "" 
%> 
Quay lại