\KS_Cls\UbbFunction.asp
'图片UBB re.pattern="\[img\](.*?)\[\/img\]" strcontent=replace(replace(strcontent," "," ")," "," ") 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," "," ")," "," ") if re.Test(strcontent) then strcontent=re.replace(strcontent,"<a href=""$1"" target=new><img src=""$1"" border=""0"" width=""540""></a>")