Notifikationer

Markér alle som læst Log ud

gatez Nybegynder

18. maj 2003 - 20:32 Der er 11 kommentarer og
1 løsning

Brugernavn kun 1 gang

Hvordan laver jeg dette script om sådan at hvis en bruger prøver at oprette et brugernavn som allerade er i databasen så skal der komme en fejl ?

Her er min kode:

<%
Response.Buffer = True

brugernavn = Request("brugernavn")
fornavn = Request("fornavn")
password = Request("password")
efternavn = Request("efternavn")
postnummer = Request("postnummer")
land = Request("land")
email = Request("email")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../Database/bodykits.dk/brugersystem.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then

if brugernavn = "" then
Response.Write("<center>Du skal vælge et brugernavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if fornavn = "" then
Response.Write("<center>Du skal skrive dit fornavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if efternavn = "" then
Response.Write("<center>Du skal skrive dit efternavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if password = "" then
Response.Write("<center>Du skal vælge et password!. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if postnummer= "" then
Response.Write("<center>Du skal angive dit postnummer!. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if land= "" then
Response.Write("<center>Du skal angive hvilket land du bor i. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if email= "" then
Response.Write("<center>Du skal indtaste en e-mail adresse. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if fornavn <> "" AND land <> "" AND brugernavn <> "" AND password <> "" AND efternavn <> "" AND email <> "" AND postnummer <> "" then
rs.AddNew
rs("brugernavn") = Request.form("brugernavn")
rs("fornavn") = Request.form("fornavn")
rs("password") = Request.form("password")
rs("efternavn") = Request.form("efternavn")
rs("website") = Request.form("website")
rs("email") = Request.form("email")
rs("land") = Request.form("land")
rs("postnummer") = Request.form("postnummer")
rs("alder") = Request.form("alder")
rs("profiltekst") = Request.form("profiltekst")
rs("vip") = "Nej"
rs("hits") = "0"
rs.update
Response.Redirect("login.asp?besked=Din bruger er nu oprettet og klar til at logge ind.")
end if
end if
%>

Synes godt om

arne_v Ekspert

18. maj 2003 - 20:35 #1

Hvis du i databasen enten lader brugernavn være primær nøgle eller
laver et uniks index på brugermavn, så vil du få en fejl ved duplikat.

[jeg er ikke ASP kyndig så jeg kan ikke sige dig hvordan du fanger det i ASP]

Synes godt om

gatez Nybegynder

18. maj 2003 - 20:36 #2

Jeg vil helst have det i asp... Men ellers tak...

Synes godt om

-master-d- Nybegynder

18. maj 2003 - 20:37 #3

Brug den her :

<%
Response.Buffer = True

brugernavn = Request("brugernavn")
fornavn = Request("fornavn")
password = Request("password")
efternavn = Request("efternavn")
postnummer = Request("postnummer")
land = Request("land")
email = Request("email")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../Database/bodykits.dk/brugersystem.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strSQL2 = "Select * From bruger Where Brugernavn = '"& Request.form("brugernavn") &"'"
rs2.Open strSQL2, Conn, adOpenKeyset, adLockOptimistic
If rs2.bof or rs2.eof then
if brugernavn = "" then
Response.Write("<center>Du skal vælge et brugernavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if fornavn = "" then
Response.Write("<center>Du skal skrive dit fornavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if efternavn = "" then
Response.Write("<center>Du skal skrive dit efternavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if password = "" then
Response.Write("<center>Du skal vælge et password!. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if postnummer= "" then
Response.Write("<center>Du skal angive dit postnummer!. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if land= "" then
Response.Write("<center>Du skal angive hvilket land du bor i. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if email= "" then
Response.Write("<center>Du skal indtaste en e-mail adresse. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if fornavn <> "" AND land <> "" AND brugernavn <> "" AND password <> "" AND efternavn <> "" AND email <> "" AND postnummer <> "" then
rs.AddNew
rs("brugernavn") = Request.form("brugernavn")
rs("fornavn") = Request.form("fornavn")
rs("password") = Request.form("password")
rs("efternavn") = Request.form("efternavn")
rs("website") = Request.form("website")
rs("email") = Request.form("email")
rs("land") = Request.form("land")
rs("postnummer") = Request.form("postnummer")
rs("alder") = Request.form("alder")
rs("profiltekst") = Request.form("profiltekst")
rs("vip") = "Nej"
rs("hits") = "0"
rs.update
Response.Redirect("login.asp?besked=Din bruger er nu oprettet og klar til at logge ind.")
end if
end if
end if
%>

Synes godt om

Slettet bruger

18. maj 2003 - 20:40 #4

Du kunne sætte et check ind først:
Lav en select i databasen:
strSQL = "Select * From bruger where bruger = '" & brugernavn & "'"
rsBruger.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
If not rsBruger.EOF then
Response.Write "Brugernavnet findes allerede i databasen.
end if

Synes godt om

eagleeye Praktikant

18. maj 2003 - 20:40 #5

Det er nemere at bruge dette, du bruger alderrede et recordset og kan lige så godt udnytte det:

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger WHERE brugernavn = '" & brugernavn & "'"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
if NOT rs.EOF then
Response.write "Brugernavnet findes, brug et andet."
else
%>

'DET KODE DU HAR NU SOMN LIGGER I DATABASEN

<%
end if
%>

Synes godt om

gatez Nybegynder

18. maj 2003 - 20:40 #6

Hejsa Master-D
Jeg for desværre denne fejl:

Microsoft VBScript runtime error '800a01a8'

Object required: 'rs2'

/adduser-gem.asp, line 23

Synes godt om

Slettet bruger

18. maj 2003 - 20:41 #7

Hmm mine fingre er ikke så hurtig på tastaturet mere :-)

Synes godt om

arne_v Ekspert

18. maj 2003 - 20:44 #8

Det var heller ikke et svar.

Fordelen ved at lave det i databasen er at det altid virker.

Alle forsøg med:

hvis brugernavn ikke eksisterer så opret bruger

duer ikke i en mange-bruger kontekst.

Principielt kan testet om brugeren eksisterer returnere nej og
så kan en anden session oprette brugeren inden den første bruger
får oprettet brugeren.

Der findes måder at løse det på ved at LOCK'e tabel, men det er
langt nemmere med primær nøgle eller unik index og så bare
en fejl-håndtering i databasen.

Synes godt om

gatez Nybegynder

18. maj 2003 - 20:46 #9

Jeg kan slet ikke få det til at virke..... Er der ikke en der kan skrive hele kode som jeg så bare skal sætte ind ? Jeg alle mulige mærklige fejl når jeg selv prøver :-)

Synes godt om

eagleeye Praktikant

18. maj 2003 - 20:49 #10

<%
Response.Buffer = True

brugernavn = Request("brugernavn")
fornavn = Request("fornavn")
password = Request("password")
efternavn = Request("efternavn")
postnummer = Request("postnummer")
land = Request("land")
email = Request("email")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../Database/bodykits.dk/brugersystem.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger WHERE brugernavn = '" & brugernavn & "'"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
if NOT rs.EOF then
Response.write "Brugernavnet findes, brug et andet."
else
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then

if brugernavn = "" then
Response.Write("<center>Du skal vælge et brugernavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if fornavn = "" then
Response.Write("<center>Du skal skrive dit fornavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if efternavn = "" then
Response.Write("<center>Du skal skrive dit efternavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if password = "" then
Response.Write("<center>Du skal vælge et password!. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if postnummer= "" then
Response.Write("<center>Du skal angive dit postnummer!. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if land= "" then
Response.Write("<center>Du skal angive hvilket land du bor i. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if email= "" then
Response.Write("<center>Du skal indtaste en e-mail adresse. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if fornavn <> "" AND land <> "" AND brugernavn <> "" AND password <> "" AND efternavn <> "" AND email <> "" AND postnummer <> "" then
rs.AddNew
rs("brugernavn") = Request.form("brugernavn")
rs("fornavn") = Request.form("fornavn")
rs("password") = Request.form("password")
rs("efternavn") = Request.form("efternavn")
rs("website") = Request.form("website")
rs("email") = Request.form("email")
rs("land") = Request.form("land")
rs("postnummer") = Request.form("postnummer")
rs("alder") = Request.form("alder")
rs("profiltekst") = Request.form("profiltekst")
rs("vip") = "Nej"
rs("hits") = "0"
rs.update
Response.Redirect("login.asp?besked=Din bruger er nu oprettet og klar til at logge ind.")
end if
end if
end if 'Tjek på: NOT rs.EOF
%>

Synes godt om

Slettet bruger

18. maj 2003 - 20:50 #11

<%
Response.Buffer = True

brugernavn = Request("brugernavn")
fornavn = Request("fornavn")
password = Request("password")
efternavn = Request("efternavn")
postnummer = Request("postnummer")
land = Request("land")
email = Request("email")

Const adOpenKeyset = 1
Const adLockOptimistic = 3
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../Database/bodykits.dk/brugersystem.mdb") & ";UID=admin;PWD=;"

Set rs = Server.CreateObject("ADODB.RecordSet")
strSQL = "Select * From bruger"
rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic
%>
<% if Request.ServerVariables("REQUEST_METHOD") = "POST" then
strSQL2 = "Select * From bruger Where Brugernavn = '"& Request.form("brugernavn") &"'"
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs2.Open strSQL2, Conn, adOpenKeyset, adLockOptimistic
If rs2.bof or rs2.eof then
if brugernavn = "" then
Response.Write("<center>Du skal vælge et brugernavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if fornavn = "" then
Response.Write("<center>Du skal skrive dit fornavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if efternavn = "" then
Response.Write("<center>Du skal skrive dit efternavn. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if password = "" then
Response.Write("<center>Du skal vælge et password!. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if postnummer= "" then
Response.Write("<center>Du skal angive dit postnummer!. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if land= "" then
Response.Write("<center>Du skal angive hvilket land du bor i. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if email= "" then
Response.Write("<center>Du skal indtaste en e-mail adresse. Gå venligst tilbage og prøv igen. Tak! </center>")
end if

if fornavn <> "" AND land <> "" AND brugernavn <> "" AND password <> "" AND efternavn <> "" AND email <> "" AND postnummer <> "" then
rs.AddNew
rs("brugernavn") = Request.form("brugernavn")
rs("fornavn") = Request.form("fornavn")
rs("password") = Request.form("password")
rs("efternavn") = Request.form("efternavn")
rs("website") = Request.form("website")
rs("email") = Request.form("email")
rs("land") = Request.form("land")
rs("postnummer") = Request.form("postnummer")
rs("alder") = Request.form("alder")
rs("profiltekst") = Request.form("profiltekst")
rs("vip") = "Nej"
rs("hits") = "0"
rs.update
Response.Redirect("login.asp?besked=Din bruger er nu oprettet og klar til at logge ind.")
end if
end if
end if
%>

Synes godt om

gatez Nybegynder

18. maj 2003 - 20:53 #12

Takker eagleeye det virker nu... Takker!

Det virker som om du kender godt til asp... Jeg har et andet spørgsmål på:http://www.eksperten.dk/spm/354153
Om du kan svar der ? Tak!

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	6	I går 11:37	I går 22:03
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS