鼠标缩放功能的延用

INC/Dv_Ubbcode.asp文件：

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

改为：