當(dāng)前位置: 首頁IT技術(shù) → 關(guān)于利用ASP使圖片自動縮放以適合界面大小的實(shí)例代碼分享

關(guān)于利用ASP使圖片自動縮放以適合界面大小的實(shí)例代碼分享

更多

本文將給大家分享學(xué)習(xí)的是關(guān)于利用ASP使圖片自動縮放以適合界面大小的實(shí)例代碼分享,希望能夠給大家?guī)韼椭騿l(fā)。

如何讓圖片自動縮放以適合界面大小,拿出你的Editplus,打開c_function.asp文件,找到UBBCode函數(shù),在第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"" title=""$4"" width=""$2"" height=""$3""/>")
    objRegExp.Pattern="(\[IMG=)([0-9]*),(.*)(\])(.+?)(\[\/IMG\])"
    strContent= objRegExp.Replace(strContent,"<img src=""$5"" title=""$3"" width=""$2""/>")
    objRegExp.Pattern="(\[IMG\])(.+?)(\[\/IMG\])"
    strContent= objRegExp.Replace(strContent,"<img src=""$2"" title=""""/>")
  End If

  在其中加上onload='java script:if(this.width>400)this.width=400;',這里400是要讓超過400的圖片小于400,你可以自己設(shè)定寬度.

  下面是已經(jīng)改好的

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 onload='java script:if(this.width>400)this.width=400;' src=""$6"" title=""$4"" width=""$2"" height=""$3""/>")
    objRegExp.Pattern="(\[IMG=)([0-9]*),(.*)(\])(.+?)(\[\/IMG\])"
    strContent= objRegExp.Replace(strContent,"<img onload='java script:if(this.width>400)this.width=400;' src=""$5"" title=""$3"" width=""$2""/>")
    objRegExp.Pattern="(\[IMG\])(.+?)(\[\/IMG\])"
    strContent= objRegExp.Replace(strContent,"<img onload='java script:if(this.width>400)this.width=400;' src=""$2"" title=""""/>")
  End If

熱門評論
最新評論
發(fā)表評論 查看所有評論(0)
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字?jǐn)?shù): 0/500 (您的評論需要經(jīng)過審核才能顯示)