Recommandé: Tutoriel ADO débutant: affichage ADO La façon la plus courante d'afficher les données d'un ensemble d'enregistrements est d'afficher les données dans une table HTML. Afficher les noms de champ et les valeurs de champ Nous avons une base de données nommée Northwind, et nous voulons afficher les données dans la table des clients (n'oubliez pas d'enregistrer ce fichier avec .asp comme extension): htmlbody% Set Conn = server.createObject (
Script de vérification de la connexion de l'utilisateur, chkpwd.asp
- <%
- '========= 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
- IFiSempty (session (passé)) puis
- Session (passée) = false
- Endire
- 'Session (passé) = false, ce qui signifie que les informations de vérification transmises du formulaire n'ont pas encore été adoptées.
- IfSession (passé) = falsethhen
- Username = request.form (nom d'utilisateur)
- Userpwd = request.form (userpwd)
- IfUsername = alors
- Errmsg = Conseil: veuillez saisir votre nom d'utilisateur et votre mot de passe
- Autre
- '==============================================.
- SetConn = server.createObject (adodb.connection)
- Conn.ConnectionString = Driver = {sqlServer}; server = 192.168.1.3; uid = sa; pwd =; database = zcmrs
- Conn.open
- '=========================== Lisez les données de l'utilisateur de la table Log ========================================.
- 'Définir l'objet RecordSet
- Setrs = server.createObject (adodb.recordSet)
- 'Réglez le service de connexion de l'objet de connexion
- Setrs.activeConnection = Conn
- 'Régler le type de curseur
- Rs.cursortype = 3
- 'Ensemble de records ouverts
- Rs.OpenseLelectUserName, PasswordFromerPuserwhereserName = '& username &'
- '==============================================.
- Ifrs.eoftthen
- Errmsg = pourboire: l'utilisateur n'existe pas ou le mot de passe est mauvais
- Autre
- Ifuserpwd <> rs. champs (mot de passe) puis
- Errmsg = Tip: Login a échoué! Erreur de mot de passe?
- Else'logine 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)
- Endire
- Endire
- Endire
- Endire
- 'Après l'échec de la connexion, le formulaire de connexion sera dessiné
- Ifnotession (passé) = truethen
- %>
- <html>
- <A-Head> <Title> Design home_dwww.cn </Title>
- <Styletype = Text / CSS>
- <! -
- .Style1 {Font-Size: 12px; Font-Weight: Bold; margin-left: 120px; contour: double}
- ->
- </ style>
- <Styletype = Text / CSS>
- <! -
- .Style2 {Font-Size: 12px; Font-Weight: Bold; contour: Double; Color: # FF3333}
- ->
- </ style>
- </ head>
- <BodyLeftMargin = 0Topmargin = 0marginheight = 0marginwidth = 0bgColor = # 000000>
- <divid = parenstyle = hauteur: 300; largeur: 450; style bordure: solide; bordure de bordure: #fffff; margin-top: 80px; margin-left: 25%; marge-droit: 25%; fond-couleur: #fffff>
- <Divid = Denglustyle = Font-Size: 12px; Font-Weight: Bold; Background-Color: # 0099FF; Text-Align: Center; Height: 40px;> <br> Erp System Login </div>
- <formAction = <% = request.servervariables (path_info)%> méthode = postname = myformId = myform>
- <pclass = style1> nom d'utilisateur: <inputName = userNameType = textid = usernameSize = 18maxLength = 20>
- </p>
- <pclass = style1> Mot de passe: <inputName = userPwdType = PasswordId = userPwdSize = 18MaxLength = 20>
- </p>
- <palign = centerClass = style2> <% = errmsg%> </p>
- <p>
- <futType = Subitalign = MiddLename = soumidValue = Système de connexion>
- <putName = RegEType = Buttonalign = MiddleOnClick = Location = 'Register.asp'id = regeValue = Register User>
- </p>
- </ form>
- </div>
- </docy>
- </html>
- <%
- '<pclass = style1> Code de vérification: <inputName = checkCodeType = textid = checkCodeSize = 6MaxLength = 4>
- '<ImgStyle = margin-droite: 40pxalt = src = commun / getcode.asp> </p>
- réponse.
- Endire
- %>
Page pour visiter ERP.asp
- <! - # includeFile = chkpwd.asp ->
- <body>
- <divSTyle = 'font-size: 12px; font-weight: bold; border: 1pxsolid # 001; padding: 4px; background: #ffccff; margin-top: 0;'> bienvenue pour utiliser le système de requête ERP, l'utilisateur actuel déconnecté est:
- <%
- IfSession (passé) = truethen
- Réponse.write (session (nom d'utilisateur))
- Endire
- %> <href = logout.asp> quitter le système </a>
- </div>
- </docy>
Chaque fois que vous ouvrez ERP.asp, vous exécutez d'abord chkpwd.asp (), qui peut effectivement empêcher les utilisateurs non autorisés d'accéder à la page Web spécifiée.
Logout.asp System Exit
- <body>
- <%
- Session (passée) = false
- Session (nom d'utilisateur) =
- Réponse.redirect (index.asp)
- %>
- </docy>
Soumettre le formulaire à l'aide d'images
- <formName = form1Method = postaction =>
- <tdalign = droite> <inputType = ImageMetHod = soumename = submitsrc = image / loginin.gifwidth = 70Height = 21Alt = soumed> </td>
- </ form>
Partager: Tutoriel ADO débutant: ADO Ajouter des enregistrements Nous pouvons utiliser l'insert de SQL dans la commande pour ajouter des enregistrements aux tables de la base de données. Ajoutant des enregistrements aux tables de la base de données, nous voulons ajouter un nouvel enregistrement au tableau des clients dans la base de données Northwind. Nous devons d'abord créer un formulaire qui contient les champs que nous voulons sélectionner les données: HtmlBodyForm Method = Post Action = Dem