Skripti http://oppe.admin.ut.ee/ained/tulemus/komplexparing.asp kood
VÄRVIDE TÄHENDUSED
| |
Serveripoolne skript
|
| |
Kliendipoolne skript
|
| |
Link
|
| |
Include-lause
|
| |
Freimid
|
| |
Kommentaarid
|
| |
Objekti link
|
| |
HTML ja tavaline tekst
|
<%
'Tartu Ülikooli õppeaineregistri WWW-liides
'Autor: Aulis Sibola
'Juhendaja: Jaanus Pöial
'Komplekspäring andmebaasis.
'Päringustring saadakse sessioonimuutujast Paring.
'Väljastatakse ainete nimekiri.
'Edasi minnakse konkreetse aine info juurde.
'Eelmisel tehel sai OK väärtuseks true. Kontroll:
if not(Session("OK")) then
Response.Redirect "komplex.asp"
end if
'Kontrollitakse ka eelmist lehte:
if LCase(Request.ServerVariables("HTTP_REFERER")) <> "http://madu/ained/tulemus/komplexkontroll.asp" then
Response.Redirect "komplex.asp"
end if
%>
<!--#INCLUDE file="header.lisamine"-->
<%
'Et ei tekiks arusaamatusi, määratakse see leht kohe oma aja äraelanuks:
Response.Expires = 0%>
<html>
<head>
<title>Komplekspäring andmebaasis</title>
</head>
<!--#INCLUDE file="body.htm"-->
<%
'Avame ühenduse andmebaasiga:
'Ühenduse loomine:
Set yhendus = Server.CreateObject("ADODB.Connection")
'Andmebaasi avamine:
yhendus.Open "Aineregister"
Set ained = yhendus.Execute(Session("Paring"))
if ained.EOF then
%><h2>Kahjuks ei õnnestunud nende andmetega ühtegi ainet leida.</h2>
<%
else%>
<h2><center>
Antud andmetega leiti järgnevad ained:
</center></h2>
<!-- Ained väljastatakse tabelis -->
<table border=0>
<%
'Ainete väljastus:
Do While Not ained.EOF
eileidu = false
%><tr>
<td><%=ained("teaduskond")&ained("instituut")&"."&ained("oppetool")&"."&ained("nr")%></td><%
if IsNull(ained("nimi")) then
%> <td><a href=aine.asp?<%=ained("teaduskond")&ained("instituut")&"."&ained("oppetool")&"."&ained("nr")%>>__</a><%
else
%><td><a href=aine.asp?<%=ained("teaduskond")&ained("instituut")&"."&ained("oppetool")&"."&ained("nr")%>><%=ained("nimi")%></a><%
end if
if Not(IsNull(ained("loppoppeaasta"))) then
if ained("algoppeaasta") = ained("loppoppeaasta") then
Response.Write " (ühekordne aine " & ained("algoppeaasta") & "/"
Response.Write ained("algoppeaasta") + 1 & " õa.)"
else
Response.Write " (lõpetatud " & ained("loppoppeaasta") & " a.)"
end if
end if%></td>
</tr>
<%
ained.MoveNext
Loop
%></table>
<%
end if
'Korralik sulgemine:
ained.close
yhendus.close
%><!--#INCLUDE file="footer.htm"-->