asp实现图片右键滑轮控制大小的函数

2018-09-06 12:32

阅读:406

  <%
******************************
函数: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;/>)
bbimg=l2
setI2=nothing
endfunction


%>


评论


亲,登录后才可以留言!