% Response.Expires = -1000 'Makes the browser not cache this page Response.Buffer = True 'Buffers the content so our Response.Redirect will work Session("UserLoggedIn") = "" %>
Programma di rilevazione timbrature Tempus |
|
|
|
Gestione: |
|
|
|
<%
If Request.Form("login") = "true" Then
CheckLogin
Else
ShowLogin
End If
Sub ShowLogin %>
<% End Sub
Sub CheckLogin
dim fs,f,user,pass,x
Set user= Request.Form("username")
Set pass= Request.Form("userpwd")
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f=fs.OpenTextFile(Server.MapPath("percorsoCartella/credenziali.txt"), 1)
do while f.AtEndOfStream = false
x=f.ReadLine
if( Trim(x) = (user & ":" & pass) ) Then
Session("UserLoggedIn") = "true"
End If
loop
f.Close
Set f=Nothing
Set fs=Nothing
If Session("UserLoggedIn") = "true" Then
Response.Redirect "comunicazioni.asp"
Else
Response.Write("Login Failed. ") ShowLogin End If End Sub %> |
|
|
|
|
|
Segreteria di Presidenza Tel. 095-532303 / Fax 095-531058 |
|
|
|