home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 March / Chip_2001-03_cd1.bin / bonus / shop / login3.asp < prev    next >
Text File  |  2000-12-06  |  6KB  |  174 lines
  1. <%@ Language=VBScript %>
  2. <html>
  3.  
  4. <head>
  5. <meta http-equiv="Content-Type" content="text/html; charset=windows-1250">
  6. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  7. <meta name="ProgId" content="FrontPage.Editor.Document">
  8. <title>P°ihlßÜenφ u₧ivatele do systΘmu</title>
  9. </head>
  10. <OBJECT RUNAT="server" PROGID="Scripting.FileSystemObject" id="objFileSys"></OBJECT>
  11. <body bgcolor="#FFFFFF" topmargin="5" leftmargin="5">
  12. <% 
  13. adresa = Request.QueryString("source")
  14. odkud = Request.QueryString("odkud")
  15. apend = "?source=" & adresa
  16. On Error Resume Next
  17. soubor = "../_private/user.mdb"
  18. zdroj = "DBQ=" & Server.MapPath(soubor)
  19. set objConn = server.createobject("adodb.connection")
  20. objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & zdroj
  21. set A = Server.CreateObject("adodb.Recordset")
  22. A.Open "SELECT * FROM user", objConn, 3, 3
  23. hledany = LCase(Request.Form("username"))
  24. shoda = "ne"
  25. poznamka = ""
  26. Do Until A.EOF
  27. zaznam = LCase(A("username"))
  28. If (hledany = zaznam) Then
  29. shoda = "ano"
  30. id=A(0)
  31. username=A(1)
  32. password=A("password")
  33. poznamka = A("poznamka")
  34. If (A("strom") = "1") Then 
  35. session("Strom") = 1
  36. Else
  37. session("Strom") = 0
  38. End If
  39. End If
  40. A.MoveNext
  41. Loop
  42. If (shoda = "ne") Then 
  43. %>
  44. <form action="uvod.asp" id="FORM1" method="post" name="FORM1"><table border="0" cellpadding="3" cellspacing="0" width="100%" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
  45.     <tr>
  46.       <td width="100%" bgcolor="#FFFFFF" bordercolor="#FFFFFF"><div align="center"><center>
  47.           <div align="center">
  48.             <table border="0" cellspacing="0" cellpadding="0" width="70%" bgcolor="#FFFFFF">
  49.               <tr>
  50.                 <td width="100%" align="center" bordercolordark="#C0C0C0">
  51.                   <p align="center"><font face="Verdana" color="#000080"><strong>P°ihlßÜenφ
  52.                   u₧ivatele</strong></font></p>
  53.                 </td>
  54.               </tr>
  55.             </table>
  56.           </div>
  57.           </div>
  58.         </center></td>
  59.     </tr>
  60.     <tr align="center">
  61.       <td width="100%" align="center" bgcolor="#FFFFFF"><table border="0" width="100%" cellspacing="0"
  62.       cellpadding="3">
  63.         <tr>
  64.           <td bgcolor="#E5E5E5" align="right"><div align="left"><p><font face="Verdana"><b><small>U₧ivatelskΘ jmΘno nenφ v databßzi registrovan²ch u₧ivatel∙. Pokud jste se ji₧ zaregistrovali, zkuste prosφm
  65. zkontrolovat svoje u₧ivatelskΘ jmΘno a opakujte p°ihlßÜenφ znovu.</small></b></font>
  66.             </div>
  67.           </td>
  68.         </tr>
  69.         <tr>
  70.           <td width="10%" bgcolor="#E5E5E5" align="left" nowrap>
  71.             <p align="center"><input type="submit" value=" Opakovat " id="submit" name="submit1"></td>
  72.          </tr>
  73.       </table>
  74.         </td>
  75.     </tr>
  76.   </table></form>
  77. <% 
  78. Else
  79. If (LCase(password) <> LCase(Request.Form("password"))) Then
  80. %>
  81. <form action="uvod.asp" id="FORM1" method="post" name="FORM1"><table border="0" cellpadding="3" cellspacing="0" width="100%" bordercolor="#FFFFFF" bgcolor="#FFFFFF">
  82.     <tr>
  83.       <td width="100%" bgcolor="#FFFFFF" bordercolor="#FFFFFF"><div align="center"><center>
  84.           <div align="center">
  85.             <table border="0" cellspacing="0" cellpadding="0" width="70%">
  86.               <tr>
  87.                 <td width="100%" align="center" bordercolordark="#C0C0C0">
  88.                   <p align="center"><font face="Verdana" color="#000080"><strong>P°ihlßÜenφ
  89.                   u₧ivatele</strong></font></p>
  90.                 </td>
  91.               </tr>
  92.             </table>
  93.           </div>
  94.           </div>
  95.         </center></td>
  96.     </tr>
  97.     <tr align="center">
  98.       <td width="100%" align="center" bgcolor="#FFFFFF"><table border="0" width="100%" cellspacing="0"
  99.       cellpadding="3">
  100.         <tr>
  101.           <td bgcolor="#E5E5E5" align="right"><div align="left"><p><font face="Verdana"><b><small>P°φstupovΘ heslo nenφ sprßvnΘ.
  102.               Zkontrolujte prosφm svoje heslo do systΘmu a opakujte p°ihlßÜenφ znovu.</small></b></font>
  103.             </div>
  104.           </td>
  105.         </tr>
  106.         <tr>
  107.           <td width="10%" bgcolor="#E5E5E5" align="left" nowrap>
  108.             <p align="center"><input type="submit" value=" Opakovat " id="submit" name="submit1"></td>
  109.          </tr>
  110.       </table>
  111.         </td>
  112.     </tr>
  113.   </table></form>
  114. <% 
  115. Else
  116. If poznamka = "autogener" Then
  117. soubor = "../_private/log" & id & ".txt"
  118. zdroj = Server.MapPath(soubor)
  119. Application.Lock
  120. Set ZData = objFileSys.CreateTextFile(zdroj, 8)
  121. datum = FormatDateTime(Now(),2) & ", " & time()
  122. radeklog = "30#" & datum & "#Vstupnφ kredit zdarma#"
  123. ZData.WriteLine(radeklog)
  124. ZData.Close
  125. Application.UnLock
  126. poznamka = ""
  127. soubor = "../_private/user.mdb"
  128. zdroj = "DBQ=" & Server.MapPath(soubor)
  129. set objConn = server.createobject("adodb.connection")
  130. objConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & zdroj
  131. set A = Server.CreateObject("adodb.Recordset")
  132. A.Open "SELECT * FROM user WHERE id = " & id, objConn, 3, 3
  133. nazvy = Array("poznamka")
  134. hodnoty = Array(poznamka)
  135. A.Update nazvy, hodnoty
  136. A.Close
  137. Set A = Nothing
  138. impulsy = 30
  139. Else
  140. Application.Lock
  141. soubor = "../_private/log" & id & ".txt"
  142. zdroj = Server.MapPath(soubor)
  143. Set ZData = objFileSys.OpenTextFile(zdroj)
  144. Retez = ZData.ReadAll
  145. pocetzaznamu = ZData.Line
  146. ZData.Close
  147. impulsy = 0
  148. Set ZData = objFileSys.OpenTextFile(zdroj)
  149. For i = 0 To pocetzaznamu - 2
  150. radek = ZData.ReadLine
  151. B = Split(radek, "#")
  152. pohyb = CInt(B(0))
  153. impulsy = impulsy + pohyb
  154. Next
  155. ZData.Close
  156. Application.UnLock
  157. End If
  158. Session("Registrace") = username
  159. Session("Impulsy") = impulsy
  160. Session("Id") = id
  161. %>
  162. <script language="JavaScript">
  163. <!--
  164. document.location = "uvod.asp"
  165. // -->
  166. </script>
  167. <%
  168. End If
  169. End If
  170. %>
  171. </body>
  172.  
  173. </html>
  174.