动网7.10去掉滚轮缩放，图片自适应大小的方法

• 关 键 词：
• javascript
• asp

我用大小不同、横排、竖排图片测试通过。。。。

——————————

修改inc/dv_ubbcode.asp

Dv_UbbCode=bbimg(s,300)
End Function
Private Function bbimg(strText,ssize)
  Dim s
  s=strText
  re.Pattern="<img(.[^>]*)>"
  If ssize=300 Then
   s=re.replace(s,"<img$1 onmousewheel=""return bbimg(this)"" onload=""javascript:if(this.width>screen.width-"&ssize&")this.style.width=screen.width-"&ssize&";"">")
  Else
   s=re.replace(s,"<img$1 onmousewheel=""return bbimg(this)"" onload=""javascript:if(this.width>screen.width-"&ssize&")this.style.width=screen.width-"&ssize&";if(this.height>150)this.style.width=(this.width*150)/this.height;"">")
  End If
  bbimg=s

要去掉鼠标滚轮缩放就把 onmousewheel=""return bbimg(this)""

改为 onmousewheel=""""

【深 度 阅 读】 相 关 文 章

• 现代视觉艺术图片欣赏
• 无限创意的经典图片（下）
• 玩出新花样 制作精美动画GIF图片
• 明星:蔡依林头像图片（新）