< soort
ingang = " hidden " name = " RefURL " value = " < % = Request.QueryString ( " RefURL " ) % > " > < input type = " text " name = " Gebruikersnaam " size = " 19 " een titel = " Voer gebruikersnaam . " tabindex = " 1 " > < input type = " password " name = "Wachtwoord " size = " 19 " a title = " Wachtwoord invoeren . " tabindex = " 2 " >

< /form >
3

Stuur het formulier gegevens naar de verwerking pagina om die informatie voorgelegd wedstrijden informatie die is opgeslagen in de database controleren . Lijnen 1-5 verzoeken de RefURL van de belangrijkste pagina of uw website aan de gebruiker te sturen naar of de juiste login wordt verstrekt . Lijnen 5-10 open een verbinding met de database en recordset controleert vervolgens om te zien of de door u ingevoerde gegevens overeenkomt met een regel in de database . Regels 11-17 zien als wat u heeft ingevoerd correct is en ofwel stuurt u terug naar login.asp als " False " ( verkeerde login gegevens ) of als " True " wordt een sessie voor de gebruiker . Lijnen 18-19 sluit de verbinding met de database en de recordset . Lijn 12 maakt de boodschap aan de gebruiker te geven en voegt het op de URL , zodat het vertelt de gebruiker ze de verkeerde informatie ( zie stap 4 ) . Naam geven en opslaan van de verwerking pagina " login_proc.asp " .

< % Als Request.Form ( " RefURL " ) < > " " ThenRefURL = Request.Form ( " RefURL " ) ElseRefURL = " admin /default.asp " Eind als

Set
Conn = Server.CreateObject ( " ADODB.Connection " ) Conn.Open " PROVIDER = SQLOLEDB ; DATA SOURCE = mssql02.1and1.com ; UID = dbo266996089 ; PWD = dhaka06 ; DATABASE = db266996089 " Set RS = Server.CreateObject ( " ADODB.Recordset " ) op Twitter

SQL = " SELECT * FROM tbl_Login WHERE gebruikersnaam = ' " & Request.Form ( " Gebruikersnaam " ) & " ' AND wachtwoord = ' " & Request.Form ( " Password " ) & " ' "

Set RS = Conn.Execute ( SQL ) op

Als rs.EOF thenResponse.Redirect ( " login.asp ? MSG = Ongeldige gebruikersnaam of wachtwoord . Probeer het opnieuw ! " ) ElseSession ( " Gebruiker " ) = TrueSession ( " gebruikersnaam " ) = RS ( " Gebruikersnaam " ) Response.Redirect RefURLEnd Als

Set Conn = NothingSet RS = Nothing % >
4

Voeg de volgende regel code recht boven uw formulier code ( stap 2 ) in login.asp .

< % = Request.QueryString ( " msg " ) % >

Als er een succesvolle databank overeenkomen met uw pagina wordt weergegeven aan de gebruiker.Als geen match is gevonden de code in stap 3 wordt de gebruiker terug te sturen naar de login.asp pagina en geef het bericht " Ongeldige gebruikersnaam of wachtwoord . Probeer het opnieuw! " .