Förord

På nästan alla hemsidor du kommer till så presenteras reklam överallt. Det är nästan aldrig samma reklam som visas om man laddar om samma sida och det beror på att man använder en slumptalsgenerator. Det ör precis denna tekniken jag tänkte visa dig nu.

Innehåll

  » Funktionens innehåll
  » Börja skriva programmet
  » Lite om include

För detta så skriver vi enklast en funktion som du kan använda på valfri asp-sida för att få det så smidigt som möjligt. Vi behöver givetvis några bilder också och det kan du säkert hämta hem från någon publik sida. Vi behöver också tillgång till en webbserver med IIS och slutligen så skall vi använda oss av FileSystemObjects för att kontrollera vilka bilder som över huvudtaget finns att tillgå.

Funktionens innehåll

Vi börjar med att titta på funktionen i sig. En funktion som bekant returnerar någonting och vi kan även skicka in parametrar för att specificera vad vi vill ha tillbaks. Funktionen RandomImage har tre stycken inparametrar:

· ImagesFolderPath - Här skriver vi förslagsvis "/images"
· ImageFileTypes - Vi anger i en sekvens vilka bildtyper som vi vill få tillbaka [ex:gifjpgbmp]
· ImageDescription - Den text som skall visas som tooltip när du håller musen över bilden [ex: Min bild]

För att säkerställa att funktionen får rätt parametrar med sökväg och att bilder finns så har jag lagt in lite säkerheter också. Om ett speciellt fel uppstår så kommer det att returneras ett felmeddelande i textformat.

Börja skriva programmet

Nu skall vi börja titta på programkoden. Jag har detaljerat skrivit i koden vad varje moment gör för att du på bästa sätt skall kunna följa med i vad som görs och i vilken ordning.

<%
Function RandomImage(ImagesFolderPath, ImageFileTypes, ImageDescription)

'Deklarera variabler som skall användas
Dim CompleteImagesFolderPath
Dim FileSystemObject
Dim ImageFolder
Dim Files
Dim i
Dim ImageFiles
Dim File
Dim FileName
Dim FileExtension
Dim RandomNumber

' Finn den kompletta sökvägen till den katalog som förfrågas
CompleteImagesFolderPath = Server.MapPath(ImagesFolderPath)

' Skapa en instans till FileSystemObject som tillåter att vi med ASP
' kan komma åt serverns filsystem
Set FileSystemObject = Server.CreateObject("Scripting.FileSystemObject")

' Kontrollera om den efterfrågade katalogen innehåller några bilder
If Not FileSystemObject.FolderExists(CompleteImagesFolderPath) Then
RandomImage = "Fel 0: Kan inte finna katalogen"
Set FileSystemObject = nothing
Exit Function
End If

' Hämta katalogen som innehåller bilderna
Set ImageFolder = FileSystemObject.GetFolder(CompleteImagesFolderPath)

' Hämta en lista med alla dom filerna som finns i katalogen
Set Files = ImageFolder.Files

' Med Dictionary Object lagrar vi nu temporärt alla filnamn vi finner
i = 1
Set ImageFiles = Server.CreateObject("Scripting.Dictionary")

' Nu börjar vi att loopa igenom listan med filerna. Om nu filen har
' det prefix som vi valt via ImageFileTypes så adderar vi filnamnet
' till Dictionary Objekt
For Each File in Files

FileName = File.Name
FileExtension = Right(FileName, Len(FileName) - (InStrRev(FileName, ".")))

If InStr(1,ImageFileTypes,FileExtension,vbTextCompare) > 0 then
ImageFiles.Add i, FileName
i = i + 1
End If

Next

' Frigör dom objekt vi inte längre behöver
Set ImageFolder = nothing
Set Files = nothing
Set FileSystemObject = nothing

' Nu startar vi slumptalsgeneratorn
Randomize

' Fanns det några filer som vi skall använda oss av nu?
If ImageFiles.Count = 0 Then
RandomImage = "Fel 1: Denna katalog innehåller inga bildfiler."
Exit Function
End If

' Generera ett valfritt nummer mellan 1 och antalet bilder som finns
RandomNumber = Int((ImageFiles.Count) * Rnd + 1)

' Nu bygger vi ihop en htmlsträng som innehåller en av bilderna samt den
' tooltip texten som skall presenteras.
RandomImage = ""

' RandomImage är nu en html-sträng som returneras från funktionen och kan användas
' var som helst i ditt program. Exempel på att använda den ser du i nästa kapitel.


' Frigör även Scripting Dictionary objektet från minnet
Set ImageFiles = nothing

End Function
%>

Nu kan du antingen via en include-fil lagra funktionen och sedan använda den på den eller de sidor som du vill använda dig av den slumpmässiga bildvisaren.



<%Response.Write RandomImage("images/", "gif jpeg", "Klicka på min reklamlänk")%>


För varje gång sidan laddas om kommer alltså en ny bild att visas. Om du har många bilder så minskar chansen att besökaren kommer få se samma bild två eller fler gånger.

Lite om include

Om du har en katalog som heter include och i denna en fil som exempelvis heter common.asp där du placerar alla dina funktioner som du behöver på din hemsida så kan du enligt exemplet ovan bara skriva sökvägen till denna includefil så kommer du åt funktionen på precis varje sida.

Avslutningsvis
För att jag skall veta om kursen är bra eller om den måste skrivas om så rösta gärna här uppe till höger. Skicka gärna ett iMail om du vill kommentera något som är felaktigt eller du tycker borde förtydligas.

/Pelle Johansson

0 Kommentarer

Skriv en kommentar på artikeln

Ditt betyg på artikeln

UtmärktLäsvärdIntressantMindre braDålig

Kommentar: