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

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