成都网站建设

拥有10年以上经验丰富的网站制作团队,具备科学的建站流程和快速的客户服务体系

成都网站建设专家

整合营销专家

短时间、快速度、操作简单、低投入品牌展示率

成都整合营销专家

网站优化推广

包年网站优化,百度自然排名首页,真正实现点击不收费!

成都网站优化推广

主机域名

集群式CDN加速,打开速度快速,利于优化排名

独立IP主机
您当前位置:成都网站建设 >> 新闻频道 >> 成都网站建设 >> 浏览文章

科汛CMS网站程序源码 tags.asp 的伪静态设置教程讲解


时间:2013年08月07日 点击量:

下面是 tags.asp 的 源码:
<%Option Explicit%>
<!--#include File="../Conn.asp"-->
<!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->
<!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->
<%
Dim TCls
Set TCls = New Tags
TCls.Kesion()
Set TCls = Nothing
Const MaxPerPage=20   '每页显示条数
Const MaxTags=500     '默认显示tags个数
Class Tags
    Private KS,KMR,F_C,LoopContent,SearchResult,photourl
 Private ChannelID,ClassID,SearchType,TagsName,SearchForm
    Private I,TotalPut, CurrentPage,RS
 
 Private Sub Class_Initialize()
  Set KS=New PublicCls
  Set KMR=New Refresh
  If KS.S("page") <> "" Then
          CurrentPage = CInt(Request("page"))
        Else
          CurrentPage = 1
        End If
 End Sub
 Private Sub Class_Terminate()
        closeconn
     Set KS=Nothing
  Set KMR=Nothing
 End Sub
 
 Sub Kesion()
       Dim RS,TagsNameA,K
     F_C = KMR.LoadTemplate(KS.Setting(3) & KS.Setting(90) & "common/tags.html")
     If Trim(F_C) = "" Then F_C = "模板不存在!"
   
     FCls.RefreshType = "tags" '设置刷新类型,以便取得当前位置导航等
     FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签
   
   TagsName=KS.CheckXSS(KS.S("n"))
   If TagsName="" Then
    Call TagsMain()
   Else
                 if IsNumeric(TagsName) then
                  Set RS=Conn.Execute("Select KeyTExt From KS_KeyWords where ID= " & TagsName )
                  If Not RS.Eof Then TagsNameA=RS.GetRows(-1)
               RS.Close:Set RS=Nothing
               If IsArray(TagsNameA) Then
              For k=0 to Ubound(TagsNameA,2)
                TagsName=TagsNameA(0,K)
            Next
               End If
                end if
       Call TagsList()
   End If
   
   F_C = KMR.KSLabelReplaceAll(F_C)
   Call Tags

文章由四川冠辰成都网站建设http://www.scgckj.com/5255.html编辑整理,转载请注明出处
网站首页| 关于我们| 热门关键词| 付款方式| 资质证书| 联系我们
版权所有 Copyright © 2002-2013 四川冠辰科技开发有限公司www.scgckj.com 保留所有权利 蜀ICP备11012605号
地址:四川省成都市金丰路6号量力钢铁交易大厦B座2010室 冠辰科技资质证书
服务热线:400-000-2367 028-86088588 总机:028-62322623-0 传真:028-62322623-823