在动易没开源之前，我就一直为这段代码所困扰，好端端的非要在头部加上无级缩放图片大小的代码，还删不掉，保存后又出来了，害得我每次只能进数据库删除。
现在好了，开源了，马上删之。
打开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，搞定，再也没烦恼了。 从手机浏览器访问《生活宝典》 |
