asp实现图片右键滑轮控制大小的函数
2018-09-06 12:32
<%
******************************
函数: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
%>
上一篇:ASP中使用SQL语句教程
文章标题:asp实现图片右键滑轮控制大小的函数
文章链接:http://soscw.com/index.php/essay/10415.html