|
主题:科汛V9.04系统新增标签用于随心输出图片系统图片集 [收藏主题] | 转到: |
科讯图片系统内容的图片放在一个字段里,科讯自带内容页的图片展示样式不已修改。为此试着开发出一个新标签用于在图片系统内容页输出你想要的图片展示效果。
本标签属于办成品,大家可以以此改造 新增标签{$getphotocontent} 只需一步:修改asp \ks_cls\modellabel\photo.asp case "getpicturevote" echo "<a href=""" & DomainStr & "Item/Vote.asp?m=" & ModelID & "&ID=" & ItemID & """>投它一票</a>" case "getphotocontent" Dim photoN,Picture photoN=ubound(split(Node.SelectSingleNode("@picurls").text&"","|||")) Picture=split(Node.SelectSingleNode("@picurls").text&"","|||") For i=0 to photoN 'echo Picture(i)&"<br />" echo "<img src='"&split(Picture(i),"|")(2)&"' alt='"&split(Picture(i),"|")(0)&"' /><br />" '0为标题 1、2一个是大图一个是缩略图 next '================================图片模型结束================================ 使用方法:将标签{$getphotocontent}放到图片系统内容页模板 备注:红色为添加部分 |
|
个人QQ:845977434 | |
支持(0) | 反对(0) 顶端 底部 |
case "getphotocontent" Dim photoN,Picture photoN=ubound(split(Node.SelectSingleNode("@picurls").text&"","|||")) Picture=split(Node.SelectSingleNode("@picurls").text&"","|||") For i=0 to photoN 'echo Picture(i)&"<br />" echo "<img src='"&split(Picture(i),"|")(2)&"' alt='"&split(Picture(i),"|")(0)&"' /><br />" '0为标题 1、2一个是大图一个是缩略图 next 以上为增加上面的最后的“next”没有加上红色,在此表示歉意 点评 共 2 条说得很好:5.0 ★★★★★ |
|
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |