Zalaegerszegi Zrínyi Miklós Gimnázium
<%@ Page Language="VB" Debug="true" %> <% Dim Nev() As String={"A tehetsges dikokrt","Dr. Boleratzky Gyula trtnelmi plyzat","Dr. Vida Sndor filozfiai dj"} Dim MappaNev() As String={"tehetseg","boleratzky","vida"} Dim MaxIndex As Integer = Nev.Getupperbound(0) Dim Tanev As Integer Dim Ma As DateTime = DateTime.Today() Dim Veg As DateTime = DateSerial(Ma.Year,6,30) If Ma>Veg Then Tanev=Ma.Year Else Tanev=Ma.Year-1 End If %>

Foldal - Dokumentumok - Plyzati kirsok

Plyzati kirsok

A <%= Tanev & "/" & Tanev+1 %>. tanv plyzati kirsai

    <% Dim I, J, N As Integer Dim Ut, Ut1, Ev(), Fajlok() As String Dim Van As Boolean = False Ut = Request.ServerVariables("PATH_TRANSLATED") Ut = Left(Ut,Ut.Length-11) & "palyaz\" For I=0 To MaxIndex Ut1=Ut & Mappanev(I) & "\" & Tanev & Mappanev(I) & ".pdf" If IO.File.Exists(Ut1) Then Van=True Response.Write("
  • ") Response.Write("") Response.Write(Nev(I) & "") Response.Write("
    • ") End If Next If Not Van Then Response.Write("Hamarosan kvetkeznek.") End If %>

Plyzati kirsok archvum

    <% For I=0 To MaxIndex Response.Write("
  • ") Response.Write(Nev(I)) Response.Write("
    ") Ut1=Ut & Mappanev(I) Fajlok=IO.Directory.GetFiles(Ut1) N=Fajlok.GetUpperBound(0) ReDim Ev(N) For J=0 To N Ev(J)=IO.Path.GetFileName(Fajlok(J)) Next Array.Sort(Ev) Ut1="") Response.Write(Left(Ev(J),4) & ", ") Next Response.Write(Ut1 & Ev(N) & """>") Response.Write(Left(Ev(N),4) & "") Response.Write("
    ") Response.Write("
    • ") Next %>

www.zmgzeg.edu.hu
Látogatók 2020. jan. 1. óta (Pageviews: a megnyitott oldalak száma)
Flag Counter