ASP用户登录模块的设计
|
以下为引用的内容： <% '=======用户登录验证脚本======= '如果尚未定义Passed对象,则将其定义为false,表示没有通过验证 If IsEmpty(Session("Passed")) Then Session("Passed")=false End If 'Session("Passed")=False,表示尚未通过验证,则开始读取从表单传来的验证信息 If Session("Passed")=False Then UserName=Request.Form("UserName") UserPwd=Request.Form("UserPwd") If UserName="" Then Errmsg="提示:请输入用户名和密码" Else '===================连接数据库===================== Set Conn= Server.CreateObject("ADODB.Connection") Conn.Connectionstring= "Driver={SQL Server};Server=192.168.1.3;UID=sa;PWD=;Database=zcmrs" Conn.open '===================从表log中读取用户数据===================== '定义RecordSet对象 Set rs=Server.CreateObject("ADODB.Recordset") '设置Connection对象的ConnectionString Set rs.ActiveConnection=Conn '设置游标类型 rs.CursorType=3 '打开记录集 rs.Open "Select username,password from erpuser Where username='"&UserName&"'" '===================身份验证====================== If rs.EOF Then Errmsg="提示:用户不存在或密码错误" Else If UserPwd<>rs.Fields("password") Then Errmsg="提示:登录失败!密码错误？" Else '登录成功 Errmsg="" Session("Passed")=True Session("UserName")=rs.Fields("username") '标识用户权限 Session("UserID")=rs.Fields("UserID") End If End If End If End If '经过登录不成功,则画出登录表单 If Not Session("Passed")=True Then %> ERP系统登录 <% ' 验证码: response.End End If %> |
要访问的页面erp.asp
站在用户的角度思考问题，与客户深入沟通，找到紫阳网站设计与紫阳网站推广的解决方案，凭借多年的经验，让设计与互联网技术结合，创造个性化、用户体验好的作品，建站类型包括：成都做网站、网站设计、企业官网、英文网站、手机端网站、网站推广、空间域名、网站空间、企业邮箱。业务覆盖紫阳地区。
|
<以下为引用的内容： 以上每次打开erp.asp的时候,都首先执行Chkpwd.asp(),这样可以有效防止未授权用户访问指定网页. logout.asp系统退出 <% Session("Passed")=false Session("UserName")="" Response.Redirect("index.asp") %> |
使用图片提交表单
|
以下为引用的内容： |
网站题目：ASP用户登录模块的设计
标题网址：http://scyanting.com/article/ssogjo.html
