在根目录下找到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>
依次调用。。。