Tài liệu Bài thực hành số 3: Đối tượng File System Object 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 (269.59 KB, 12 trang )
Bài thực hành số 3: Đối tượng FileSystemObject
Thiết kế website bao gồm các chức năng:
- Đăng nhập hệ thống
- Đăng ký người dùng mới
- Xem danh sách các người dùng đã đăng ký
- Thêm mới Tỉnh/Thành phố
1. Chức năng đăng nhập:
2. Chức năng Đăng ký tài khoản mới
- Sau khi nhấn nút GHI thì các thông tin đã nhập sẽ được lưu trong File TaiKhoan.txt.
Cách lưu như sau: Thông tin của mỗi cá nhân sẽ được lưu trên một dòng. Ví dụ dưới
đây là cấu trúc một file Taikhoan.txt:
các trường thông tin của mỗi cá nhân phân cách nhau bới dấu chấm phẩy “;”
- Yêu cầu bắt lỗi các trường Ten Tai Khoan, Mat khau, Go lai Mat khau, Ho va ten bắt
buộc phải nhập dữ liệu
- Kiểm tra lỗi nếu 2 trường Mat Khau va Go lai Mat khau không khớp nhau
- Kiểm tra độ dài của mật khẩu tối thiểu là 3 ký tự
- Trường Tinh/Thanh pho sẽ được thêm vào từ file Tinh.txt
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
1
Yêu Cầu:
- Cho phép lưu lại tên truy
nhập và mật khẩu
- Cho phép kiểm tra lỗi nhập
dữ liệu:
+ Thông báo lỗi nếu chưa nhập tên
truy nhập hoặc mật khẩu mà nhấn
Dang Nhap
+Thông báo lỗi nếu tên truy nhập,
mật khẩu không đúng, hoặc không
có trong hệ thống
Bài thực hành số 3: Đối tượng FileSystemObject
3. Chức năng hiển thị danh sách các người dùng đã đăng ký
Gợi ý: để hiển thị danh sách người dùng đã đăng ký dưới dạng bảng như trên bằng cách đọc
từng dòng trong file Taikhoan.txt, sau đó tách mỗi dòng ra thành cách trường dữ liệu để đưa
vào bảng:
Sử dụng hàm SPLIT(“Xâu ký tự cần tách”,”ký tự phân tách”)
Ví dụ:
a=split(f.readline,”;”)
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
2
Bài thực hành số 3: Đối tượng FileSystemObject
Câu lệnh trên có nghĩa là đọc một dòng(xâu) trong file dữ liệu f , sau đó sử dụng hàm split
tách xâu trên thành các xâu con tại các vị trí có dấu “;” và gán các xâu con này vào các phần
tử của mảng a
Mảng a sẽ được đánh số từ 0 cho tới Ubound(a) -1 (trong đó: hàm Ubound(a) trả về tổng số
phần tử của mảng a)
4. Chức năng Thêm Tỉnh/Thành phố:
Các file của chương trình gồm:
- Tinh.txt (chứa danh sách tỉnh/ thành phố)
- Taikhoan.txt (chứa toàn bộ thông tin các tài khoản dã đăng ký)
- Login.asp ->Xuly_login.asp
- Dangky.asp ->Xuly_dangky.asp
- Hienthi.asp
- ThemTinh.asp ->Xuly_ThemTinh.asp
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
3
Yêu cầu:
- Nhập tên tỉnh, thành
phố không sử dụng
dấu cách ““
- Nếu chưa nhập tên
tỉnh, thành phố mà
nhấn Them thi báo
lỗi
- Không nhập trùng
tên tỉnh, thành phố
đã có trong danh
sách
Bài thực hành số 3: Đối tượng FileSystemObject
Login.asp
<%
user=request.cookies("CookUser")
Pass=request.cookies("CookPass")
%>
<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Ten truy nhap</title>
</head>
<body>
<b>DANG NHAP HE THONG</b>
<form method="POST" action="xuly_login.asp">
<b><font color="#FF0000"><%=application("App_Loi_Dangnhap")%></font></b>
<table border="1" width="51%" bgcolor="#C0C0C0" height="138">
<tr>
<td width="32%" height="53"><b>Ten truy nhap</b></td>
<td width="68%" height="53"><input type="text" name="txtuser" size="31" value=<
%=user%>></td>
</tr>
<tr>
<td width="32%" height="36"><b>Mat khau</b></td>
<td width="68%" height="36"><input type="password" name="txtpass" size="31"
value=<%=pass%>></td>
</tr>
<tr>
<td width="100%" colspan="2" height="31"><b><i><input type="checkbox"
name="chklogin" value="Da luu">
Luu lai tai khoan</i></b></td>
</tr>
</table>
<p>
<input type="submit" value="Dang nhap"
name="cmDangnhap">
<input type="reset" value="Nhap lai" name="cmdnhaplai"></p>
</form>
<p align="left">
<a href="Dangky.asp"><i>Dang ky moi</i></a>
<a href="Hienthi.asp"><i>Danh sach da dang ky</i></a> </p>
</body>
</html>
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
4
Bài thực hành số 3: Đối tượng FileSystemObject
Xuly_login.asp
<%
Function Dangkythanhcong() 'Ham kiem tra tai khoan co ton tai trong he thong khong?
Dadangky=FALSE
filename=Server.Mappath("Taikhoan.txt")
Set FS=server.createObject("scripting.FileSystemObject")
If FS.fileExists(filename) then
Set f=FS.OpenTextFile(filename,1,false)
while not f.AtEndOfStream
a=split(f.readline,";")
if lcase(a(0))=lcase(request.form("txtUser")) and
lcase(a(1))=lcase(request.form("txtPass")) then
Dangkythanhcong=TRUE
End if
wend
f.close
set f=nothing
End if
set FS=nothing
End function
if request.form("txtUser")<>"" and request.form("txtPass")<>"" then
If Dangkythanhcong() then
If request.form("chkLogin")<>"" then
response.cookies("CookUser")=request.form("txtUser")
response.cookies("Cookpass")=request.form("txtPass")
response.cookies("CookUser").path="/"
response.cookies("CookPass").path="/"
response.cookies("CookUser").expires=#Jun 25, 2005#
response.cookies("Cookpass").expires=#6-25-2005# 'Dat thoi han cua
Cookies den 25/6/2005
response.write "Dang nhap thanh cong. Da luu tai khoan! <BR>"
else
response.cookies("CookUser")=""
response.cookies("Cookpass")=""
response.cookies("CookUser").path="/"
response.cookies("CookPass").path="/"
response.write "Dang nhap thanh cong. Khong luu tai khoan! <BR>"
End if
application("App_Loi_Dangnhap")=""
else
application("App_Loi_Dangnhap")="Khong tim thay tai khoan trong he thong!"
RESPONSE.redirect("Login.asp")
End if
else
application("App_Loi_Dangnhap")="Chua nhap ten tai khoan va mat khau!"
RESPONSE.redirect("Login.asp")
End if
GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên
5
