Re: Registreringsside for asp [
Besvar ]
Av: Øyvind A. IsaksenHei,
Da kan du lage en funksjon som sjekker databasen og retunerer om brukeren finnes fra før eller ikke. Her er et lite eksempel i ASP.NET (VB) som viser en funksjon som sjekker om det finnes en bruker med et gitt brukernavn og passord fra før. Denne kan selvfølgelig benyttes for å bare sjekke brukernavn om det er ønskelig. Om det er opptatt returneres 1, hvis ikke returneres 0. Håper dette ga en liten idè om hvordan det kan gjøres.
Private Sub loginUser()
Dim intEmployeeID As Integer = validateUser(Me.txtUsername.Text, Me.txtPassword.Text)
If intEmployeeID > 0 Then
'Brukeren finnes
Else
'brukeren finnes ikke
End If
End Sub
Function validateUser(ByVal InputUsername As String, ByVal InputPassword As String)
Dim result As Integer = 0
Dim varEmployeeID As Integer
Dim varUser, varPassword As String
Dim SQL As String = "select employeeID from tblEmployee where email=@email and password=@password and active='1'"
Dim conn As New SqlConnection(variables.ConnString)
Dim cmd As New SqlCommand(SQL, conn)
Dim parameter1 As New SqlParameter("@email", InputUsername)
Dim parameter2 As New SqlParameter("@password", InputPassword)
cmd.Parameters.Add(parameter1)
cmd.Parameters.Add(parameter2)
Try
cmd.Connection.Open()
result = cmd.ExecuteScalar()
Catch ex As Exception
Me.lblMessage.Visible = True
Me.lblMessage.Text = "En feil har oppstått!"
Finally
If conn.State = ConnectionState.Open Then conn.Close()
End Try
cmd.Dispose()
conn.Dispose()
Return result
End Function
I ASP 3.0 kan du gjøre en sjekk på denne måten:
<%
dim Kobling, Utvalg, mittObjekt
Kobling = "Provider=SQLOLEDB; Data Source=NavnPåServer; Database=NavnPåDatabase; UID=BrukernavnPåDatabase; PWD=PassordPåDatabase;"
Utvalg= "Select * from tabellnavn"
set mittObjekt = server.CreateObject("ADODB.Recordset")
mittObjekt.Open Utvalg,Kobling
if Not mittObjekt.EOF
'Brukeren finnes:
Response.Write(mittObjekt.Fields("brukernavn") & " - brukernavnet finnes")
else
'Finnes ikke, du kan registrere brukeren.
end if
mittObjekt.Close
set mittObjekt=nothing
%>