修改ASPCMS升级扩展功能
阅读原文时间:2023年09月16日阅读:6

修改 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 getSlided
Dim Str,i,sTexts,sFiles,sLinks,tempstr
Str=""&vbcrlf& _
"

"&vbcrlf& _
"
"&vbcrlf& _ "
    "&vbcrlf& _ "" if not isnul(slideImgsD) then tempstr = split(replace(left(slideImgsD,len(slideImgsD)-)," ",""),",") sTexts = split(replace(left(slideTextsD,len(slideTextsD)-)," ",""),",") sLinks = split(replace(left(slideLinksD,len(slideLinksD)-)," ",""),",") for i= to ubound(tempstr) if slideTextStatus= then Str=Str&"
  • "&vbcrlf else Str=Str&"
  • "&vbcrlf end if next end if Str=Str&"
"&vbcrlf& _ "
"&vbcrlf& _
"
"&vbcrlf& _
""

getSlided=Str
End Function

手机扫一扫

移动阅读更方便

阿里云服务器
腾讯云服务器
七牛云服务器

你可能感兴趣的文章