在根目录下找到 inc/AspCms_MainClass.asp 这个文件
查找 Function getSlide 在下方加入以下代码:
- Dim str1,Str2,str3
- str1 =Split(slideImgs,",")
- str2 =Split(slideLinks,",")
- str3=Split(slideTexts,",")
- Dim j
- content=replaceStr(content,"{aspcms:SlideLen}",ubound(str1))
- Dim i
- for i=0 to ubound(str1)
- content=replaceStr(content,"{aspcms:SlideImg"&i&"}",str1(i))
- next
- Dim n
- for n=0 to ubound(str2)
- content=replaceStr(content,"{aspcms:SlideLink"&n&"}",str2(n))
- next
- Dim m
- for m=0 to ubound(str3)
- content=replaceStr(content,"{aspcms:SlideText"&m&"}",str3(m))
- next
复制代码
注意:要在 Function getSlide 这个函数的结束 end Function 上方
然后前台调用方式
- <a href="
- {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>
依次调用。。。