找到 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
|
{aspcms:SlideImg0} 即为第一张幻灯片图片
{aspcms:SlideImg1} 为第二张幻灯片图片
转载请注明：ASPcms» aspcms自定义幻灯片样式
标签：
