Jag har ställt till det för mig själv och jag vet inte vad jag gjort för fel. Men min kontroll vill inte godkänna mig mer och ser inte vad jag gör för fel. nam,n & pass är rätt ändå kommer jag bara till admin.asp :r :q
<%
Function secure(txt)
txt = Replace(txt, "'", "''")
secure = txt
End Function
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("admin.mdb")
Set RecSet = Server.CreateObject("ADODB.Recordset")
anvNamn = secure(Request.Form("anvnamn"))
losenord = secure(Request.Form("losenord"))
SQL = "SELECT niva, anvnamn FROM user WHERE anvnamn='" & anvnamn & "' AND losenord='" & losenord &"'"
RecSet.Open SQL, Connect, 3, 3
If not RecSet.EOF Then
Response.Cookies("anvnamn") = RecSet("anvnamn")
Response.Cookies("niva") = RecSet("niva")
If RecSet("niva")="1" Then
strPage="index.asp?action=inne"
elseIf RecSet("niva")="2" Then
strPage="index.asp?action=inne"
End If
RecSet.Close : set recset = nothing
Connect.Close : set connect = nothing
End If
Response.Redirect "index.asp"
%>
If Cint(RecSet("niva")) = 1 Then
strPage="index.asp?action=inne?action=inne"
elseIf Cint(RecSet("niva"))="2" Then
strPage="index.asp?action=inne?action=inne"
Response-objekt, ASP 0158 (0x80004005)
En URL krävs.
If Cint(RecSet("niva")) = "1" Then
strPage="index.asp?action=inne"
elseIf Cint(RecSet("niva")) = "2" Then
strPage="index.asp?action=inne"
End If
End If
RecSet.Close : set recset = nothing
Connect.Close : set connect = nothing
Response.Redirect strPage
Ja, 1=1 men 1!="1".
Om du konverterar något till en integer med hjälp av CInt(x), kan du inte jämföra det mot en sträng! Du använder nämligen inte " runt tal. Alltså:
if minString = "innehåll" then
eller
if minInteger = 1 then
beroende på om det är en sträng eller ett tal.
