<% LANGUAGE = JScript %> Gestione Password & Pin <% Dim Password, PIN '****************************************************** ' CREAZIONE DI PASSWORD CARATTERI E NUMERI '****************************************************** caratteri = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" Randomize ' inizializza il generatore di numeri casuale Do Until len(password) = 6 ' qui imposti la lunghezz'a della password carattere = Int((62 * Rnd) + 1) ' Genera un valore casuale compreso tra 0 e z. password = password + Mid(caratteri,carattere,1) Loop '********************************************* ' FINE CREAZIONE PASSWORD '********************************************* '****************************************************** ' CREAZIONE DEL PIN CARATTERI E NUMERI '****************************************************** Randomize ' inizializza il generatore di numeri casuale Do Until len(pin) = 4 ' qui imposti la lunghezz'a del pin carattere_x = Int((37 * Rnd) + 1) ' Genera un valore casuale compreso tra 0 e Z. pin = pin + Mid(caratteri,carattere_x,1) Loop '********************************************* ' FINE CREAZIONE PIN '********************************************* ' inserire la verifica della password Response.Write ("
") Response.Write ("
") Response.Write ("
") %> <% ' verifica della password e del PIN Dim cn, rs ' Variabili per la connessione e per il Recordset Dim x_Password, x_PIN x_password = Password x_PIN = PIN ' Creo un'istanza per la connessione ed una per il Recordset Set cn = Server.CreateObject("ADODB.Connection") Set rs = Server.CreateObject("ADODB.Recordset") cn.Open MM_ecommerce_STRING ' Apro la connessione al database Dim SQL ' Creo la query SQL SQL = "SELECT * FROM admins Where Password = '" & x_Password &"' AND PIN = '" & x_PIN &"'" ' Apro il Recordset rs.Open SQL, cn ' Verifico che la tabella contenga dati ' Se non ne contiene lancio un messaggio di avviso If rs.EOF = True Then %> <% ' Chiudo il Recordset rs.Close Set rs = Nothing Set rs = Server.CreateObject("ADODB.Recordset") SQL = "SELECT * FROM admins" '********************************************************* ' INSERISCO I DUE CAMPI NELL'ARCHIVIO ADMINS '********************************************************** rs.Open SQL, cn, 1, 3 rs.AddNew rs("password") = x_password rs("Username") = "nascita" rs("pin") = x_pin rs("accesso") = "utente" rs.Update %>
Martinucci Prima Infanzia

CODICI DELLA LISTA DA CONSERVARE

Password : <% response.Write password %>

PIN : <% response.Write PIN %>
 

 
 Esci

 

 

 
 

 <% ' Se invece contiene i dati contenuti in Password e PIN Else While rs.EOF = False %> <% rs.MoveNext Wend End If %> <% ' Chiudo il Recordset rs.Close Set rs = Nothing ' Chiudo la connessione cn.Close Set cn = Nothing %>