K9 通用版 博客版 主题版 地方门户版 企业版 |   企业(ASP) 分类 使用 分享 疑问 模板 建议 帮助 错误 其他
+新建主题 [Ajax]
填写帐号密码即可完成注册
+新建话题 最新回复排序 最新主题排序 精华帖子

列表页只调用推荐的文章, 分页可用

1Next >

iitding 发表于:10-09-04 15:25 [添加收藏] 楼主 [回复] #Top#
iitding 人气:582 积分:1 金币:18324
最佳新人 灌水狂人
列表页只调用推荐的文章, 分页可用

*****************************************************

  1. type=list 时用 
  2.  
  3.     2 list01= head头条 commend推荐 up置顶 是否(部分显示)
  4.     3 {king:article type="list" list01="commend"   
  5.  
  6. number="1"}

*****************************************************

public sub createlist(l1)
找到

  1. set rs=conn.execute("select "&sql&" from  
  2.  
  3. kingarticle where artshow=1 and listid="&datalist(0,j)&" or  
  4.  
  5. listids like '%,"&datalist(0,j)&",%' order by artup  
  6.  
  7. desc,artorder "&jsorder&",artid "&jsorder&";")

替换为

  1. '修改list-up,list-commend,list-head 
  2. dim list01 
  3. list01=king.getlabel(tmphtmlist,"list01") 
  4. if lcase(list01)="head" then list01="and arthead=1" 
  5. if lcase(list01)="commend" then list01="and artcommend=1" 
  6. if lcase(list01)="up" then list01="and artup=1" 
  7.  
  8.                 set rs=conn.execute("select "&sql&" from  
  9.  
  10. kingarticle where artshow=1 "&list01&" and  
  11.  
  12. listid="&datalist(0,j)&" or listids like '%,"&datalist 
  13.  
  14. (0,j)&",%' order by  artup desc,artorder "&jsorder&",  
  15.  
  16. artid "&jsorder&";")
snoopyfansxr 发表于:11-01-10 21:41 沙发 [回复] #Top#
snoopyfansxr 人气:30 积分:199 金币:585
这个我收藏了 用得到

1Next >

发表回复

帐号 匿名发布 审核后可见 [加载完整在线编辑器]
内容
验证码
KingCMS 内容管理系统

关于我们 联系我们 广告报价 付款方式 站点导航

Copyright © 2004-2015 Focuznet All rights reserved.

广州唯众网络科技有限公司 粤ICP备08008106号