\KS_Cls\UbbFunction.asp

'图片UBB re.pattern="\[img\](.*?)\[\/img\]" strcontent=replace(replace(strcontent," ","&nbsp; &nbsp;")," ","&nbsp;&nbsp;") if re.Test(strcontent) then strcontent=re.replace(strcontent,"<athis.blur()"" href=""$1"" target=new><img src=""$1"" border=""0"" alt=""按此在新窗口浏览图片""javascript:if(this.width>screen.width-333)this.width=screen.width-333""></a>")

这个地方改大改小可以，就是不知道怎么设成自适应的！所以我只能设成以下的，可是图片太小时，又会放大！科讯的UBB代码编辑器真不好用，不知什么时候能改成HTTML的，包括论坛中的！

'图片UBB re.pattern="\[img\](.*?)\[\/img\]" strcontent=replace(replace(strcontent," ","&nbsp; &nbsp;")," ","&nbsp;&nbsp;") if re.Test(strcontent) then strcontent=re.replace(strcontent,"<a href=""$1"" target=new><img src=""$1"" border=""0"" width=""540""></a>")