Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP === St by hoangly85 === hoangly85@updatesofts.com 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 === hoangly85@updatesofts.com 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 === hoangly85@updatesofts.com 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 === hoangly85@updatesofts.com 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 === hoangly85@updatesofts.com 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> . 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. 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:WINNTSystem32” Gi¸o tr×nh lËp tr×nh øng dông CSDL Web ASP. 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 === hoangly85@updatesofts.com 78 Cú pháp: FileSystemObject.MoveFile