在后台添加文章时，并插入图片，图片格式默认会被自动格式化掉，但您可以取消此功能。方法如下：

打开ks_cls/kesion.label.commoncls.asp 并找到文件的最后

Function FormatImglink(content,url,totalpage)

          dim re:Set re=new RegExp

           re.IgnoreCase =true

           re.Global=True

     '去除onclick,onload等脚本

            're.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"

            'Content = re.Replace(Content, "")

   Dim LinkStr

      If TotalPage=1 Then

    LinkStr="href=""$2"" target=""_blank"""

   Else

    LinkStr="href=""" & Url & """"

   End If

   

     '将SRC不带引号的图片地址加上引号

            re.Pattern = "<img.*?\ssrc=([^\""\'\s][^\""\'\s>]*).*?>"

            Content = re.Replace(Content, "<a " & LinkStr & "><img src=""$2"" alt=""" & GetNodeText("title") & """ return bbimg(this)""javascript:resizepic(this)"" border=""0""/></a>")

     '正则匹配图片SRC地址

     re.Pattern = "<img.*?\ssrc=([\""\'])([^\""\']+?)\1.*?>"

           Content = re.Replace(Content, "<a " & LinkStr & "><img src=""$2"" alt=""" & GetNodeText("title") & """return bbimg(this)""javascript:resizepic(this)"" border=""0""/></a>")

    set re = nothing

          FormatImglink = content

  end function

将其改成

Function FormatImglink(content,url,totalpage)

       FormatImglink = content

  end function

这样以后在后台添加的文章里的图片将不会再被格式化了。

有一个问题：

按照上述方法，取消缩放后，排版是正常了，

但是有的文章里的图片的宽度 超过650px后，图片就显示到内容框外面来了，不美观，在内容页中有自动改变大小的语句：

//改变图片大小
function resizepic(thispic)
{
if(thispic.width>640) thispic.width=640;
}

可是不起作用。

能不能取消缩放功能，但是保留改变图片大小的功能（防止图片超宽）？

藤椅正解！！

把　onmousewheel　删除即可。

查找onmousewheel　删除，其余不变

这onmousewheel就是鼠标滚轮事件