修改ASPCMS升级扩展功能-白红宇

修改ASPCMS升级扩展功能

阅读量：7208 次

发布时间：2019-06-29

本文共 1102 字，大约阅读时间需要 3 分钟。

修改 inc/aspcms_templateFun.asp 查找"content=decodeHtml(rsObj("Content"))" 替换为”content=replace(decodeHtml(rsObj("Content")),"class=""lazy img-responsive"" src=","class=""lazy img-responsive"" src=""/images/grey.gif"" data-original=")“

增加jquery.lazyload.min.js支持图片延迟加载。

增加myfcus支持幻灯片

修改/config/AspCms_SlideConfig.asp

增加变量Const patternD="mF_classicHC"

在页面引入myFocus.js 2.4

在后台管理配置修改页面

修改/inc/aspcms_mainclass.asp 查找getslided函数

修改代码如下

Function getSlidedDim Str,i,sTexts,sFiles,sLinks,tempstr Str=""&vbcrlf& _"
     
      
"&vbcrlf& _"
      
       "&vbcrlf& _"
       
        "&vbcrlf& _""if not isnul(slideImgsD) thentempstr = split(replace(left(slideImgsD,len(slideImgsD)-1)," ",""),",")sTexts = split(replace(left(slideTextsD,len(slideTextsD)-1)," ",""),",")sLinks = split(replace(left(slideLinksD,len(slideLinksD)-1)," ",""),",")for i=0 to ubound(tempstr)if slideTextStatus=0 then Str=Str&"
        
"&vbcrlfelse Str=Str&"
        
"&vbcrlfend ifnextend ifStr=Str&"
       
"&vbcrlf& _"
      
"&vbcrlf& _"
     
"&vbcrlf& _"
     "getSlided=StrEnd Function