Programovanie Trápim sa z ASP
| Trápim sa z ASP |
|
| Streda, 12 január 2005 21:02 | ||||
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 troka 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 lepie. Natastie 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 pouil. Mono 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. Vyuitie 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 vyujeme 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 moných (súbory obrazok1 a obrazok6) umiestnených v podadresáry img.
Samozrejme je moné 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)
%>
Poučenie ku komentárom: |
||||
