如何让图片自动缩放以适合界面大小

核心提示：如何让图片自动缩放以适合界面大小，拿出你的Editplus，如何让图片自动缩放以适合界面大小，打开c_function.asp文件，找到UBBCode函数

如何让图片自动缩放以适合界面大小，拿出你的Editplus，打开c_function.asp文件，找到UBBCode函数，在第417行有如下语句
If Instr(strType,"[image]")>0　And ZC_UBB_IMAGE_ENABLE Then 　'[img] 　　objRegExp.Pattern="(\[IMG=)([0-9]*),([0-9]*),(.*)(\])(.+?)(\[\/IMG\])" 　　strContent= objRegExp.Replace(strContent,"<img src=""$6"" alt=""$4"" title=""$4"" width=""$2"" height=""$3""/>") 　　objRegExp.Pattern="(\[IMG=)([0-9]*),(.*)(\])(.+?)(\[\/IMG\])" 　　strContent= objRegExp.Replace(strContent,"<img src=""$5"" alt=""$3"" title=""$3"" width=""$2""/>") 　　objRegExp.Pattern="(\[IMG\])(.+?)(\[\/IMG\])" 　　strContent= objRegExp.Replace(strContent,"<img src=""$2"" alt="""" title=""""/>") 　End If

在其中加上,这里400是要让超过400的图片小于400,你可以自己设定宽度.

下面是已经改好的

If Instr(strType,"[image]")>0　And ZC_UBB_IMAGE_ENABLE Then 　'[img] 　　objRegExp.Pattern="(\[IMG=)([0-9]*),([0-9]*),(.*)(\])(.+?)(\[\/IMG\])" 　　strContent= objRegExp.Replace(strContent,"<img　src=""$6"" alt=""$4"" title=""$4"" width=""$2"" height=""$3""/>") 　　objRegExp.Pattern="(\[IMG=)([0-9]*),(.*)(\])(.+?)(\[\/IMG\])" 　　strContent= objRegExp.Replace(strContent,"<img　src=""$5"" alt=""$3"" title=""$3"" width=""$2""/>") 　　objRegExp.Pattern="(\[IMG\])(.+?)(\[\/IMG\])" 　　strContent= objRegExp.Replace(strContent,"<img　src=""$2"" alt="""" title=""""/>") 　End If