---
title: "Enklaste tänkbara community!"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/92436-enklaste-tänkbara-community"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "magnusfernstrom"
published: "2003-12-11T16:01:09.000Z"
updated: "2003-12-11T18:19:37.000Z"
replies: 16
views: 420
page: 1
pages: 1
language: "sv-SE"
site: "webForum — webforum.nu"
rights: "Upphovsrätten till varje inlägg tillhör dess författare."
attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/92436-enklaste-tänkbara-community"
---

# Enklaste tänkbara community!

## #1 — magnusfernstrom, 2003-12-11T16:01Z

Hej!

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. 

Säg att formulärkoden ser ut så här:

```
<form name="Inloggning" action="login2.asp" method="post">
Användarnamn:
<br>
<input type="text" name="FieldAnvandarnamn">
<br>
Lösenord:
<input type="password" name="FieldPassword">
<br>
<input type="submit" name="LoggaIn" Value="Logga in!">
</form>
```

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å.

Mycket tacksam för svar

Mvh Magnus Fernström

Permalänk: https://www.webforum.nu/p/92436

## #2 — Cannabis_Tomten, 2003-12-11T16:06Z

```
<%
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!

EDIT: // Lite fel i koden som jag själv hitade \\\\

Permalänk: https://www.webforum.nu/p/1227169

## #3 — magnusfernstrom, 2003-12-11T16:08Z

> **Cannabis_Tomten skrev:**
>
> 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.

Permalänk: https://www.webforum.nu/p/1227174

## #4 — Cannabis_Tomten, 2003-12-11T16:12Z

> **magnusfernstrom skrev:**
>
> > **Cannabis_Tomten skrev:**
> >
> > 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 =)

Permalänk: https://www.webforum.nu/p/1227176

## #5 — magnusfernstrom, 2003-12-11T16:33Z

Nääärå....
Så mycket hänger jag med att jag vet att jag måste ha en databaskoppling :D ;)

Permalänk: https://www.webforum.nu/p/1227187

## #6 — magnusfernstrom, 2003-12-11T16:36Z

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?

Permalänk: https://www.webforum.nu/p/1227188

## #7 — magnusfernstrom, 2003-12-11T16:49Z

Nepp! 
Det funkar inte.
Vad skall jag göra nu då?

Så här ser min kod ut efter ändringar och allt:

```
<%
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

Permalänk: https://www.webforum.nu/p/1227197

## #8 — Cannabis_Tomten, 2003-12-11T16:57Z

Sida 1

```
<input type="text" name="username"><br>
<input type="text" name="password"><br>
<input type="text" name="password2"><br>
<input name="Submit" type="submit" class="form" value="Registrera">
```

Sida 2

```
<%
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 =)

Permalänk: https://www.webforum.nu/p/1227201

## #9 — Cannabis_Tomten, 2003-12-11T17:00Z

> 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 =/ )

Permalänk: https://www.webforum.nu/p/1227203

## #10 — magnusfernstrom, 2003-12-11T17:08Z

Oj då.
Men fy fan vad JAG är klantig.
Jag SKA veta det där....men va fanken..jag VET ju att det ska stå så.
Så är det när man är en trött student :D

Permalänk: https://www.webforum.nu/p/1227208

## #11 — Cannabis_Tomten, 2003-12-11T17:10Z

> **magnusfernstrom skrev:**
>
> Oj då.
> Men fy fan vad JAG är klantig.
> Jag SKA veta det där....men va fanken..jag VET ju att det ska stå så.
> Så är det när man är en trött student :D

Även proffs gör misstag (tur att man inte är proffs :P) hehe, nee men jag örstår dej, vet hur d är att vara en trött student!

men iaf du fick registrering koden också samma veva. Enjoy!

Permalänk: https://www.webforum.nu/p/1227209

## #12 — magnusfernstrom, 2003-12-11T17:21Z

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

Permalänk: https://www.webforum.nu/p/1227219

## #13 — magnusfernstrom, 2003-12-11T17:31Z

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.

Permalänk: https://www.webforum.nu/p/1227229

## #14 — Cannabis_Tomten, 2003-12-11T17:37Z

> **magnusfernstrom skrev:**
>
> 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 =/

Permalänk: https://www.webforum.nu/p/1227236

## #15 — magnusfernstrom, 2003-12-11T18:07Z

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

Permalänk: https://www.webforum.nu/p/1227257

## #16 — Cannabis_Tomten, 2003-12-11T18:09Z

> **magnusfernstrom skrev:**
>
> 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!

Permalänk: https://www.webforum.nu/p/1227260

## #17 — magnusfernstrom, 2003-12-11T18:19Z

Nej chilisoft är tyvärr inget vidare :(

Permalänk: https://www.webforum.nu/p/1227269

---

Tråden på webben: https://www.webforum.nu/amne/asp/92436-enklaste-tänkbara-community