动易内容模板删除无级缩放图片大小代码

在动易没开源之前，我就一直为这段代码所困扰，好端端的非要在头部加上无级缩放图片大小的代码，还删不掉，保存后又出来了，害得我每次只能进数据库删除。现在好了，开源了，马上删之。

 

打开admin下面的Admin_Template.asp，找到"解决正文页用户删除图片js 问题"，把下面的一段代码全部注释掉。

    '解决正文页用户删除图片js 问题

    'strPhotoJs = "<script language=""JavaScript"">" & vbCrLf

    'strPhotoJs = strPhotoJs & "<!--" & vbCrLf

    'strPhotoJs = strPhotoJs & "//改变图片大小" & vbCrLf

    'strPhotoJs = strPhotoJs & "function resizepic(thispic)" & vbCrLf

    'strPhotoJs = strPhotoJs & "{" & vbCrLf

    ''strPhotoJs = strPhotoJs & "if(thispic.width>700) thispic.width=700;" & 

vbCrLf

    'strPhotoJs = strPhotoJs & "  return true;" & vbCrLf

    'strPhotoJs = strPhotoJs & "}" & vbCrLf

    'strPhotoJs = strPhotoJs & "//无级缩放图片大小" & vbCrLf

    'strPhotoJs = strPhotoJs & "function bbimg(o)" & vbCrLf

    'strPhotoJs = strPhotoJs & "{" & vbCrLf

    ''strPhotoJs = strPhotoJs & "  var zoom=parseInt(o.style.zoom, 10)||100;" & 

vbCrLf

    ''strPhotoJs = strPhotoJs & "  zoom+=event.wheelDelta/12;" & vbCrLf

    ''strPhotoJs = strPhotoJs & "  if (zoom>0) o.style.zoom=zoom+'%';" & vbCrLf

    'strPhotoJs = strPhotoJs & "  return true;" & vbCrLf

    'strPhotoJs = strPhotoJs & "}" & vbCrLf

    'strPhotoJs = strPhotoJs & "-->" & vbCrLf

    'strPhotoJs = strPhotoJs & "</script>" & vbCrLf

    'strPhotoJs = strPhotoJs & "</head>" & vbCrLf

    'If TemplateType = 3 Then

    '    If InStr(Content, "resizepic(thispic)") <= 0 Or InStr(Content, 

"bbimg(o)") <= 0 Then

    '        'Content = Replace(Content, "</head>", strPhotoJs)

    '    End If

    'End If

ok，搞定，再也没烦恼了。