<％
'*******************************
'関数：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 =何もない
エンド機能
％>