番茄科技 首页 教程 其他程序 查看内容

aspcms控制栏目显示数量,增加num参数,更容易控制栏目

2016-6-24 15:00| 发布者: Jimmy| 查看: 1598| 评论: 0

摘要: gbk或者utf版本都可以直接修改inc/AspCms_MainClass.asp按照下图中红框内容修改即可。Public Function parseNavList(str) if not isExistStr(content,"{aspcms:"str"navlist") then Exit Function dim vtopn ...
gbk或者utf版本都可以直接修改inc/AspCms_MainClass.asp 
按照下图中红框内容修改即可。

blob.png


Public Function parseNavList(str) 
  if not isExistStr(content,"{aspcms:"&str&"navlist") then Exit Function  
  dim vtopnum
  ' ▲添加 参数 定义 
  dim match,matches,matchfield,matchesfield
  dim labelAttrLinklist,loopstrLinklist,loopstrLinklistNew,loopstrTotal
  dim vtype,vnum,whereStr,linkArray
  dim fieldName,fieldAttr,fieldNameAndAttr,fieldAttrLen
  dim i,labelRuleField
  dim m,namelen,deslen,m_des
  labelRule="{aspcms:"&str&"navlist([\s\S]*?)}([\s\S]*?){/aspcms:"&str&"navlist}"
  labelRuleField="\["&str&"navlist:([\s\S]+?)\]"
  regExpObj.Pattern=labelRule
  set matches=regExpObj.Execute(content)
  for each match in matches
   labelAttrLinklist=match.SubMatches(0)
   loopstrLinklist=match.SubMatches(1)
   vtype=parseArr(labelAttrLinklist)("type") 
   if isnul(vtype) then vtype=0
   '▼添加参数读取
   vtopnum=parseArr(labelAttrLinklist)("num") 
   if isnul(vtopnum) then 
   vtopnum=""
   else 
   vtopnum="top "&vtopnum
   end if	
				
			linkArray=conn.Exec("select "&vtopnum&"  SortName,SortType,SortURL,sortID,(select count (*) from AspCms_Sort as a where a.ParentID=b.sortID) as subcount,SortFolder,SortFileName,GroupID,Exclusive,indeximage,SortEnName,IcoImage from AspCms_Sort as b  where LanguageID="&setting.languageID&" and SortStatus=1 and ParentID="&vtype&" order by SortOrder asc","arr")


前端调用事例(注意二层菜单不能用num控制了,如果想控制二层或三层栏目数量只能用判断来控制了)
blob.png

微笑

流汗

难过

羡慕

愤怒

流泪
关闭

站长推荐上一条 /2 下一条

返回顶部