Tài liệu Bài thực hành số 2: Tk Form đăng nhập, ảnh quảng cáo, số lượt đã truy cập pptx
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 (224.57 KB, 5 trang )
Bài thực hành số 2: Tk Form đăng nhập, ảnh quảng cáo, số lượt đã truy cập
1. Yêu cầu: - Thiết kế Form đăng nhập (hình trái), cho phép lưu lại tài khoản. Nếu
đăng nhập thành công thì mở ra trang Home.asp (hình phải)
File Login.asp
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>User name</title>
</head>
<body>
<%
'Kiem tra neu da co Cookies thi dang nhap luon vao trang Home.asp
if request.cookies("Acc")("user")="Admin" and request.cookies("Acc")("pass")="12345" then
response.redirect("Home.asp")
else
'Neu chua co Cookies thi cho hien giao dien dang nhap
%>
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
Bài thực hành số 2: Tk Form đăng nhập, ảnh quảng cáo, số lượt đã truy cập
<form method="POST" action="login.asp">
<table border="1" width="56%" id="table1" bgcolor="#C0C0C0">
<tr>
<td width="129" height="35"><b>User name</b></td>
<td height="35">
<input name="txtUser" size="20"></td>
</tr>
<tr>
<td width="129" height="33"><b>Password</b></td>
<td height="33">
<input type="password" name="txtPass" size="19"></td>
</tr>
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
Bài thực hành số 2: Tk Form đăng nhập, ảnh quảng cáo, số lượt đã truy cập
<tr>
<td colspan="2">
<input type="checkbox" name="chkSave" value="ON">
<b>Remember your account</b>
</td>
</tr>
</table>
<input type="submit" value=" Login " name="CmdLogin">
</form>
<%
'Neu tai khoan dang nhap chinh xac thi cho vao` trang Home.asp
if request.form("txtuser")="Admin" and request.form("txtpass")="12345" then
'Neu check luu lai thong tin ve tai khoan thi tao Cookies de luu
if request.form("chkSave")<>"" then
'Tao Cookies luu lai tai` khoan
response.cookies("Acc")("User")="Admin"
response.cookies("Acc")("pass")="12345"
'Dat thoi han ton tai cua Cookies la 5 ngay ke tu ngay hien tai
response.cookies("Acc").expires=date()+5
end if
response.redirect("Home.asp")
else
'Tai khoan dang nhap khong chinh xac thi bao loi
if request.form("cmdLogin")<>"" then
response.write "Login error........!"
end if
end if
end if
%>
</body>
</html>
File Home.asp
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Login successfull</title>
</head>
<body>
<p><b>Login successful !</b></p>
<form method="POST" action="Home.asp">
<p>Do you want <input type="submit" value="Logout" name="cmdLogout"></p>
</form>
<%
'Nhan Logout de huy Cookies
if request.form("cmdLogout")<>"" then
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
Bài thực hành số 2: Tk Form đăng nhập, ảnh quảng cáo, số lượt đã truy cập
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
%>
</body>
</html>
3. 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ẻ <HTML> trong file Login.asp
<!--#include file=Connection.inc-->
<%
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 & "')AND(Pass='" & PWD & "')"
RS.Open StrSQL,Conn
%>
(4) Sửa lại dòng gạch chân sau thẻ <BODY> 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
'Neu chua co Cookies thi cho hien giao dien dang nhap
%>
**************************************************
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
Bài thực hành số 2: Tk Form đăng nhập, ảnh quảng cáo, số lượt đã truy cập
2. Thiết kế website như sau
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>
<OBJECT ID="Pic" RUNAT="Server" SCOPE="Application"
PROGID="MSWC.Adrotator">
</OBJECT>
File Quangcao.asp
<%
response.write "So luot ttruy cap website la:"
%>
<%
dem.Increment("k")
response.write dem.get("k")
%>
<br>
<%
=pic.GetAdvertisement("quangcao.txt")
‘noi dung file quangcao.txt nhu tren
%>
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
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
