<% %> Slaughterarts
   News... | Hack-Acad | Downloads | Web-Projekte | System-Check | Kontakt
HACKACAD - ASP ServerObjekte - ASP Adrotator

  Der Adrotator bietet ein einfaches Bild/Banner Rotationsprogramm. Zunächst wird eine TXT Datei angelegt:

    REDIRECT adrotator.asp
    WIDTH 280 
    HEIGHT 60 
    BORDER 0 
    *
    banner1.bmp
    http://www.banner1.com/
    Banner1 ALT
    25
    banner2.bmp
    http://www.banner2.com/
    Banner2 ALT
    25
    banner3.bmp
    http://www.banner3.com/
    Banner3 ALT
    25
    banner4.bmp
    http://www.banner4.com/
    Banner4 ALT
    25
	
Die ersten 4 Zeilen beziehen sich auf alle einzubindenden Images. Nach dem * erfolgt die Auflistung der zu rotierenden Bilder mit Namen, URL Verlinkung, Alternativen Text und einer prozentualen Wahrscheinlichkeits Angabe (Gewichtung wie oft das Bild erscheint im Vergleich zu den anderen).

Auf der jeweiligen Rotationsseite wird folgender ASP Code eingebunden:

    <%
    SET adro = SERVER.CREATEOBJECT("MSWC.AdRotator")
    adro.Border="1"
    adro.Clickable=true
    adro.TargetFrame="target='_blank'"
    response.write (adro.GetAdvertisement("advertisement.txt"))
    %>
	
Die drei Parameter Border, Clickable und TargetFrame beziehen sich auf die Eigenschaften des jeweils angezeigten Bildes. Per GetAdvertisement wird dementsprechend bei jedem Seitenaufruf ein neues Banner/Bild gezeigt. Damit die Verlinkung funktioniert fehlen noch ein paar Zeilen ASP Code (zu Beginn der Seite):

    <%
    url=Request.QueryString("url")
    If url<>"" then 
    Response.Redirect url
    END IF
    %>