Søg
Avatar billede Slettet bruger
12. maj 2006 - 23:36 Der er 9 kommentarer og
1 løsning

Problem med oprette bruger funktion

Hej..

På www.leol.dk så når man opretter en bruger med mellemrum ( ) eller bindesteg(-) i så laver den et linjeskift i "Alle bruger" hvor man kan se brugerne.

Hvordan gør man at linjeskifter ikke kommer ved bindesteg og at man ikke kan lave et mellerum i sit brugernavn
Avatar billede cyberkox Nybegynder
13. maj 2006 - 07:51 #1
Den her burde virke:

<%
brugernavn = request.form("brugernavn")
mrum = instr(brugernavn," ")
bstreg = instr(brugernavn,"-")
if mrum <> 0 then
response.write "Strengen indholder mellemrum<BR>"
error = true
end if
if bstreg <> 0 then
response.write "Strengen indholder bindestreg<BR>"
error = true
end if

If error = false then
response.write "Tilføj brugeren, for han opfylder kriterierne"
else

response.write "FEJL"

end if
%>
Avatar billede Slettet bruger
13. maj 2006 - 10:52 #2
Min kode ser sådan her ud:
<%
' Databaseforbindelse - husk at angive sti til din database
if request.form("kon") = "" then
response.write("Husk at skrive dit køn")
else
if request.form("Landsdel") = "" then
response.write("Du mangler at skrive hvad landsdel du er fra")
else
if request.form("Alder") = "" then
response.write("Du mangler at skrive din alder")
else
if request.form("Fornavn") = "" then
response.write("Du mangler at skrive dit fornavn")
else
if request.form("Efternavn") = "" then
response.write("Du mangler at skrive dit efternavn.<br><font color='red'>Bemærk</font> denne oplysning bliver ikke vist på www.leol.dk og derfor for bliver hemmeligt.")
else
if request.form("Brugernavn") = "" then
response.write("Du mangler at skrive dit brugernavn")
else

if Request.Form("Email") = Request.Form("GEmail") then
if Request.Form("Kodeord") = Request.Form("GKodeord") then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/Brugersystem.mdb")
Conn.Open DSN

strSQL = "Insert into bruger (Fornavn, Efternavn, Alder, Brugernavn, Kodeord, Email, Kon, ProfilTekst, Landsdel) values('" & Request.Form("Fornavn") & "', '"& Request.Form("Efternavn") &"', '" & Request.Form("Alder") & "', '"& Request.Form("Brugernavn") &"', '" & Request.Form("Kodeord") & "','" & Request.Form("Email") & "','" & Request.Form("Kon") & "','" & Request.Form("ProfilT") & "', '" & Request.Form("Landsdel") & "')"
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing


else
response.write("Dine 2 kodeord er ikke ens")
end if
else
response.write("Dine 2 E-mails er ikke ens")
end if
end if
end if
end if
end if
end if
end if
%>


Hvordan skal den så være den kode du har lavet
Avatar billede eagleeye Praktikant
13. maj 2006 - 10:56 #3
du kan lave en funktion som tjekker for ulovlige karakter:


funktion tjekNavn (s)
navnOk = true
ulovligeKarakter  = " -"
for i = 1 to len(s)
  if instr(1, ulovligeKarakter, lcase(mid(s, i, 1)) > 0 then
    navnOk = false
    exit for
  end if
next
tjekNavn = navnOk
end function



Så kan du tjekke det sådan her:

navn = "abc xyz"
if tjekNavn(navn) = false then
  Response.Write "navnet indeholder en ugyldigværdi"
end if
Avatar billede eagleeye Praktikant
13. maj 2006 - 10:56 #4
Der mangler så lige en slut ) i if sætningen inde i funktionen sådan her:
if instr(1, ulovligeKarakter, lcase(mid(s, i, 1))) > 0 then
Avatar billede Slettet bruger
13. maj 2006 - 11:14 #5
Forstår ikke koden. Hvordan ville den se ud hvis det var i den kode jeg postede tidligere
Avatar billede cyberkox Nybegynder
13. maj 2006 - 11:20 #6
<%
' Databaseforbindelse - husk at angive sti til din database
if request.form("kon") = "" then
response.write("Husk at skrive dit køn")
else
if request.form("Landsdel") = "" then
response.write("Du mangler at skrive hvad landsdel du er fra")
else
if request.form("Alder") = "" then
response.write("Du mangler at skrive din alder")
else
if request.form("Fornavn") = "" then
response.write("Du mangler at skrive dit fornavn")
else
if request.form("Efternavn") = "" then
response.write("Du mangler at skrive dit efternavn.<br><font color='red'>Bemærk</font> denne oplysning bliver ikke vist på www.leol.dk og derfor for bliver hemmeligt.")
else
if request.form("Brugernavn") = "" then
response.write("Du mangler at skrive dit brugernavn")
else
if instr(request.form("Brugernavn"),"-") <> 0 then
response.write("Brugernavnet må ikke indeholde en bindestreg")
else
if instr(request.form("Brugernavn")," ") <> 0 then
response.write("Brugernavnet må ikke indeholde mellemrum")

if Request.Form("Email") = Request.Form("GEmail") then
if Request.Form("Kodeord") = Request.Form("GKodeord") then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/Brugersystem.mdb")
Conn.Open DSN

strSQL = "Insert into bruger (Fornavn, Efternavn, Alder, Brugernavn, Kodeord, Email, Kon, ProfilTekst, Landsdel) values('" & Request.Form("Fornavn") & "', '"& Request.Form("Efternavn") &"', '" & Request.Form("Alder") & "', '"& Request.Form("Brugernavn") &"', '" & Request.Form("Kodeord") & "','" & Request.Form("Email") & "','" & Request.Form("Kon") & "','" & Request.Form("ProfilT") & "', '" & Request.Form("Landsdel") & "')"
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing


else
response.write("Dine 2 kodeord er ikke ens")
end if
else
response.write("Dine 2 E-mails er ikke ens")
end if
end if
end if
end if
end if
end if
end if
end if
end if
Avatar billede cyberkox Nybegynder
13. maj 2006 - 11:21 #7
Der var lige en lille fejl, sådan:

<%
' Databaseforbindelse - husk at angive sti til din database
if request.form("kon") = "" then
response.write("Husk at skrive dit køn")
else
if request.form("Landsdel") = "" then
response.write("Du mangler at skrive hvad landsdel du er fra")
else
if request.form("Alder") = "" then
response.write("Du mangler at skrive din alder")
else
if request.form("Fornavn") = "" then
response.write("Du mangler at skrive dit fornavn")
else
if request.form("Efternavn") = "" then
response.write("Du mangler at skrive dit efternavn.<br><font color='red'>Bemærk</font> denne oplysning bliver ikke vist på www.leol.dk og derfor for bliver hemmeligt.")
else
if request.form("Brugernavn") = "" then
response.write("Du mangler at skrive dit brugernavn")
else
if instr(request.form("Brugernavn"),"-") <> 0 then
response.write("Brugernavnet må ikke indeholde en bindestreg")
else
if instr(request.form("Brugernavn")," ") <> 0 then
response.write("Brugernavnet må ikke indeholde mellemrum")
else

if Request.Form("Email") = Request.Form("GEmail") then
if Request.Form("Kodeord") = Request.Form("GKodeord") then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/db/Brugersystem.mdb")
Conn.Open DSN

strSQL = "Insert into bruger (Fornavn, Efternavn, Alder, Brugernavn, Kodeord, Email, Kon, ProfilTekst, Landsdel) values('" & Request.Form("Fornavn") & "', '"& Request.Form("Efternavn") &"', '" & Request.Form("Alder") & "', '"& Request.Form("Brugernavn") &"', '" & Request.Form("Kodeord") & "','" & Request.Form("Email") & "','" & Request.Form("Kon") & "','" & Request.Form("ProfilT") & "', '" & Request.Form("Landsdel") & "')"
Conn.Execute(strSQL)

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing


else
response.write("Dine 2 kodeord er ikke ens")
end if
else
response.write("Dine 2 E-mails er ikke ens")
end if
end if
end if
end if
end if
end if
end if
end if
end if
%>
Avatar billede Slettet bruger
13. maj 2006 - 11:47 #8
Tak
Avatar billede cyberkox Nybegynder
13. maj 2006 - 11:50 #9
Ka du bruge det? Så kommer der liget et svar :)
Avatar billede cyberkox Nybegynder
13. maj 2006 - 12:20 #10
Takker for point :-)
Avatar billede 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.

Loading billede Opret Preview
Kategori
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I går 18:58 Mellemled til forsendelse fra Tyskland Af nu_igen i E-handel
I går 12:44 Lenovo ThinkPad X1 Yoga Af mort1 i PC
03/0710:40 Dagens vits fra AI Af nu_igen i Andet software
03/0710:28 Stifinder gemmer de sidste 20 åbnede dokumenter, nu er de pludselig væk. Af Uvanga i Windows
01/0715:18 Min PC kan nu ikke se den ekstra skærm Af KurtG i Windows
White papers
Flere white papers »