<!--- This example is a simple login system --->

　　

engine.asp:检验用户输入项
<%@ LANGUAGE="VBSCRIPT" %>

<%
　　' Connects and opens the text file
　　' DATA FORMAT IN TEXT FILE= "usernamepassword"

　　Set MyFileObject=Server.CreateObject
("Scripting.FileSystemObject")
　　Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath
("pathpathpathpath") & "passwords.txt")

　　' Scan the text file to determine if the user is legal
　　WHILE NOT MyTextFile.AtEndOfStream
　　　　　' If username and password found
　　　　　IF MyTextFile.ReadLine = Request.form("username") & " " &
Request.form("password") THEN
　　　　　　　　' Close the text file
　　　　　　　　MyTextFile.Close
　　　　　　　　' Go to login success page
　　　　　　　　Session("GoBack")=Request.ServerVariables
("SCRIPT_NAME")
　　　　　　　　Response.Redirect "inyougo.asp"
　　　　　　　　Response.end
　　　　　END IF
　　WEND

　　' Close the text file
　　MyTextFile.Close
　　' Go to error page if login unsuccessful
　　Session("GoBack")=Request.ServerVariables("SCRIPT_NAME")
　　Response.Redirect "invalid.asp"
　　Response.end

%>

invalid.asp :用户无效的口令时的页面
<%@ LANGUAGE="VBSCRIPT" %>

<!--- This example is a simple login system --->

You have entered an invalid username or password.

Try to log in again

inyougo.asp:用户的口令正确
<%@ LANGUAGE="VBSCRIPT" %>

<!--- This example is a simple login system --->

　　　

　　　You have now entered the password protected page.

passwords.txt:包含口令的文本文件

gates bill
burns joe