凌波网络,常州网络公司,常州网站设计,常州小程序,常州小程序开发公司,常州网站建设,常州微信公众号维护
aspcms自定义幻灯片修改方法
2020-4-17 16:03:34

找到 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}"  />


注:<后面的空格去掉





作者:快宜优 (来源:快宜优
Design By 凌波网络 Since 2004
本站由 为凌波网络(www.lingboinfo.com)提供云计算与安全服务 苏ICP备12074670号-1