Vis et tilfældig billed

Gemmer du billeder stier/billede + teksten i en database ?

Jeg har ikke lavet noget endnu ... jeg håbede meget på at det bare kan laves med en txt fil ...

Hvis du blot skal bruge et tilfældigt tal (ID), kan du gøre sådan:

LowerBound = 1
UpperBound = 765
Randomize
RandomNumber = Int(Rnd * UpperBound) + LowerBound

Et eks som vælger en random linie fra en tekst fil:

http://www.aspfaqs.com/aspfaqs/ShowFAQ.asp?FAQID=184

Den skal jo både vise en tekst og et billed ...

Oasen ... det kan jeg da kun bruge ved db eller hva?

Nææ...også i forb. med en textfil.

Hvis der f.eks. er 76 linier i filen, og det tilfældige tal er 34, kan du bede den om kun at læse den 34-tyvende linie:


For intLine = 1 to RandomNumber - 1
  f.SkipLine
Next

' udskriv linie nr. 34
Response.write f.ReadLine


Men jeg er ikke helt klar over, hvad det egentlig er du efterlyser.

Oasen ... kan jeg få dig til at lave et eksempel på hvordan txt filen skal se ud og hvordan hele koden der henter informationerne ser ud?

Tjaa...tjoo..

Opret en ganske almindelig tekstfil og kald den f.eks. "test.txt"
I denne kan du i Notepad lave 20 linier. F.eks.:

a
b
c
d
e
f
osv...

Læg så nedenstående stykke kode i en asp-fil:

*************************************************

<html><head></head><body>
<%
LowerBound = 1
UpperBound = 20
Randomize
RandomNumber = Int(Rnd * UpperBound) + LowerBound

Dim fso, f, filespec
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("/test.txt")
Set f = fso.OpenTextFile(filespec,1)

For intLine = 1 to RandomNumber - 1
  f.SkipLine
Next

' udskriv linie nr. ?
Response.write "Tilfældig linie: Nr. " & f.ReadLine

f.close
%>

</body></html>

Takker ... det var lige sådan noget jeg skulle bruge ... :-D

Hvis der er andre der vil bruge det så skal de lige siges at linje 10 i asp filen skal rettes fra:
filespec = Server.Mappath("/test.txt")
til:
filespec = Server.Mappath("test.txt")

Ellers virker det ikke!

Derudover forsynet jeg min side med følgende kode for at skikre mig at siden ikke blev cached så billederne blev gemt og at der derfor ikke blev vist et nyt billede!

<%
    Response.Expires = 60
    Response.Expiresabsolute = Now() - 1
    Response.AddHeader "pragma","no-cache"
    Response.AddHeader "cache-control","no-store"
    Response.CacheControl = "no-cache"
    Response.Buffer = True
%>

Du kan nøjes med denne:

Response.Expires = -180

Ved at sætte den bagud i tiden tages der også hensyn til tidszoner, sommertid m.v.

Buffer'en har intet at gøre med cache'n - den angiver bare, hvordan siden skal indlæses hos klienten.