推薦：解讀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 %> <html> <head><title>無標題文檔</title> <style type=text/css> <!-- .STYLE1 {font-size: 12px;font-weight:bold;margin-left:120px;outline:double} --> </style> <style type=text/css> <!-- .STYLE2 {font-size: 12px;font-weight:bold;outline:double;color:#FF3333} --> </style> </head> <body leftmargin=0 topmargin=0 marginheight=0 marginwidth=0 bgcolor=#000000> <div id=parent style=height:300;width:450;border-style:solid;border-color:#FFFFFF;margin-top:80px;margin-left:25%;margin-right:25%;background- color:#FFFFFF> <div id=denglu style=font-size:12px;font-weight:bold;background-color:#0099FF;text-align:center;height:40px;><br>ERP系統登錄</div> <form action=<%=request.ServerVariables(path_info)%> method=post name=MyForm id=MyForm> <p class=STYLE1>用戶名:<input name=UserName type=text id=UserName size=18 maxlength=20> </p> <p class=STYLE1>密碼:<input name=UserPwd type=password id=UserPwd size=18 maxlength=20> </p> <p align=center class=STYLE2><%=Errmsg%> </p> <p> <input type=submit align=middle name=Submit value=登錄系統> <input name=rege type=button align=middle onClick=location='register.asp' id=rege value=註冊用戶> </p> </form> </div> </body> </html> <% '<p class=STYLE1>驗證碼:<input name=CheckCode type=text id=CheckCo |
分享：asp正則表達式學習“正則表達式”對象，我們就可以非常方便的對各種數據進行合法性的校驗了。首先，讓我們來了解一下究竟什麼是VBScript的“正則表達式”對象，我們先來看一段程序：
共2頁上一頁12下一頁