ASP中如何自动调整图片大小

2025-01-06 07:11:48
推荐回答(5个)
回答1:

如果想让图片自动缩放以适合界面大小,拿出你的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,"")
objRegExp.Pattern="(\[IMG=)([0-9]*),(.*)(\])(.+?)(\[\/IMG\])"
strContent= objRegExp.Replace(strContent,"")
objRegExp.Pattern="(\[IMG\])(.+?)(\[\/IMG\])"
strContent= objRegExp.Replace(strContent,"")
End If
  在其中加上onload='java script:if(this.width>400)this.width=400;',这里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,"400)this.width=400;' src=""$6"" title=""$4"" width=""$2"" height=""$3""/>")
objRegExp.Pattern="(\[IMG=)([0-9]*),(.*)(\])(.+?)(\[\/IMG\])"
strContent= objRegExp.Replace(strContent,"400)this.width=400;' src=""$5"" title=""$3"" width=""$2""/>")
objRegExp.Pattern="(\[IMG\])(.+?)(\[\/IMG\])"
strContent= objRegExp.Replace(strContent,"400)this.width=400;' src=""$2"" title=""""/>")
End If

回答2:



回答3:

用JavaScript实现,给你个简单的代码:

回答4:

如果按比例的话那样需要生成缩略图,再调缩略图就行了

回答5:

用dreamwecs打开ASP页面就可以调整的