Tài liệu Bài thực hành số 3: Đối tượng File System Object doc

12 938 2
Tài liệu Bài thực hành số 3: Đối tượng File System Object doc

Đang tải... (xem toàn văn)

Tài liệu hạn chế xem trước, để xem đầy đủ mời bạn chọn Tải xuống

Thông tin tài liệu

Bài thực hành số 3: Đối tượng FileSystemObject Thiết kế website bao gồm chức năng: - Đăng nhập hệ thống - Đăng ký người dùng - Xem danh sách người dùng đăng ký - Thêm Tỉnh/Thành phố Chức đăng nhập: Yêu Cầu: - Cho phép lưu lại tên truy nhập mật - Cho phép kiểm tra lỗi nhập liệu: + Thông báo lỗi chưa nhập tên truy nhập mật mà nhấn Dang Nhap +Thông báo lỗi tên truy nhập, mật khơng đúng, khơng có hệ thống Chức Đăng ký tài khoản - Sau nhấn nút GHI thơng tin nhập lưu File TaiKhoan.txt Cách lưu sau: Thông tin cá nhân lưu dịng Ví dụ cấu trúc file Taikhoan.txt: trường thông tin cá nhân phân cách bới dấu chấm phẩy “;” - Yêu cầu bắt lỗi trường Ten Tai Khoan, Mat khau, Go lai Mat khau, Ho va ten bắt buộc phải nhập liệu Kiểm tra lỗi trường Mat Khau va Go lai Mat khau không khớp Kiểm tra độ dài mật tối thiểu ký tự Trường Tinh/Thanh 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 Bài thực hành số 3: Đối tượng FileSystemObject Chức hiển thị danh sách người dùng đăng ký Gợi ý: để hiển thị danh sách người dùng đăng ký dạng bảng cách đọc dòng file Taikhoan.txt, sau tách dịng thành cách trường 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 Bài thực hành số 3: Đối tượng FileSystemObject Câu lệnh có nghĩa đọc dòng(xâu) file liệu f , sau sử dụng hàm split tách xâu thành xâu vị trí có dấu “;” gán xâu vào phần tử mảng a Mảng a đánh số từ Ubound(a) -1 (trong đó: hàm Ubound(a) trả tổng số phần tử mảng a) Chức Thêm Tỉnh/Thành phố: 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ó danh sách Các file chương trình gồm: - Tinh.txt (chứa danh sách tỉnh/ thành phố) - Taikhoan.txt (chứa tồn thơng tin 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 Bài thực hành số 3: Đối tượng FileSystemObject Login.asp Ten truy nhap DANG NHAP HE THONG Ten truy nhap > Mat khau Luu lai tai khoan

    

Dang ky moi Danh sach da dang ky

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ố 3: Đối tượng FileSystemObject Xuly_login.asp Quay lai Dangky.asp DANG KY TAI KHOAN

DANG KY TAI KHOAN

Ten tai khoan Mat khau   (it nhat ky tu) Go lai mat khau   Ho va ten Gioi tinh Nam  Nu Ngay sinh 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ố 3: Đối tượng FileSystemObject Ngay Thang > Nam Tinh/Thanh pho Nhan vao day de them tinh/thanh pho So thich Du lich The thao Xem TV

Nau an Tin hoc Thoi su Ghi chu 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ố 3: Đối tượng FileSystemObject

Dang nhap Danh sach dang ky Xuly_dangky.asp Khong tim thay file Taikhoan.txt!

Dang nhap Dang ky moi

ThemTinh.asp New Page 1    DANH SACH TINH/THANH PHO GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên 10 Bài thực hành số 3: Đối tượng FileSystemObject STT Ten Tinh/Thanh pho 0 then Application("App_loi_Tentinh")=Application("App_loi_Tentinh") & "Ten tinh khong su dung khoang tro^ng! " Loi=TRUE end if If TinhDaTonTai() then Application("App_loi_Tentinh")=Application("App_loi_Tentinh") & "Khong tim thay file Tinh.txt hoac ten tinh da ton tai danh sach." Loi=TRUE End if If Loi Then response.redirect("Themtinh.asp") End if 'Them tinh moi vao file tinh.txt If not FS.fileExists(filename) then ' Kiem tra co file Taikhoan.txt chua? Set f=FS.CreateTextfile(filename,true) 'Neu chua thi` Tao moi else Set f=FS.Opentextfile(filename,8,false) ' mo file da co de ghi them vao End if f.writeline(request.form("txttentinh")) f.close set f=nothing set FS=nothing response.redirect("Themtinh.asp") %> GV: LÊ ANH TÚ - Bộ môn Mạng & Truyền thông – Khoa CNTT ĐH Thái Nguyên 12 ... Nguyên Bài thực hành số 3: Đối tượng FileSystemObject %> Quay lai Dangky.asp

Ngày đăng: 25/12/2013, 23:18

Từ khóa liên quan

Tài liệu cùng người dùng

Tài liệu liên quan