< !-- #INCLUDE FILE="ASPSecurity.inc" --> < HTML> < BODY> < % dim ID dim aUser dim AppUsers dim authenticated dim I if Session("SupportsCookies") then if not isUser(Session("User")) then Response.Redirect "signon.asp" else set aUser = Session("User") end if else authenticated = false ID = Request("ID") if len(ID) > 0 then AppUsers = Application("Users") for each aUser in AppUsers if aUser("SessionID") = ID then authenticated=true aUser("LastActivity") = now() Application.Lock Application("Users") = AppUsers Application.UnLock exit for end if next end if if not authenticated then Response.Redirect "signon.asp" end if end if %>
