<%
'*********************************
Функция: bbimg (L1, Maximgheight, Maximgwidth)
'Параметры: L1, путь изображения; Maximgheight, максимально допустимая высота изображения; Maximgwidth, максимальная допустимая ширина изображения
Автор: Аликси
Дата: 2007/7/12
'Описание: Ограничьте максимальную высоту и ширину изображения страницы
Пример: <%= bbimg ("alixixi.gif", 300 100)%>
'*********************************
functionBbimg (L1, Maximgheight, Maximgwidth)
diml2, i2: l2 = l1
seti2 = newRegexp
I2.global = true
I2.ignorecase = true
I2.pattern = "<img. [^>]*(Src =" ". [^>]+?"). [^>]*> "
l2 = i2.replace (l2, "<img $ 1onload =" "javascript: if (this.width>" & maximgwidth & ") this.style.width =" & maximgwidth & "; if (this.height> "& maximgheight &") this.style.width = (this.width*"& maximgheight &")/this.height; "// this.height;
bbimg = l2
seti2 = ничего
конечная функция
%>