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>