Trápim sa z ASP

Keď som sa v pätnástich rozhodoval v čom kódiť PHP bolo pre mňa jasnou voľbou… Áno je to tak, bol som nútený napriek tomu troška prísť na zúbok “starému” ASP. Priznám sa, že o ASP viem, len to do akých uvádzacích tagov sa píše. Z ASP.NET som na to predsa len o niečo lepšie. Naštastie na prepracovanie jedného komerčného webu z PHP do ASP som o ňom nepotreboval vedieť veľa. Tu je pár informácií a skriptov, ktoré som použil. Možno sa tiež niekomu raz zídu (a ja ich budem mať takto po ruke .

Include
Toto neptrebuje komentár <!--#include file="file.inc"-->, kde file.inc je názov inkúdovaného súbora. Využitie nemusím asi taktiež nejako vysvetlovať.

Posledná aktualizácia stránky
Tento skript nám zobrazí dátum a čas modifikácie súboru, čo využjeme najmä pre zobrazenie poslednej aktualizácie webu. Zobrazenie zabezpečí funkcia LastModified().

<%

Function LastModified()
Dim FSO, F

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set F = FSO.GetFile(Request.ServerVariables("PATH_TRANSLATED"))
LastModified = F.DateLastModified
Set F = Nothing
Set FSO = Nothing
End Function 

%>

Posledná aktualizácia: <%=LastModified()%>

Zobrazenie náhodného obrázka
Skript zobrazuje náhodný obrázok z galérie. V tomto prípade jeden zo šiestich možných (súbory obrazok1 až obrazok6) umiestnených v podadresáry img. Samozrejme je možné generovať z menej či viac súborov. Podľa toho, koľko si ich umiestnime do poľa.

<%
dim generated_array
redim generated_array(6)

generated_array(1)="img/obrazok1.jpg"
generated_array(2)="img/obrazok2.jpg"
generated_array(3)="img/obrazok3.jpg"
generated_array(4)="img/obrazok4.jpg"
generated_array(5)="img/obrazok5.jpg"
generated_array(6)="img/obrazok6.jpg"

randomize timer
dim result
result=int(rnd*6)+1

dim strOut
select case result
     case 1
        strOut="<img src="&generated_array(1)&" border=0>"
     case 2
        strOut="<img src="&generated_array(2)&" border=0>"
     case 3
        strOut="<img src="&generated_array(3)&" border=0>"
     case 4
        strOut="<img src="&generated_array(4)&" border=0>"
     case 5
        strOut="<img src="&generated_array(5)&" border=0>"
     case 6
        strOut="<img src="&generated_array(6)&" border=0>"
end select
response.write (strOut)
%>