文章图片自动适应窗口大小，及滚轮缩放功能的插件

部分朋友需要这个功能，偶今天就跟大家一起分享

打开 syscls/ks_refreshcls.asp

步骤一，

找到第1146行左右

     End If
  
    FileContent = Replace(FileContent, "{$GetArticleContent}", ArticleContent)  
   If InStr(FileContent, "{$GetArticleAction}") <> 0 Then

将加红色的改为

FileContent = Replace(FileContent, "{$GetArticleContent}", FormatImg(ArticleContent))  


步骤二

同样在syscls/ks_refreshcls.asp里增加一个函数．可以放在最后面．主要是格式化＂<img "

代码如下

  Function FormatImg(content)
           dim re
           Set re=new RegExp
           re.IgnoreCase =true
           re.Global=True
           re.Pattern="(script)"
           Content=re.Replace(Content,"s cript")
           re.Pattern="<img.[^>]*src(=| )(.[^>]*)>"
         Content=re.replace(Content,"<img src=$2  onclick=""javascript:window.open(this.src);"" style=""cursor: pointer"" alt=""点此在新窗口浏览图片"" onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)"">")
    set re = nothing
      FormatImg = content
  end function

步骤三．

编辑文章内容页模板．主要是加上自动缩放的脚本代码，

代码如下：

<script language="JavaScript" type="text/JavaScript">
//改变图片大小
function resizepic(o)
{
var maxwidth=550;   //定义最大宽度
var maxheight=800;  //定义最大高度


var a=new Image();
a.src=o.src
if(a.width > maxwidth)
{
  o.style.width=maxwidth;
}
if (a.height> maxheight)
{
  o.style.height=maxheight;
}
}
//无级缩放图片大小
function bbimg(o)
{
  var zoom=parseInt(o.style.zoom, 10)||100;
  zoom+=event.wheelDelta/12;
  if (zoom>0) o.style.zoom=zoom+'%';
  return false;
}
</script>

完成以上三个步骤，重新发布所有文章．再看看，你的图片，是不是不会因为太大而撑开界面了．

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: