第18次课实验7_自动输入密码.docVIP

实验七：技术突破__自动输入密码 实验目的： 掌握用户在登录时，自动输入密码的方法 实验内容： 技术突破——自动输入密码 实验步骤： 1、技术突破——自动输入密码 很多网站的用户登录表单中常提供一个记住输入密码的单选按钮或复选框。下面就来探索当用户在第一次登录时输入用户名和密码，下一次登录时就不再输入密码而直接进入。 一般服务器是从Form中取出用户名和密码，若能从别的的位置获取用户名和密码，就可以不用输入用户名和密码了。在客户端的Cookies文本文件中存储着用户个人信息，供浏览器与服务器之间交换信息使用，如果让Cookies变量存储登录信息，下一次就直接从Cookies变量中读取登录信息，这样就不需要用户直接在表单中输入了。 具体实现的操作步骤如下： 在Dreamweaver 8中，打开login.asp文件，切换到“代码”视图，找到用户登录代码段，一般都位于代码页的顶部，代码如下： %@LANGUAGE=VBSCRIPT% !--#include file=Connections/conn.asp -- % *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables(URL) If Request.QueryString Then MM_LoginAction = MM_LoginAction + ? + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form(username)) If MM_valUsername Then MM_fldUserAuthorization= MM_redirectLoginSuccess=loginSuccess.asp MM_redirectLoginFailed=loginFailure.htm MM_flag=ADODB.Recordset set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_conn_STRING MM_rsUser.Source = SELECT User, Password If MM_fldUserAuthorization Then MM_rsUser.Source = MM_rsUser.Source , MM_fldUserAuthorization 　　MM_rsUser.Source = MM_rsUser.Source FROM user WHERE User= Replace(MM_valUsername,,) AND Password= Replace(Request.Form(password),,) MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then username and password match - this is a valid user Session(MM_Username) = MM_valUsername If (MM_fldUserAuthorization ) Then Session(MM_UserAuthorization) = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session(MM_UserAuthorization) = End If if CStr(Request.QueryString(accessdenied)) And false Then MM_redirectLoginSuccess = Request.QueryString(accessdenied) End If MM_rsUser.Close 　　 Response.Redirect(MM_redirectLoginSucc