24. september 2004 - 01:37Der er
4 kommentarer og 2 løsninger
hvad har jeg nu gjort galt?
følgende kode opføre sig meget underligt
nogen (mig og 2 andre) kan logge ind via dette script
resten (har testet ca 25 maskiner) kan ikke logge ind...
koden og email en bliver hevet med til denne side, så det er ikke mangel på information som nægter folk adgang, kode og password er rigtigt.. men alligevel får de ikke lov yil at kome videre
her er koden
<% Response.Buffer=TRUE %>
<html> <head>
<title>user authentication</title>
</head> <body>
<% set myConn = server.createobject("ADODB.Connection") myConn.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= d:/www2/lz/db/database.mdb"
SqlQ = "Select * From PersonTabel Where email = '" & Request.Form("logemail") & "' And kodeord = '" & Request.Form("logkodeord2") & "'" Set rSqlQ = myConn.Execute(SqlQ) If Not rSqlQ.Eof Then Session("Useremail") = Request.Form("logemail") Session.Timeout = 10
str2 = "SELECT PersonID FROM PersonTabel WHERE email LIKE '" & Session("Useremail") & "'" set rs = myConn.Execute(str2)
Hvis de ikke kommer til loginok.asp siden, kan det være fordi de har deaktiveret JavaScript. Prøv at bruge ASP redirect funktionen i stedet for JavaScript location.href.
Jeg lavede sgu lige en kodegennemgang af det du postede her (fordi jeg kedede mig egentlig, og fordi jeg kunne bruge det som eksempel på fejlfinding i scripts...) :o) Så hvis du kan bruge det så er det her - løsningen på dit problem er sandsynligvis det samme som fennec's!
Håber ikke det gør noget...
Go fornøjelse
/hiks
<% Response.Buffer=TRUE %>
<html> <head>
<title>user authentication</title>
</head> <body>
<% Function OkTxt(strTxt)
dim str
str = Trim(strTxt) ' der bør nok replaces for yderligere chr's...
'tjek på kodeord if Len(LogePass) = 0 or Len(LogeMail) = 0 then Response.Redirect "loginfail.asp" Else set myConn = server.createobject("ADODB.Connection") myConn.Open = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source= d:/www2/lz/db/database.mdb"
SqlQ = "Select * From PersonTabel Where email = '" & LogeMail & "' And kodeord = '" & LogePass & "'" Set rSqlQ = myConn.Execute(SqlQ)
If Not rSqlQ.Eof Then Session("Useremail") = LogeMail Session.Timeout = 10
str2 = "SELECT PersonID FROM PersonTabel WHERE email LIKE '" & Session("Useremail") & "'" set rs = myConn.Execute(str2)
if rs.eof = False then Session("ID") = rs("PersonID") Session.Timeout = 10
gode forslag, det burde også rent logisk kunne løse problemet (et problem som er opstået sådan lidt vupti agtigt, har samme loginmodul på et andet site hos samme udbyder uden problemer), men min udbyder siger at det kan være fordi at jeg bruger en framepegning via DNS´en og de anbefaler URL pegninger.. hvad hulen er forskellen andet en linkstien i adressefeltet??
Mit modul kunne ikke køre i en iFrame.. min udbyder havde åbenbart ment at det var bedst da han oprettede det.... men da det blev fjernet og siden blev vist i "egen ramme" kørte det hele..
øv hvor jeg hader at spilde tid på sådan nogen dumme og i virkeligheden dybt unødvendige problemer...
nå men nok om det.. hvad siger du til at vi deler... som sagt burde dit forslag havde virket...
også må du undskyld den lange svartid
Duno :-)
Synes godt om
Ny brugerNybegynder
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.
