<%
'***********************************
'Fungsi: BBIMG (L1, MAXIMGHEIGHT, MAXIMGWIDTH)
'Parameter: L1, jalur gambar; Maximgheight, tinggi gambar maksimum yang diijinkan; Maximgwidth, lebar gambar maksimum yang diijinkan
'Penulis: Alixi
'Tanggal: 2007/7/12
'Deskripsi: Batasi tinggi dan lebar maksimum gambar halaman
'Contoh: <%= bbimg ("alixixi.gif", 300.100)%>
'***********************************
FunctionBIMG (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 = tidak ada
fungsi endfungsi
%>