Recommandé: interpréter l'utilisation de la fonction d'objet regexp de l'ASP Les objets regexp fournissent un support d'expression régulière simple. Utilisation de l'objet regexp: Ce qui suit est le contenu référencé: fonction regexptest (patn, strng) dim re
Script de vérification de la connexion de l'utilisateur, chkpwd.asp
| Ce qui suit est le contenu cité: <% '========= Script de vérification de connexion utilisateur ======== 'Si l'objet passé n'a pas été défini, il est défini comme faux, indiquant qu'il n'a pas réussi la vérification Si iSempty (session (passé)) alors Session (passée) = false Terminer si 'Session (passé) = false, ce qui signifie que les informations de vérification transmises du formulaire n'ont pas encore été adoptées. Si la session (passée) = false alors Username = request.form (nom d'utilisateur) Userpwd = request.form (userpwd) Si le nom d'utilisateur = alors Errmsg = Conseil: veuillez saisir votre nom d'utilisateur et votre mot de passe Autre '=============================================. == Définir Conn = Server.CreateObject (ADODB.Connection) Conn.ConnectionString = Driver = {SQL Server}; server = 192.168.1.3; uid = sa; pwd =; database = zcmrs Conn.open '=========================== Lisez les données de l'utilisateur du journal de la table =============. ========== 'Définir l'objet RecordSet Set rs = server.createObject (adodb.recordSet) 'Réglez le service de connexion de l'objet de connexion Définir Rs.ActiveConnection = Conn 'Régler le type de curseur Rs.cursortype = 3 'Ensemble de records ouverts Rs.Open Sélectionner le nom d'utilisateur, le mot de passe depuis Erpuser où username = '& username &' '==============================================. == Si Rs.Eof alors Errmsg = pourboire: l'utilisateur n'existe pas ou le mot de passe est mauvais Autre Si userPwd <> Rs.fields (mot de passe) alors Errmsg = Tip: Login a échoué! Else 'Connexion avec succès Errmsg = Session (passé) = Vrai Session (nom d'utilisateur) = Rs.fields (nom d'utilisateur) 'Identifier la session des autorisations utilisateur (utilisateur) = Rs.Fields (UserID) Terminer si Terminer si Terminer si Terminer si 'Après l'échec de la connexion, le formulaire de connexion sera dessiné Si ce n'est pas la session (passée) = TRUE alors %> <html> <A-Head> <Title> UNT intitulé Document </Title> <style type = text / css> <! - .Style1 {Font-Size: 12px; Font-Weight: Bold; margin-left: 120px; contour: double} -> </ style> <style type = text / css> <! - .Style2 {Font-Size: 12px; Font-Weight: Bold; contour: Double; Color: # FF3333} -> </ style> </ head> <Body Leftmargin = 0 topMargin = 0 marginheight = 0 marginwidth = 0 bgColor = # 000000> <div id = mortel style = hauteur: 300; largeur: 450; style bordure: solide; bordure-color: #fffff; margin-top: 80px; margin-left: 25%; marge-droite: 25%; arrière-plan- Couleur: #ffffff> <div id = Denglu Style = Font-Size: 12px; Font-Weight: Bold; Background-Color: # 0099FF; Text-Align: Center; Height: 40px;> <br> ERP System Login </div> <formulaire form = <% = request.servervariables (path_info)%> méthode = post name = myform id = myform> <p class = style1> nom d'utilisateur: <name d'entrée = nom d'utilisateur type = text id = nom d'utilisateur Taille = 18 maxLength = 20> </p> <p class = style1> mot de passe: <entrée name = userpwd type = mot de passe id = userpwd size = 18 maxLength = 20> </p> <p align = Center class = style2> <% = errmsg%> </p> <p> <Type d'entrée = soumettre Align = deuxième nom = soumettre Value = Connexion au système> <input name = rege type = Button align = middle onclick = location = 'register.asp' id = rege value = registre utilisateur> </p> </ form> </div> </docy> </html> <% '<p class = style1> Code de vérification: <entrée name = checkcode type = text id = checkCo |
Partager: ASP Expression régulière Apprentissage Nous pouvons facilement vérifier la légalité de diverses données par objet "Expression régulière". Tout d'abord, comprenons exactement quel est l'objet "Expression régulière" de VBScript.
2 pages de la page suivante de la page suivante précédente