首页 > 代码库 > 修改ASPCMS升级扩展功能
修改ASPCMS升级扩展功能
修改 inc/aspcms_templateFun.asp 查找"content=decodeHtml(rsObj("Content"))" 替换为”content=replace(decodeHtml(rsObj("Content")),"class=""lazy img-responsive"" src="http://www.mamicode.com/,"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="<script language=JavaScript type=text/javascript>"&vbcrlf& _ "myFocus.set({id:‘myfocus‘,pattern:‘"&patternD&"‘});"&vbcrlf& _"</script>"&vbcrlf& _"<div id=""myfocus"" style=""width:"&slideWidthD&"px;height:"&slideHeightD&"px;""><div class=""loading""></div>"&vbcrlf& _"<div class=""pic"" >"&vbcrlf& _"<ul class=""pclist"">"&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&"<li><a href="""&sLinks(i)&""" target=""_blank""><img src="""&tempstr(i)&""" style=""width:"&slideWidthD&"px;height:"&slideHeightD&"px;margin:0px;padding:0px;border:none;"" "&sTexts(i)&""" text="""&sTexts(i)&""" ></a></li>"&vbcrlfelse Str=Str&"<li><a href="""&sLinks(i)&""" target=""_blank""><img src="""&tempstr(i)&""" style=""width:"&slideWidthD&"px;height:"&slideHeightD&"px;margin:0px;padding:0px;border:none;"" "&sTexts(i)&""" text="""&sTexts(i)&""" ></a></li>"&vbcrlfend ifnextend ifStr=Str&"</ul>"&vbcrlf& _"</div>"&vbcrlf& _"</div>"&vbcrlf& _"<!--end-->"getSlided=StrEnd Function
修改ASPCMS升级扩展功能
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。