资讯中心
News
aspcms自定义幻灯片修改方法
发布时间:2019-01-22 13:15   您所在的位置: 网站首页 > 新闻资讯 > 建站知识

在根目录下找到  inc/AspCms_MainClass.asp 这个文件 
查找 Function getSlide   在下方加入以下代码:

  1.     Dim str1,Str2,str3
     
  2.     str1 =Split(slideImgs,",") 
     
  3.     str2 =Split(slideLinks,",")
     
  4.     str3=Split(slideTexts,",")
     
  5.     Dim j
     
  6.     content=replaceStr(content,"{aspcms:SlideLen}",ubound(str1))
     
  7.     Dim i
     
  8.     for i=0 to ubound(str1)
     
  9.     content=replaceStr(content,"{aspcms:SlideImg"&i&"}",str1(i))
     
  10.     next
     
  11.     Dim n
     
  12.     for n=0 to ubound(str2)
     
  13.     content=replaceStr(content,"{aspcms:SlideLink"&n&"}",str2(n))
     
  14.     next
     
  15.     Dim m
     
  16.     for m=0 to ubound(str3)
     
  17.     content=replaceStr(content,"{aspcms:SlideText"&m&"}",str3(m))
     
  18.     next
复制代码

注意:要在 Function getSlide 这个函数的结束 end Function 上方
然后前台调用方式

  1. <a href="
     
  2. {aspcms:SlideLink0}" title="{aspcms:SlideText0}"><img src="{aspcms:SlideImg0}" /></a>  
复制代码

<a href="
{aspcms:SlideLink0}" title="{aspcms:SlideText0}"><img src="{aspcms:SlideImg0}" /></a>  
<a href="
{aspcms:SlideLink1}" title="{aspcms:SlideText1}"><img src="{aspcms:SlideImg1}" /></a>  


依次调用。。。

本文章由新概念互动原创,如没特殊注明,转载请注明来自:http://www.jianzhan0.com/zhishi/49208.html