Då var man igång med ASP-kodandet igen då.
Och jag börjar med att åretuppta ett gammalt inlogging script.
Men efter 5 minuter slår jag på tangentbordet, svär, skriker och trycker frustrerande på DELETE knappen. Något är fel! Det funkar helt enkelt inte.
Mitt nuvarande script är rätt ut sagt kasst.
Det bestod av ca. 10 sessioner som någon hade tipsat mig om att
det var sååå bra. Men ack en sån röra det blir bland koden.
Så min fråga är nu, vad är det enklaste tänkbara inlogginngs scriptet?
Jag vill egentligen bara att den skall kolla upp användarnamnet samt lösenordet i databasen. Det är allt!
Så databasen består av tabellerna Id, Anvandarnamn samt Losen. Hur skall jag då gå tillväga för att få mitt script att kolla om man finns i databasen.
Jag förstår så mycket att jag skall ha ett formulär där man fyller i sina uppgifter för att sedan skickas vidare i scriptet eller till en annan sida för att sedan låta ett script kolla om uppgifterna i fälten stämmer överens med datan i databasen. Om den gör det så skapas en session som visar att man är inloggad och sedan skickas man vidare.
Ja, hur skall då ASP-koden se ut?
Jag har knåpat Rätt så länge utan några vidare resultat.
Jag har letat efter inloggingsscript på alla tänkbara sidor men alla är så röriga och är kodade med ASP-kod jag oftast aldrig sett. Ibland fungerar dom inte ens.
Så snälla tro nu inte jag är en latmask som inte orkar kolla upp grejer själv och skit i och hjälp mig!
Men som sagt, min fil med mitt förra inloggnings script är slängd :(
så det är inte så mycket att göra.
Detta måste jag få reda på för att sedan fråga om registreringsdelen, för en sådan hade jag också förut.
Men även den åkte i papperskorgen.
Observera att min server som jag laddar upp på är begränsad.
Så snälla :D Kom inte med en massa Adovbs.inc tjat och annat snack ;)
Om det går, berätta för mig hur jag gör mitt script med enklsate tänkbara ASP-kod. Gärna kortaste tänkbara ASP-kod också.
<%
dim struser, strpass
struser = request.form("FieldAnvandarnamn")
strpass = request.form("FieldPassword")
if strpass = "" then
error = "1"
end if
if struser = "" then
error = "1"
end if
if error = "1" then
response.redirect("NÅN SIDA DÄR DEM SÄGER ATT MAN MÅSTE MATA IN GREJJER")
else
SQL = "SELECT * FROM TABBELNAMN where KOLUMN_1='"&struser&"' AND KOLUMN_2='"&strpass&"'"
Set RS = conn.execute(SQL)
if RS.bof and RS.eof then
response.write "hörrödu.. fanns inge sådant i databsen"
Else
response.write "Wieee.. du är inloggad"
End IF
%>
d där är visserligen en del av min login sida.. lite strippad... men lite bibehållna funktioner iaf =) hehe.. hoppas d duger som mall så du kan ändra till det du vill!
d där är visserligen en del av min login sida.. lite strippad... men lite bibehållna funktioner iaf =) hehe.. hoppas d duger som mall så du kan ändra till det du vill!
Wow!
Verkligen ett JÄTTE stort tack till dig för ett supersnabbt och perfekt svar.....Hmmm men nu skall jag inte vara för glad :D Jag skall testa den också ;) Du vet.....gratis ASP-servrar...Hehe inte dom bästa.
d där är visserligen en del av min login sida.. lite strippad... men lite bibehållna funktioner iaf =) hehe.. hoppas d duger som mall så du kan ändra till det du vill!
Wow!
Verkligen ett JÄTTE stort tack till dig för ett supersnabbt och perfekt svar.....Hmmm men nu skall jag inte vara för glad :D Jag skall testa den också ;) Du vet.....gratis ASP-servrar...Hehe inte dom bästa.
Nemas Problemas! :birp
Glöm inte att infoga en Databas koppling också typ som denna
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("SÖKVÄG TILL DATABASEN")&";"
%>
sen efter all kod o allting kan du infoga detta också
<%
RS.close
Conn = nothing
%>
sen så ändrade jag mitt förra inlägg hittade lite fel i koden! =P så du slipper ha massa problem så kan du kopiera om den =)
Och när vi ändå är igång, har någon kanske ett mycket enkelt exempel på hur man skapar en sida som man kan registrera sig på?
Jag vet vad som behövs men inte hur jag skall gå tillväga.
Säg att man endast skall behöva fylla i namn och lösenord.
Det skall självklart inte gå att registrera samma användarnamn, ja bla bla bla ni förstår! En registreringssida helt enkelt.
Krävs det mer kod?
Har någon lust att ge mig exempel kod på det med?
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)}; dbq=" & Server.MapPath("login.mdb")
dim struser, strpass
struser = request.form("FieldAnvandarnamn")
strpass = request.form("FieldPassword")
if strpass = "" then
error = "1"
end if
if struser = "" then
error = "1"
end if
if error = "1" then
response.redirect("login.asp")
else
SQL = "SELECT * FROM Medlemmar where Anvandarnamn='"&struser&"' AND Losen='"&strpass&"'"
conn.execute(SQL)
if RS.bof and RS.eof then
response.write "Ej medlem!"
Else
response.write "Inloggad!"
RS.close
conn = nothing
%>
Kan någon se något fel?
Jag använder mig just nu av Brinkster om det kan vara till någon hjälp att veta :D
<%
dim username, password, password2
username = request.form("username")
password = request.form("password")
password2 = request.form("password2")
If username = "" then
response.redirect("SIDA SOM SÄGER ATT SAKER SKALL MATAS IN")
end if
if password <> password2 then
response.redirect("SIDA SOM SÄGER ATT SAKER SKALL MATAS IN")
end if
set o = new regexp
o.global = true
o.pattern = "(^[A-Za-z0-9_]+$)"
if not o.test(username) then
response.write " DU FÅR ENDAST ANVÄNDA A-Z, a-z, 1-9, _"
end if
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("SÖKVÄG TILL DATABSEN")&";"
Set RS = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM TABELLNAMN where KOLUMN_1='"&username&"'"
Set RS = conn.execute(SQL)
if rs.bof and rs.eof then
SQL = "Insert Into TABELLNAMN (kolumn_1, kolumn_2) Values ('"&username&"' , '"& Password&"')"
conn.execute(SQL)
Response.write "Jaaaa du är medlem"
RS.close
Conn = nothing
else
Response.write "sorry användarnamnet finns redan"
end if
ahh där har du väl något som du söker va??
EDIT: // Databas kopplingen hamnade på fel ställe i koden =) ändrat nu, samt ett SET RS =, som inte behövdes vid inmatningen har jag tagit bort, då vi inte skall hämta ett RS =)
Kan någon se något fel?
Jag använder mig just nu av Brinkster om det kan vara till någon hjälp att veta
Jajjamensan!
SQL = "SELECT * FROM Medlemmar where Anvandarnamn='"&struser&"' AND Losen='"&strpass&"'"
[b]Set RS[/b] = conn.execute(SQL)
if RS.bof and RS.eof then
eftersom vi vill hämta ett recordset så måste vi använda oss av SET RS också =) jag redigerade min kod innan, men du har säkert missat det =)
Posta gärna felmedelande också =) så man vet vilken typ av fel man ska leta efter =) hehe! nu råkade jag visserligen se detta fel (kanske inte det enda =/ )
Nej, det är konstigt.
Men jag prövar på två olika webbhotell och båda säger att dom inte hittar filen....
Alltså men kan se alla mina andra filer som är uppladdade.
Det måse vara något som gör att den verkar osynlig Ha!
Jag begriper INGENTING :D
Fast äääääää inloggningen funkar inte heller :(
Men du...Du ska ha jätte mycket tack för att du engagerade dig och letade upp/skrev kod till mig.
Hehe d e lugnt!
men hmm... testa på en privat server.. typ sätt upp IIS på din PC å testa! d e juhe dem här gratid hotellen som ibland inte vill se riktigt =/
Lättare sagt än gjort du!
Jag har XP Home, vilket antagligen är det svåraste operativsystemet att få upp en vettig ASP server på.
Du förstår, jag har försökt och skaffa en webserver.
Men dom vill ju som allt annat aldrig fungera så jag gav upp. :D
Lättare sagt än gjort du!
Jag har XP Home, vilket antagligen är det svåraste operativsystemet att få upp en vettig ASP server på.
Du förstår, jag har försökt och skaffa en webserver.
Men dom vill ju som allt annat aldrig fungera så jag gav upp. :D
Testa Apache + Chilisoft ASP @ XP home
men jag vet inte om chilisoft stödjer alla ASP funktionerna!..
t.ex Server.Execute stöder det inte... RegExp vet jag dessvärre inte om d stödjer eller inte, tror inte det? men inte helt säker!
