以下代码都是从新版的动网论坛(DV7SP2)整理出来的。 <script>Function bbimg(o){var zoom=parseInt(o.style.zoom, 10)||100;zoom+=event.wheelDelta/12;if (zoom>0) o.style.zoom=zoom+'%';return false;}</script> <%Private Function bbimg(strText,ssize) Dim s s=strText Dim re Set re=new RegExp re.IgnoreCase =True re.Global=True re.Pattern= <img(.[^>]*)> If ssize=500 Then '显示贴子时默认宽度为500 s=re.replace(s, <img$1onmousewheel= return bbimg(this) onload= javascript:if(this.width>screen.width- &ssize&a...
查看详细内容 >>