推荐：解读asp的RegExp对象正则表达式功能用法RegExp对象提供简单的正则表达式支持功能。 RegExp对象的用法： 以下为引用的内容： Function RegExpTest(patrn, strng) Dim re
用户登录验证脚本,Chkpwd.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系统登录 <% ' 验证码: |
分享：asp正则表达式学习“正则表达式”对象，我们就可以非常方便的对各种数据进行合法性的校验了。首先，让我们来了解一下究竟什么是VBScript的“正则表达式”对象，我们先来看一段程序：
共2页上一页12下一页