Giáo Trình Lập Trình Ứng Dụng CSDL Web ASP- P16 ppt
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 (205.69 KB, 5 trang )
Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP
=== St by hoangly85 ===
76
GetFileName
Phýõng thức này chỉ trả về phần tên của một tập tin hay một thý mụcứ
Cú pháp:
FileSystemObject.GetFileName(path)
Ví dụ: Nếu path = “ắồ\ASP\Data” thì khi gọi hàm ỗetỳileẹameộpath) ta sẽ
nhận ðýợc chuỗi ”ừata”ứ ẹếu path = “ắồ\ASP\Data\list.txt” thì khi gọi hàm
GetFileName(path) ta sẽ nhận ðýợc chuỗi ”list”ứ
GetFolder
Phýõng thức GetFolder trả về ðối týợng Folder của một thý mụcứ
Cú pháp:
FileSystemObject.GetFolder(path)
GetParentFolderName
Phýõng thức này trả về thý mục cha của một thý mụcứ
Cú pháp:
FileSystemObject.GetParentFolderName(path)
Ví dụ: Nếu path = “C:\ASP\Data” thì khi gọi hàm
GetParentFolderName(path) ta sẽ nhận ðýợc chuỗi ĩSP”ứ Ðây là thý mục cha của
thý mục ừata
GetSpecialFolder
Phýõng thức này trả về ðýờng dẫn tới một số thý mục ðặc biệt của hệ ðiều hànhứ
Cú pháp:
FileSystemObject.GetSpecialFolder(foldername)
Trong ðó foldername nhận một trong các giá trị sauồ
+ WindowsFolder hay 0: Nếu muốn nhận về thý mục của hệ ðiều hành ộmặc ðịnh
Windows 98 ðó là thý mục Windowsự ðối với Windows ẵớớớ thì ðó là thý mục
Winnt).
+ SystemFolder hay 1: Nếu muốn nhận về ðýờng dẫn tới thý mục System của hệ
ðiều hànhứ
+ TemporaryFolder hay 2: Nếu muốn nhận về ðýờng dẫn tới thý mục tạm thời
(TEMP) của hệ ðiều hànhứ
Ví dụ: Ðoạn chýõng trình sau ðây lấy thý mục hệ thống của hệ ðiều hànhứ ẹếu
dùng Windows ẵớớớ thì trên màn hình browser sẽ xuất hiện dòng
“C:\WINNT\System32”
Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP
=== St by hoangly85 ===
77
<HTML>
<BODY>
<%
Dim fso, path
Set fso =
Server.CreateObject(“ScriptingứỳileSystemỨbject”ờ
path = fso.GetSpecialFolder(1)
Response.Write (path)
Set fso = nothing
%>
</BODY>
</HTML>
GetTempName
Phýõng thức này trả về một tên tập tin hoặc thý mục tạm thời ðýợc phát sinh ngẫu
nhiênứ
Cú pháp:
FileSystemObject.GetTempName
Ví dụ:
<HTML>
<BODY>
<%
Dim fso, tfolder, tname, tfile
Set fso =
Server.CreateObject(“ScriptingứỳileSystemỨbject”ờ
tfolder = fso.GetSpecialFolder(2)
tname = fso.GetTempName
Set tfile = tfolder.CreateTextFile(tname)
Response.Write (tfile)
Set fso = nothing
%>
</BODY>
</HTML>
MoveFile
Phýõng thức này di chuyển một hoặc nhiều tập tin từ nõi này sang nõi khácứ
Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP
=== St by hoangly85 ===
78
Cú pháp:
FileSystemObject.MoveFile (src, des)
Trong ðó src là nõi chứa các tập tin cần di chuyển diự des là nõi mà các tập tin cần
chép ðếnứ
MoveFolder
Phýõng thức này di chuyển một hoặc nhiều thý mục từ nõi này sang nõi khácứ
Cú pháp:
FileSystemObject.MoveFile (src, des)
Trong ðó src là nõi chứa các tập tin cần di chuyển diự des là nõi mà các tập tin cần
chép ðếnứ
OpenTextFile
Phýõng thức này mở một tập tin và trả về một ðối týợng TextStream ðýợc dùng ðể
truy cập ðối týợng nàyứ
Cú pháp:
FileSystemObject.OpenTextFile(fname, mode, creat, format)
Trong ðóồ
+ fname: là tên của tập tin cần mở
+ mode: dùng ðể chỉ cách thức mởứ
+ create: dùng ðể chỉ ðịnh rằng nếu tập tin không tồn tại thì có tạo tập tin mới hay
khôngứ
+ format: dùng ðể chỉ ra rằng mở tập tin dùng chuẩn ĩSắỡỡ hay Unicodeứ
2.4.8.4. Ví dụ minh họa
Sau ðây là một ví dụ hiển thị một cửa sổ ðãng nhập ộloginờ cho phép ngýời
dùng gõ vào tên truy cập ộusernameờ và mật khẩu ộpasswordờứ ắhýõng trình sẽ kiểm
tra cặp username và password này có tồn tại trong tập tin password.txt trong thý mục
hiện tại của ứng dụng khôngẻ ẹếu có thì chýõng trình sẽ ðýa ngýời dùng ðến trang
main.asp. Nếu không thì chýõng trình sẽ thông báo và bắt ngýời dùng ðãng nhập lạiứ
Tập tin common.asp chứa các hàm mà ngýời dùng ðịnh nghĩa trong ðó có hàm
CheckAccount dùng ðể kiểm tra xem username và password truyền vào có tồn tại
trong tập tin passwordứtxt khôngẻ Nếu có thì hàm này trả về true. Nếu không thì hàm
này sẽ trả về false. Nội dung của common.asp nhý sau:
<%
Function CheckAccount(uname,upass)
Dim fso ' Bien chua doi tuong FileSystem
Dim ftxt ' Bien chua doi tuong File
Dim stLine
Dim path
Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP
=== St by hoangly85 ===
79
Dim uname_pass
uname=CStr(uname)
upass=CStr(upass)
uname_pass = uname & ":" & upass
CheckAccount=false ' Mac dinh ban dau
path = Server.MapPath(".") & "\Password.txt"
Set fso =
Server.CreateObject("Scripting.FileSystemObject")
Set ftxt = fso.OpenTextFile(path)
While (ftxt.AtEndOfStream <> true) and
•
(CheckAccount=false)
stLine = ftxt.Readline
if (uname_pass = stLine) then
CheckAccount= true
end if
Wend
ftxt.Close
Set ftxt=nothing
Set fso=nothing
End Function
%>
Tập tin login.asp là tập tin mô tả giao diện với ngýời dùngứ ẹội dung của login.asp
nhý sauồ
<! #include file = "common.asp" >
<html>
<head>
<title> Login to …ỉụtitleặ
</head>
<body>
<b><font size="6">Login</font></b></p>
<%
Dim uname, upass
uname = Request.Form("Uname")
upass = Request.Form("Upass")
if (uname <> "") and (upass <> "") then
Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP
=== St by hoangly85 ===
80
if CheckAccount(uname, upass) = true then
response.redirect ("main.asp")
else
response.write ("<font color = red> Please
check username and password! </font>")
end if
elseif uname <> "" then
response.Write ("<font color = red> Please enter
password! </font>")
elseif upass <> "" then
response.Write ("<font color = red> Please
enter username! </font>")
end if
%>
<form method="POST" action = "login.asp">
<table border="1" cellpadding="0" cellspacing="0"
width="27%">
<tr>
<td width="10%">Username </td>
<td><input type = text size="20" name="Uname"
value = '<% =
Server.HTMLEncode(Request.Form("Uname"))%>'>
</td>
</tr>
<tr>
<td width="10%">Password </td>
<td><input type="password" size="20"
name="Upass"> </td>
</tr>
<tr>
<td width="100%" colspan="2">
<p align="center">
<input type="submit" value="Login"
name="B3"></td>
</tr>
</table>
</form>
</body>
</html>
