会员登陆
登录加载中...
超级搜索
栏  目  
类  别  
关键词  
 站内搜索   网络搜索
  
 当前位置:教程首页>>Pro版本>>Pro V2.X版本>>首页调用具体分类下的热门内容方法
推荐给你的朋友阅读:

首页调用具体分类下的热门内容方法

来源:飞腾设计网 发表日期: 2008-01-14 11:21:49

    第一步、编写函数(以调用文章系统cat_id=2类内容为例,加以说明,其它系统调用方法类似):

    '==================================
    '=函 数 名:IndexHotArt()
    '=功    能:首页热门文章具体分类内容调用显示
    '==================================
    Function IndexHotArt()
     Dim Str,Class_Id,Cat_Id,Total,Art_Id,ArtName
     Str=""
     Sql="Select Top "&CInt(Split(SiteSetting(20),"|")(1))&" Art_Id,Art_Title,TitleColor,Art_Count,RedirectUrl From Ft_Art Where Cat_Id=需要调用的大分类ID号 And Passed=True Order By Art_Count Desc,Art_Id Desc"
     '调用多个子类的SQL语句
     'Sql="Select Top "&CInt(Split(SiteSetting(20),"|")(1))&" Art_Id,Art_Title,TitleColor,Art_Count,RedirectUrl From Ft_Art Where Cat_Id=需要调用的大分类ID号1 And Cat_Id=需要调用的大分类ID号2 And Passed=True Order By Art_Count Desc,Art_Id Desc"
     '调用子类的SQL语句
     'Sql="Select Top "&CInt(Split(SiteSetting(20),"|")(1))&" Art_Id,Art_Title,TitleColor,Art_Count,RedirectUrl From Ft_Art Where Class_Id=需要调用的子分类ID号 And Passed=True Order By Art_Count Desc,Art_Id Desc"
     Set Rs=Server.CreateObject("Adodb.RecordSet")
     Rs.open Sql,Conn,1,1
     If Not ( Rs.Eof Or Rs.Bof ) Then
      Total=Rs.RecordCount
      For i=1 To Total
      If Rs(2)<>"" Then
       ArtName="<font color='#"&Rs(2)&"'>"&Rs(1)&"</font>"
      Else
       ArtName=Rs(1)
      End If
      Str=Str&"<img src='"&SignImgPath&"/normal.gif'>&nbsp;<a href='ShowArt.asp?id="&Rs(0)&"' title='点击"&Rs(3)&"'"
      If Rs(4)<>"" Then Str=Str&" target='_blank'"
      Str=Str&">"&ArtName&"</a><br>"
      Rs.MoveNext
      Next
     Else
      Str="<p align='center' class='disable_font'>正在更新中…</p>"
     End If
     Rs.Close:Set Rs=Nothing
     HotArt=Str
    End Function

    第二步、标签解释:

    1、将上述函数代码复制到Ft_Function.asp文件中,位置任意。

    2、找到Sub PubFunction(Str)这一行,在此函数中,加入以下一行:

Str=Replace(Str,"$IndexHotArt$",IndexHotArt())

    完成模板标签的解释。

    第三步、在首页风格模板中,加入$IndexHotArt$这个模板标签的调用即可。

0
0
[作者:raincity 关键词:FeitecCMS Pro 录入:raincity 责编:raincity 阅读次数:2012]

相关文章 相关新闻 相关软件 相关教程 公共评论 发表评论

  • ·暂无相关内容
    评论载入中...
    您的称呼  验 证 码   
    您的评论 [ 最多字数:  已用字数:剩余字数:]

     
COPYRIGHT 2003-2010 创意飞腾科技有限公司(The Feitec LTD.) ALL RIGHTS RESERVED .
官方咨询官方咨询4376161 官方咨询526743959 技术支持:FeitecCMS5366464
页面加载时间:78.13ms Powered By:FeitecCMS V4.0(Build1101)
[蜀ICP备05000881]