<%
'*********************************
'Funktion: BBIMG (L1, Maximgheight, Maximgwidth)
'Parameter: L1, Bildpfad; Maximgheigheight, maximal zulässige Bildhöhe; Maximgwidth, maximal zulässige Bildbreite
'Autor: Alixi
'Datum: 2007/7/12
'Beschreibung: Begrenzen Sie die maximale Höhe und Breite des Seitenbildes
'Beispiel: <%= BBIMG ("Alixixi.gif", 300.100)%>
'*********************************
FunctionBbimg (L1, Maximgheight, Maximgwidth)
DIML2, I2: L2 = L1
seti2 = newRegExp
I2.global = true
I2.Innorecase = true
I2.pattern = "<img. [^>]*(Src =" ". [^>]+?"). [^>]*> "
L2 = I2.Replace (L2, "<img $ 1onload =" "JavaScript: if (this.width>" & maximgWidth & ") this.style.width =" & maximgWidth & "; if ((( this.height> "& maximgheigh &") this.style.width = (this.width*"& maximgheigh &")/this.height; "// this.height;" "//>")
BBIMG = L2
seti2 = nichts
Endfunktion
%>