常州布谷鸟网络,常州网站定制,常州网络公司,常州小程序开发公司,常州小程序分销商城,常州小程序商城,常州APP开发,常州网站建设,常州微信公众号维护
aspcms幻灯片用列表调用的方法
日期:2020-4-17 16:00:02  阅读:

首先找到网站目录/inc/AspCms_MainClass.asp

增加主函数

Public Function parseSlideList(str)if not isExistStr(content,"{aspcms:"&str&"slidelist") then Exit Functiondim match,matches,matchfield,matchesfielddim labelAttrLinklist,loopstrLinklist,loopstrLinklistNew,loopstrTotaldim vtype,vnum,whereStr,linkArray,linkUrlArray,linktextArraydim fieldName,fieldAttr,fieldNameAndAttr,fieldAttrLendim i,labelRuleFielddim m,namelen,deslen,m_des
labelRule="{aspcms:"&str&"slidelist([\s\S]*?)}([\s\S]*?){/aspcms:"&str&"slidelist}"labelRuleField="\["&str&"slidelist:([\s\S]+?)\]"regExpObj.Pattern=labelRuleset matches=regExpObj.Execute(content)for each match in matches
labelAttrLinklist=match.SubMatches(0)
loopstrLinklist=match.SubMatches(1)
vtype=parseArr(labelAttrLinklist)("type")if isnul(vtype) or (vtype<>"a" and vtype<>"b" and vtype<>"c") then vtype="" ‘type 空 a b cif vtype="" thenlinkArray=split(slideImgs&vtype,",")
linkUrlArray=split(slideLinks&vtype,",")
linkTextArray=split(slideTexts&vtype,",")elselinkArray=split(eval(slideImgs&vtype),",")
linkUrlArray=split(eval(slideLinks&vtype),",")
linkTextArray=split(eval(slideTexts&vtype),",")end ifif not isarray(linkArray) then vnum=-1 else vnum=ubound(linkArray)
regExpObj.Pattern=labelRuleFieldset matchesfield=regExpObj.Execute(loopstrLinklist)
loopstrTotal=""for i=0 to vnum-1loopstrLinklistNew=loopstrLinklistfor each matchfield in matchesfield
fieldNameAndAttr=regExpReplace(matchfield.SubMatches(0),"[\s]+",chr(32))
fieldNameAndAttr=trimOuter(fieldNameAndAttr)
m=instr(fieldNameAndAttr,chr(32))if m > 0 thenfieldName=left(fieldNameAndAttr,m - 1)
fieldAttr = right(fieldNameAndAttr,len(fieldNameAndAttr) - m)elsefieldName=fieldNameAndAttr
fieldAttr = ""end ifselect case fieldNamecase "t"loopstrLinklistNew = replace(loopstrLinklistNew,matchfield.value,vnum+1)case "imgurl"loopstrLinklistNew=replaceStr(loopstrLinklistNew,matchfield.value,linkArray(i))case "link"loopstrLinklistNew=replaceStr(loopstrLinklistNew,matchfield.value,linkUrlArray(i))case "title"loopstrLinklistNew=replaceStr(loopstrLinklistNew,matchfield.value,linkTextArray(i))case "width"loopstrLinklistNew=replaceStr(loopstrLinklistNew,matchfield.value,eval(slideWidth&vtype))case "height"loopstrLinklistNew=replaceStr(loopstrLinklistNew,matchfield.value,eval(slideHeight&vtype))case "i"loopstrLinklistNew=replaceStr(loopstrLinklistNew,matchfield.value,i+1)end selectnextloopstrTotal=loopstrTotal&loopstrLinklistNewnextset matchesfield=nothingcontent=replaceStr(content,match.value,loopstrTotal)
strDictionary.removeAllnextset matches=nothingEnd Function

然后在文件中查找函数parseGlobal()增加解析标签代码

content=replaceStr(content,"{aspcms:slidelist}",parseSlideList(""))

大功告成!

在首页我们可以这样调用

其中的字段

[slidelist:link] [slidelist:imgurl]

 

{aspcms:slidelist type=a}

{/aspcms:slidelist}

 

{aspcms:slidelist type=b}

{/aspcms:slidelist}

 

{aspcms:slidelist type=d}

{/aspcms:slidelist}





作者:码迷 (来源:码迷

[声明] 本文系本网编辑转载,转载目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题,请在30日内与本网邮箱 7016867@qq.com 联系,我们将在第一时间删除内容!
Design By 布谷鸟网络 Since 2004 | 常州网络公司 | 常州网站设计 | 常州网页设计 | 常州小程序开发公司 | 常州微信商城设计 | 常州微信公众号商城 | 常州小程序商城 | 网站地图 |
本站由 为布谷鸟网络(www.cncuckoo.com)提供云计算与安全服务 苏ICP备12074670号-1 常州百度优化