第二个问题好像在ks_cls/kesion.label.locationcls.asp

自己试着改吧

第一个问题 ks_cls/kesion.label.commoncls.asp

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

红色的去掉吧