<%@ LANGUAGE="VBSCRIPT"%> <% Response.Buffer=True%> Cvičení k ADO - (c) 2002 Doc. Ing. Radim Farana, CSc. <% ' Definice proměnných Dim CRLF CRLF = Chr(13) & Chr(10) ' Převzetí hodnoty z Cookies FigName = Request.Cookies("MyFirstFigure") Select Case FigName Case "Fig01" FigName = "Fig02" Case "Fig02" FigName = "Fig03" Case Else FigName = "Fig01" End Select ' Uložení názvu posledního obrázku do Cookies Response.Cookies("MyFirstFigure") = FigName Response.Cookies("MyFirstFigure").Expires = Date() + 5 ' Response.Cookies("MyFirstFigure").Domain = "localhost" ' Response.Cookies("MyFirstFigure").Path = "/AplInf" ' Response.Cookies("MyFirstFigure").Secure = False ' Uložení musí být provedeno před zápisem výstupu stránky! ' Vložení obrázku do stránky Response.Write "

Využití Cookies - změna obrázku na stránce

" & CRLF Response.Write "

Click on picture to go back

" & CRLF Response.Write "

Vložen obrázek: " & FigName & ".jpg. Při každém načtení (i reload) stránky je zobrazen jiný obrázek.

" %>