蓝雨 发表于 2007-7-2 20:02:00

鼠标缩放功能的延用

<p>INC/Dv_Ubbcode.asp文件：</p><p>Private Function bbimg(strText,ssize)<br/>Dim s<br/>s=strText<br/>re.Pattern=\"<img(.[^>]*)>\"<br/>If ssize=550 Then<br/>s=re.replace(s,\"<img$1 onload=\"\"return imgzoom(this,\"&ssize&\")\"\">\")<br/>Else<br/>s=re.replace(s,\"<img$1 onload=\"\"javascript:if(this.width>\"& ssize &\")this.style.width=\"&ssize&\";if(this.height>250)this.style.width=(this.width*250)/this.height;\"\">\")<br/>End If<br/>bbimg=s<br/>End Function</p><p><br/>改为：</p><p>**** Hidden Message *****

skybluejun 发表于 2007-7-29 01:35:00

页: [1]
查看完整版本: 鼠标缩放功能的延用