---
title: "Läsa psw & usr från en db"
type: "forum-thread"
url: "https://www.webforum.nu/amne/asp/5537-läsa-psw-usr-från-en-db"
topic: "ASP"
topic_url: "https://www.webforum.nu/amne/asp"
author: "SPiN"
published: "2000-04-06T07:57:00.000Z"
updated: "2000-04-07T09:39:00.000Z"
replies: 5
views: 257
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/5537-läsa-psw-usr-från-en-db"
---

# Läsa psw & usr från en db

## #1 — SPiN, 2000-04-06T07:57Z

Hur gör man när man ska läsa från en databas(access)?

Jag har lagt in poster i en databas (password och användarnamn), och nu vill jag såklart att man ska logga in :)
Men jag får det inte att funka, fick denna kod förut, men den funkar inte...

```
<%
Dim strSQL
Dim strUserName
Dim strPassword

strUserName = Request.Form("usr")
strPassword = Request.Form("psw")

Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

strSQL = "SELECT * FROM users WHERE anvandare = '" & strUserName & "'"
strSQL = strSQL & " AND losenord = '" & strPassword & "'"

cn.Open "DSN=MDR"
rs.Open strSQL, cn, 3, 3

If rs.RecordCount = 1 Then

Session("SessionID") = Session.SessionID
Session("UserID") = rs("UserID")
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Response.Redirect Session("memberspage.asp")

Else

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
Session.Abandon
Response.Redirect("felpass.asp")

End If
%>
```

Jag tycker att det borde finnas med vilka drivers som kör osv, men var jag än la in det så går det inte :(

Hur göra?

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

## #2 — emission, 2000-04-06T08:22Z

Vad gör Session("SessionID") = Session.SessionID för nytta...

...och var är Session("memberspage.asp") definierad?

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

## #3 — mikael_a, 2000-04-06T09:58Z

jag brukar använda följande... du får nog modifiera den lite...

\*\*\*\*\*

\<!--#include file="../functions.inc"--\>

\<%
	Session("Logintries") = Session("Logintries") + 1

	If Session("user_name")="" Then

		Set Connection = Server.CreateObject("ADODB.Connection")
       Connection.Open "driver={Microsoft Access Driver (\*.mdb)};dbq=d:\\Inetpub\\wwwroot\\databas\\admin.mdb"
		SQLStmt = "SELECT \* FROM admin Where user_name = '" & FixaTecken(Request.Form("user_name")) & "' AND password = '" & FixaTecken(Request.Form("password")) & "'"
		Set RS = Connection.Execute(SQLStmt)		      
      
       If RS.EOF Then
		Response.Redirect("fel.asp")

		Else

            Session("user_name") = RS("user_name")
		Session("password") = RS("password")
		Session("Logintries") = 0
		
		RS.Close
		Connection.Close

		End If

	End If

%\>

\*\*\*\*  functions.inc \*\*\*\*

\<script language=VBScript runat=Server\>

'----------------------------------------------------
' \* FixaTecken \*
' Frisera till alla inkommande tecken så att de inte
' innehåller apostrof-tecken samt onödiga mellanslag.
'----------------------------------------------------

Function FixaTecken(sfix)

sfix = Replace(Trim(sfix), "'", "''")
sfix = Replace(sfix, "\|", "")
FixaTecken = sfix

End Function

'----------------------------------------------------
' \* RADBRYT \*
'----------------------------------------------------

Function Radbryt(rfix)

	rfix = "\<P\>" & Replace(rfix, vbCrLf, "\<br\>") & "\</P\>"
	Radbryt = rfix

End Function

'----------------------------------------------------
' \* ConvertLinks \*
' Fixa så att länkar blir länkade i HTML-koden.
' Nedanstånde kod kommer från [www.ojmnet.com](http://www.ojmnet.com) 
'----------------------------------------------------
Function ConvertLinks(svalue)

svalue = ConvertLinksHREF(svalue, "http://")
svalue = ConvertLinksHREF(svalue, "ftp://")
svalue = ConvertLinksHREF(svalue, "news://")
svalue = ConvertLinksHREF(svalue, "mailto:")

ConvertLinks = svalue
End Function

Function ConvertLinksHREF(svalue, sHREF)

Dim iPos1, iPos2, sTemp, sTemp1, sTemp2

iPos2 = 1
iPos1 = InStr(1, svalue, sHREF, 1)
Do While iPos1 \> 0
iPos2 = FindLinkEnd(svalue, iPos1 + Len(sHREF))
If iPos2 \> 0 Then
sTemp1 = Mid(svalue, iPos1, iPos2 - iPos1)
sTemp2 = "\<A HREF=" & Chr(34) & sTemp1 & Chr(34) & "\>" & sTemp1 & "\</A\>"
svalue = Left(svalue, iPos1 - 1) & sTemp2 & Mid(svalue, iPos2)
iPos2 = iPos1 & Len(sTemp2) + 1
Else
iPos2 = iPos1 + Len(sHREF)
End If
iPos1 = InStr(iPos2, svalue, sHREF, 1)
Loop

ConvertLinksHREF = svalue
End Function
Function FindLinkEnd(svalue, iPos1)
Dim iPos2, i, iLen, iTempPos
Dim sValidChars

sValidChars = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890-.@/"
iLen = iPos1 + Len(Mid(svalue, iPos1)) - 1
iPos2 = -1
For i = iPos1 To iLen
iTempPos = InStr(1, sValidChars, Mid(svalue, i, 1), 1)
If iTempPos = 0 Then
If i \< iPos1 + 4 Then
iPos2 = -1
Else
iPos2 = i
End If
Exit For
End If
Next
If iPos2 = 0 Then
iPos2 = Len(svalue) + 1
End If

FindLinkEnd = iPos2

End Function 

\</script\>

\*\*\*\*

hoppas det fungerar...

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

## #4 — SPiN, 2000-04-06T16:42Z

fel i inlägget... se nästa :)

\[Redigerat av SPiN den 06 apr 2000\]

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

## #5 — SPiN, 2000-04-06T16:56Z

Följande rader, vad ska man ha på dom? PWS förstår dem inte... 

```
Session("user_name") = RS("user_name")
Session("password") = RS("password")
Session("Logintries") = 0
```

och skulle du kunna förklara vad logintries gör? :)
tack tack annars, scriptet funkar förutom det jag just skrev... :D

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

## #6 — mikael_a, 2000-04-07T09:39Z

user_name -
namnet på cellen i databasen, där användarnamnet står.

password - 
namnet på cellen i databasen, där lösenordet står.

Loggentries -
håller reda på antal försök att logga-in.

\*\*\*\*\*\*  tex så här \*\*\*

\<% If Session("Logintries") \>= 3 Then\> Tyvärr, du har försökt att logga in felaktigt mer än tre gånger. Du är nu avstängd från systemet.

text, text, text, text,

\<%End If%\>

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

---

Tråden på webben: https://www.webforum.nu/amne/asp/5537-läsa-psw-usr-från-en-db