AspCms自定义幻灯片更改技巧

首先我们找到 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} 为第二张幻灯片图片

依次类推

例如：

    <img src="{aspcms:SlideImg0}" />
    <img src="{aspcms:SlideImg1}"  />
    <img src="{aspcms:SlideImg3}"  />

本站仅提供存储服务，所有内容均由用户发布，如发现有害或侵权内容，请点击举报。