让SP1具有7.1完全相同的图片随鼠标滚轮\"缩放\"功能~~

蓝雨

修改

inc目录下的文件Dv_ubbcode.asp

找到

Private Function bbimg(strText,ssize)
Dim s
s=strText
re.Pattern=\"]*)>\"
If ssize=500 Then
s=re.replace(s,\"javascript:if(this.width>\"& ssize &\")this.style.width=\"&ssize&\";\"\">\")
Else
s=re.replace(s,\"javascript:if(this.width>\"& ssize &\")this.style.width=\"&ssize&\";if(this.height>250)this.style.width=(this.width*250)/this.height;\"\">\")
End If
bbimg=s
End Function

修改为

QUOTE:

Private Function bbimg(strText,ssize)
Dim s
s=strText
re.Pattern=\"]*)>\"
If ssize=500 Then
s=re.replace(s,\"javascript:if(this.width>screen.width-\"&ssize&\")this.style.width=screen.width-\"&ssize&\";\"\">\")
Else
s=re.replace(s,\"javascript:if(this.width>screen.width-\"&ssize&\")this.style.width=screen.width-\"&ssize&\";if(this.height>250)this.style.width=(this.width*250)/this.height;\"\">\")
End If
bbimg=s
End Function