当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp实现图片右键滑轮控制大小的函数

ASP
论坛树状记录表的堆栈展开
Oracle大文本在ASP中存取问题的解决
ASP创建SQL Server数据库的两种方法
浅谈session_onend的调试
用ASP访问数据库的几种常见方式
教你一次下载网页中的所有资源
20种看asp源码的方法及工具
在ASP中使用智岛网格控件全过程
解决使用ASP无法连接ORACLE 9i数据库的问题
用Js判断输入的时间是否有效
ADO数据与XML数据间的转换的类
使用命名管道访问SQL Server
网页加速之网页结构篇
在红蜻蜓中实现多房间
在ASP中使用Oracle数据库技巧
关于分页办法
在VB中使用API函数(Any)
网站ASP漏洞小总结
网页之定时器详解
实用函数- 判断输入的是否是电话号码

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


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-10-12   浏览: 163 ::
收藏到网摘: n/a

<%
'******************************
'函数:bbimg(l1,maximgheight,maximgwidth)
'参数:l1,图片路径;maximgheight,最大允许图片高度;maximgwidth,最大允许图片宽度
'作者:阿里西西
'日期:2007/7/12
'描述:限制页面图片的最大高度和宽度
'示例:<%=bbimg("/upload/tech/20091012/20091012012317_7a614fd06c325499f1680b9896beedeb.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

%>