asp實(shí)現(xiàn)圖片右鍵滑輪控制大小的函數(shù)
更新時(shí)間:2007年08月08日 11:59:13 作者:
<%
'******************************
'函數(shù):bbimg(l1,maximgheight,maximgwidth)
'參數(shù):l1,圖片路徑;maximgheight,最大允許圖片高度;maximgwidth,最大允許圖片寬度
'作者:阿里西西
'日期:2007/7/12
'描述:限制頁面圖片的最大高度和寬度
'示例:<%=bbimg("alixixi.gif",300,100)%>
'******************************
function bbimg(l1,maximgheight,maximgwidth)
dim l2,I2:l2=l1
set I2=new regexp
I2.global=true
I2.ignorecase=true
I2.pattern="<img.[^>]*(src="".[^>]+?"").[^>]*>"
l2=I2.replace(l2,"<img $1 onload=""javascript:if(this.width>"&maximgwidth&")this.style.width="&maximgwidth&"; if(this.height>"&maximgheight&")this.style.width=(this.width*"&maximgheight&")/this.height;"" />")
bbimg=l2
set I2=nothing
end function
%>
'******************************
'函數(shù):bbimg(l1,maximgheight,maximgwidth)
'參數(shù):l1,圖片路徑;maximgheight,最大允許圖片高度;maximgwidth,最大允許圖片寬度
'作者:阿里西西
'日期:2007/7/12
'描述:限制頁面圖片的最大高度和寬度
'示例:<%=bbimg("alixixi.gif",300,100)%>
'******************************
function bbimg(l1,maximgheight,maximgwidth)
dim l2,I2:l2=l1
set I2=new regexp
I2.global=true
I2.ignorecase=true
I2.pattern="<img.[^>]*(src="".[^>]+?"").[^>]*>"
l2=I2.replace(l2,"<img $1 onload=""javascript:if(this.width>"&maximgwidth&")this.style.width="&maximgwidth&"; if(this.height>"&maximgheight&")this.style.width=(this.width*"&maximgheight&")/this.height;"" />")
bbimg=l2
set I2=nothing
end function
%>
相關(guān)文章
asp下多個(gè)域名后綴同時(shí)查詢的域名查詢系統(tǒng)
asp下多個(gè)域名后綴同時(shí)查詢的域名查詢系統(tǒng)...2007-03-03asp取整數(shù)mod 有小數(shù)的就自動(dòng)加1
這篇文章主要介紹了asp取整數(shù)mod 有小數(shù)的就自動(dòng)加1,需要的朋友可以參考下2021-04-04asp實(shí)現(xiàn)本周的一周時(shí)間列表的代碼
原理也相對簡單,就是利用date函數(shù)獲取日期,然后通過固定的字符串?dāng)?shù)組進(jìn)行替換。2009-02-02ASP checkbox復(fù)選框是否被選中的代碼(結(jié)合數(shù)據(jù)庫)
ASP從數(shù)據(jù)庫中讀出復(fù)選框是否被選中的代碼2010-06-06