<٪
'*********************************
'الوظيفة: BBIMG (L1 ، Maximgheight ، Maximgwidth)
المعلمات: L1 ، مسار الصورة ؛ Maximgheight ، أقصى ارتفاع في الصورة المسموح به ؛ MaximgWidth ، أقصى عرض للمعلومات المسموح به
المؤلف: Alixi
"التاريخ: 2007/7/12
الوصف: الحد من أقصى ارتفاع وعرض صورة الصفحة
"مثال: <٪ = bbimg (" alixixi.gif "، 300،100) ٪>
'*********************************
FunctionBbimg (L1 ، Maximgheight ، Maximgwidth)
DIML2 ، I2: L2 = L1
seti2 = newregexp
i2.global = صحيح
i2.ignorecase = صحيح
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 = لا شيء
الوظيفية
٪>