Skripti http://oppe.admin.ut.ee/ained/tulemus/global.asa kood

VÄRVIDE TÄHENDUSED
   Serveripoolne skript
   Kliendipoolne skript
   Link
   Include-lause
   Freimid
   Kommentaarid
   Objekti link
   HTML ja tavaline tekst


<SCRIPT  LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnStart
'Aineregistrisse võib sattuda ainult arvutist oppe.admin.ut.ee.
'Erandiks on konkreetse (õppetooli) aine(te) info vaatamine, kuhu võib
'otse minna.
'Kui need tingimused pole täidetud, suunatakse kasutaja algus.asp-i.

'Üks sessioon (kasutaja olek aineregistris) on piiratud ühe tunniga:
  Session.TimeOut = 60

  startpage = "/ained/tulemus/algus.asp"
  currpage = LCase(Request.ServerVariables("SCRIPT_NAME"))
  masin = LCase(Request.ServerVariables("HTTP_REFERER"))

  if currpage <> startpage and Left(currpage,23) <> "/ained/tulemus/aine.asp" and Left(currpage,24) <> "/ained/tulemus/ained.asp" and currpage <> "/ained/tulemus/komplex.asp" then
   if Left(masin,24) <> "http://oppe.admin.ut.ee/" then
     Response.Redirect(startpage)
   end if
  end if
END SUB
</SCRIPT>