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

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

现在好了，开源了，马上删之。

打开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，搞定，再也没烦恼了。