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