|
|
|
7i24.Com不停为您服务 口令保护
password.asp:提供一个输入界面
<%@ LANGUAGE="VBSCRIPT" %>
<!--- This example is a simple login system --->
<HTML>
<HEAD>
<TITLE>Password.asp</TITLE>
</HEAD>
<BODY>
<FORM ACTION="engine.asp" NAME="form1" METHOD="post">
User Name: <INPUT TYPE="text" SIZE=30 NAME="username">
<P>
Password: <INPUT TYPE="password" SIZE=30 NAME="password">
<P>
<INPUT TYPE="submit" VALUE="Login">
</FORM>
</BODY>
</HTML>
engine.asp:检验用户输入项
<%@ LANGUAGE="VBSCRIPT" %>
<%
' Connects and opens the text file
' DATA FORMAT IN TEXT FILE= "username<SPACE>password"
Set MyFileObject=Server.CreateObject
("Scripting.FileSystemObject")
Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath
("\path\path\path\path") & "\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 --->
<HTML>
<HEAD>
<TITLE>invalid.asp</TITLE>
</HEAD>
<BODY>
You have entered an invalid username or password.
<P>
<A HREF="password.asp">Try to log in again</A>
</BODY>
</HTML>
inyougo.asp:用户的口令正确
<%@ LANGUAGE="VBSCRIPT" %>
<!--- This example is a simple login system --->
<HTML>
<HEAD>
<TITLE>In You Go</TITLE>
</HEAD>
<BODY>
You have now entered the password protected page.
</BODY>
</HTML>
passwords.txt:包含口令的文本文件
gates bill
burns joe
|
|
|