<%@ Language=VBScript %> Přihlášení uživatele do systému <% adresa = Request.QueryString("source") odkud = Request.QueryString("odkud") apend = "?source=" & adresa On Error Resume Next soubor = "../_private/user.mdb" zdroj = "DBQ=" & Server.MapPath(soubor) set objConn = server.createobject("adodb.connection") objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & zdroj set A = Server.CreateObject("adodb.Recordset") A.Open "SELECT * FROM user", objConn, 3, 3 hledany = LCase(Request.Form("username")) shoda = "ne" poznamka = "" Do Until A.EOF zaznam = LCase(A("username")) If (hledany = zaznam) Then shoda = "ano" id=A(0) username=A(1) password=A("password") poznamka = A("poznamka") If (A("strom") = "1") Then session("Strom") = 1 Else session("Strom") = 0 End If End If A.MoveNext Loop If (shoda = "ne") Then %>

Přihlášení uživatele

Uživatelské jméno není v databázi registrovaných uživatelů. Pokud jste se již zaregistrovali, zkuste prosím zkontrolovat svoje uživatelské jméno a opakujte přihlášení znovu.

<% Else If (LCase(password) <> LCase(Request.Form("password"))) Then %>

Přihlášení uživatele

Přístupové heslo není správné. Zkontrolujte prosím svoje heslo do systému a opakujte přihlášení znovu.

<% Else If poznamka = "autogener" Then soubor = "../_private/log" & id & ".txt" zdroj = Server.MapPath(soubor) Application.Lock Set ZData = objFileSys.CreateTextFile(zdroj, 8) datum = FormatDateTime(Now(),2) & ", " & time() radeklog = "30#" & datum & "#Vstupní kredit zdarma#" ZData.WriteLine(radeklog) ZData.Close Application.UnLock poznamka = "" soubor = "../_private/user.mdb" zdroj = "DBQ=" & Server.MapPath(soubor) set objConn = server.createobject("adodb.connection") objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & zdroj set A = Server.CreateObject("adodb.Recordset") A.Open "SELECT * FROM user WHERE id = " & id, objConn, 3, 3 nazvy = Array("poznamka") hodnoty = Array(poznamka) A.Update nazvy, hodnoty A.Close Set A = Nothing impulsy = 30 Else Application.Lock soubor = "../_private/log" & id & ".txt" zdroj = Server.MapPath(soubor) Set ZData = objFileSys.OpenTextFile(zdroj) Retez = ZData.ReadAll pocetzaznamu = ZData.Line ZData.Close impulsy = 0 Set ZData = objFileSys.OpenTextFile(zdroj) For i = 0 To pocetzaznamu - 2 radek = ZData.ReadLine B = Split(radek, "#") pohyb = CInt(B(0)) impulsy = impulsy + pohyb Next ZData.Close Application.UnLock End If Session("Registrace") = username Session("Impulsy") = impulsy Session("Id") = id %> <% End If End If %>