14 svar · 205 visningar · startad av Hallgren
Yo!
Rätt konstigt ämne eller hur. :e
DÅ tar vi det från början. Här kommer koden vi skall leka med.
<%
set dbcon = Server.CreateObject("ADODB.Connection")
dbcon.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.Mappath("restauranger.mdb")
if RequestCookies("lunchguiden")("uid") = "" Or RequestCookies("lunchguiden")("pwd") = "" then
set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & request.Form("uid") & "' And rest_pwd = '" & request.Form("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="login.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
if Request.Form("spara_losenord") = "ja" then
ResponseCookies("lunchguiden")("uid") = UID("rest_uid")
ResponseCookies("lunchguiden")("pwd") = UID("rest_pwd")
ResponseCookies("lunchguiden").Expires = Date + 365
end if
end if
else
set UID = dbcon.execute("SELECT * FROM rest WHERE rest_uid = '" & RequestCookies("lunchguiden")("uid") & "' And rest_pwd = '" & RequestCookies("lunchguiden")("pwd") & "'")
if UID.EOF then
%>Felaktigt lösenord<br><br><a href="login.asp">Försök igen</a><%
ResponseCookies("lunchguiden")("uid") = ""
ResponseCookies("lunchguiden")("pwd") = ""
ResponseCookies("lunchguiden").Expires = Date + 365
else
Session("login_id") = UID("rest_id")
Response.Redirect("meny.asp")
end if
end if
%>
Ett skript som läser av ID och lösen sedan skickarvidare användaren men pga lite prob. så måste vi lägga till en kolumn till i db och skriptet måste läsa av cärdet där och utifrån de värdet skall man skickas till respektive plats.
Typ:
else
Session("login_id") = UID("rest_id") <-här ska den även läsa av om kolumn "typ" är R eller P.
Response.Redirect("meny.asp")
Efter det ännu en else satts där den gör samma sak fast om det är det andra värdet skickas till en annan sida.
Någon som fattar? :e :e :e
------------------
Forumledare, webForum
else
Session("login_id") = UID("rest_id")
if cstr(uid("typ")) = "R" then
response.redirect "enasidan.asp"
elseif cstr(uid("typ")) = "P" then
response.redirect "andrasidan.asp"
else
'Vad händer här då?
end if
------------------
essentitia preter non sans multiplicandum
[Redigerat av LarsG den 07 aug 2001]
Tack!
Liten mini fråga här. Hur många karaktärer går det lagra i en db? Max, alltså.
------------------
Forumledare, webForum
Du menar i en kolumn?
PM/Memo i access 65K
Text i SQLserver/MySQL 2G
------------------
essentitia preter non sans multiplicandum
Access:
Text <= 255 tecken
Decimal/Numeric 28 siffror
Int 4 bytes dvs
-2**32 till 2**31-1
Pace:
Vad som händer? Inget spännande alls, man får väl något kryptiskt felmeddelande. Eller vad menar du?
------------------
essentitia preter non sans multiplicandum
Jaha, jag trodde han menade poster... :r
Hur många poster kan man ha då? (dvs till den ballar ur)
------------------
Peter D
Ett par miljoner borde du kunna trycka in innan det strular... ;)
------------------
Det är lättare att leva ett rikt liv som ung, när man vet att det väntar ett som gammal
E-post
Låt säga, rent hypotetiskt, att jag trycker in en miljard poster varav 5 st är av memo/pm och 5 st text/nr... hur "snabb" söktid skulle det vara tror ni :e ;)
------------------
Peter D
Testa ! :i
:e
<%for i = 0 to 9999999999
conn.execute("INSERT INTO tabell (a, s, d, f, g, h, j) VALUES('a', 's', 'd', 'f', 'g', 'h', 'j')")
next%>
[Anm] Se till att sätta server.scriptTimeOut "liiiiiiiite" högre än vanligt. :e :e
------------------
MVH // Cyprys
Cyprys
Synd att du inte kan köpa en voodoojordglob och sedan snurra på den fort som fan och skrämma skiten ur alla.
[Redigerat av cyprys den 07 aug 2001]
Jag ska fanimej göra det! :)
(kanske inte med en miljard poster, men ändå...) :e
[r] Ska bara säkerhetskopiera först... ;)
------------------
Peter D
[Redigerat av Pace den 07 aug 2001]