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
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 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>
Tạo tập tin mainứaspứ ẩhi bạn viết một ứng dụng web thực sự thì trang mainứasp chắnh là trang chắnh của ứng dụngứ ỗiả sử tập tin mainứasp với nội dung sauồ
<html> <head>
<title> Trang Web chắnhẦ ỉụtitleặ </head>
<body> <%
Response.Write (ỘĐãng nhập thành côngứ ắhào mừng bạn đến trang Web của chúng tôiầỢờ
%> </body> </html>
Tạo tập tin Password.txt và đặt cùng thý mục với ba tập tin trên với nội dung sauồ abc:abc
cobe:becon nvlong:long1280 hung1254:meocon
Đây chắnh là danh sách các username và password mà ứng dụng cho phép đãng
nhập vàoứ ẹếu muốn thêm ngýời dùngự bạn thêm vào tập tin này các dòng týõng ứngứ
Đặt ấ tập tin vừa tạo vào trong cùng một thý mục và tạo một thý mục ảo với tên
MyWeb chỉ đển thý mục chứa ấ tập tin nàyứ
Mở trình duyệt và gõ vào httpồụụlocalhostụỹyWebụloginứaspứ ẩết quả sẽ hiển thị lên màn hình nhý sauồ
Khi ngýời dùng gõ vào đúng username và password trong tập tin passwordứtxt thì khi nhấn nút login ngýời dùng sẽ đýợc chuyển sang trang mainứasp nhý sauồ
Nhýng khi gõ sai username hay password thì một câu thông báo sẽ đýợc hiện lên và bắt ngýời dùng đãng nhập lại nhý sauồ