AspCms自定义幻灯片更改技巧
AspCms自定义幻灯片更改技巧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
www.zzarea.com
找到 inc/AspCms_MainClass.asp 这个文件
然后查找 Function getSlide
在下面加入以下内容
前台调用 说明 :
{aspcms:SlideImg0} 即为第一张幻灯片图片
{aspcms:SlideImg1} 为第二张幻灯片图片
页:
[1]