The ASP program realizes the picture automatic scaling to fit the interface size

Program

How to automatically scale the picture to fit the interface size, take out your editplus, open the c_function.asp file, find the Ubbcode function

If Instr (Strtype, "[Image]") >0 and Zc_ubb_image_enable Then
' [img]

Objregexp.pattern= "(\[img=) ([0-9]*), ([0-9]*), (. *) (\]) (. +?) (\[\/img\]) "
Strcontent= Objregexp.replace (strcontent, " ")

Objregexp.pattern= "(\[img=) ([0-9]*), (. *) (\]) (. +?) (\[\/img\]) "
Strcontent= Objregexp.replace (strcontent, "

Objregexp.pattern= "(\[img\]) (. +?) (\[\/img\]) "
Strcontent= Objregexp.replace (strcontent, "

End If

In addition, here 400 is to make more than 400 of the picture less than 400, you can set your own width.

Well, here's what's been changed.

If Instr (Strtype, "[Image]") >0 and Zc_ubb_image_enable Then
' [img]

Objregexp.pattern= "(\[img=) ([0-9]*), ([0-9]*), (. *) (\]) (. +?) (\[\/img\]) "
Strcontent= Objregexp.replace (strcontent, " ")

Objregexp.pattern= "(\[img=) ([0-9]*), (. *) (\]) (. +?) (\[\/img\]) "
Strcontent= Objregexp.replace (strcontent, "

Objregexp.pattern= "(\[img\]) (. +?) (\[\/img\]) "
Strcontent= Objregexp.replace (strcontent, "

End If