账号通
    

账号  

密码  

3162

查看

6

回复
主题:[技巧]V6万能列表标签自定义样式输出只显示图片文章的修改方法 [收藏主题] 转到:  
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2009/8/29 19:00:00   | 只看该作者 查看该作者主题 楼主 
科汛智能建站系统

问题描述见

http://bbs.kesion.com/dispbbs.asp?boardid=44&Id=89517

 

3步即可解决:

 

这个在科汛的标签核心解释文件里 ks_cls/kesion.label.functioncls.asp

 

第一步:

找到

      If PrintType>=2 Then  FieldStr=FieldStr & ",I.PhotoUrl,I.Intro" : If PrintType=2 Then Param = Param & " And I.PicNews=1"


 

改成

         If PrintType>=2 Then  FieldStr=FieldStr & ",I.PhotoUrl,I.Intro" : If PrintType=2 or instr(LabelStyle,"{@photourl}")>0 Then Param = Param & " And I.PicNews=1"

 

 

第二步:

 

需要在本文件的头部定义一个全局变量

 

Private KS,DomainStr,CurrModelID,LabelStyle

 

加以上红色的变量

 

第三步:

 

最后找到

  '+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  '函数名:GetLabel
  '作 用: 解释执行系统函数标签
  '参 数: Content标签内容,如{Tag:GetGenericList modelid="1"}<li>循环体</li>{/Tag}
  '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
  Function GetLabel(Content)
   Dim LabelStyle
   LabelStyle     = KS.GetTagLoop(Content)
   LabelFunName   = Split(Content," ")(0)
      LabelParamStr  = Replace(Replace(Content, LabelFunName, ""),"}" & LabelStyle&"{/Tag}", "")
         LabelFunName   = Replace(LabelFunName,"{Tag:","")
   on error resume next
   Execute("GetLabel= " & LabelFunName & "(LabelStyle)")
   if err then err.clear
  End Function

 

 

把红色的删除

 

 

 

经过以上修改,调用文章的图片标签时,就不会再将没有设置成图片文章的文档也调用出来了.类似V5的图片文章列表标签.只调用有图片的文章.........

 

 

 

 

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
mobidong 当前离线

187

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:2042 分
登录次数:129 次
注册时间:2008/5/25
最后登录:2009/12/7
mobidong 发表于:2009/10/27 16:36:00   | 只看该作者 查看该作者主题 沙发 
科汛在线商城系统(NET)

今天找了半天才找到这个贴子,求版主千万别删了,

 

我要把图片文章和非图片文章都显示出来,

 

所以系统每次更新后,都是按以一方法把程序改回去的.

呵呵.

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
mobidong 当前离线

187

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:2042 分
登录次数:129 次
注册时间:2008/5/25
最后登录:2009/12/7
mobidong 发表于:2009/9/16 0:47:00   | 只看该作者 查看该作者主题 藤椅 

sp1已经进行了修改,

我想显示所有文章,应怎么办

是不是按以上相反的方法恢复到以前就可以了

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
songchj 当前离线

310

主题

2

广播

0

粉丝
添加关注
级别:三年级

用户积分:7414 分
登录次数:196 次
注册时间:2006/10/24
最后登录:2016/8/14
songchj 发表于:2009/9/4 18:37:00   | 只看该作者 查看该作者主题 板凳 
科汛在线考试系统(NET)

实验了一下,还是不行。经过以上修改,调用文章时,没有图片的文章调用出的是kesion默认的的无图片的图片,还在那显示。

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
lwy1298 当前离线

318

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:1594 分
登录次数:176 次
注册时间:2008/12/15
最后登录:2016/2/22
lwy1298 发表于:2009/8/31 10:54:00   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
vyni 当前离线

110

主题

3

广播

0

粉丝
添加关注
级别:一年级

用户积分:1340 分
登录次数:184 次
注册时间:2008/12/18
最后登录:2014/11/28
vyni 发表于:2009/8/30 0:07:00   | 只看该作者 查看该作者主题 地板 
做在线知识付费 选科汛云开店

强烈支持,图片自定义样式的问题终于解决啦。感谢 一生有你 老大

 

建议官方将 图片自定义样式调用 进行修复,原本6.0是DIV+CSS模版,还得需要调用TABLE图文列表,让人觉得极不相称

 

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
paramour 当前离线

374

主题

0

广播

0

粉丝
添加关注
级别:三年级

用户积分:2978 分
登录次数:176 次
注册时间:2007/10/19
最后登录:2011/3/9
paramour 发表于:2009/8/29 22:02:00   | 只看该作者 查看该作者主题 7楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.25195秒 powered by KesionCMS 9.0