asp下tag的实现,简单介绍与部分代码

162 阅读 0 评论 107 点赞

我是靠谱客的博主繁荣小土豆，最近开发中收集的这篇文章主要介绍asp下tag的实现,简单介绍与部分代码，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

标签（Tag）是什么？
标签是一种更为自由、灵活，完全由用户决定的分类方式，而非传统的由网站定义的分类。您可以根据自己的理解，对发表的文章、上传的图片、音乐、视频等各种文件添加一个或多个标签，进行灵活的描述。
添加标签（Tag）有什么作用？
标签体现了群体的力量，使得用户之间可以通过相近的内容产生更多的关联和互动。您在发表日志或上传文件时添加了Tag ，就可以看到woku.com所有和您使用了相同Tag 的日志和文件。
标签频道中不同大小、粗细的文字代表什么？
使用不同大小、粗细字体的标签，代表着标签不同的使用频率。字体越大、越粗，说明这些标签的使用频率越高。
添加标签时需要注意些什么？
① 多个标签之间请用空格分隔。
② 每个标签的最大长度为 10 个汉字。
③ 每篇日志或每个文件最多只能添加10个标签，这包括您自己以及其他用户添加的标签。
我可以在别人发表的日志和文件中添加标签吗？
您可以根据浏览对象的阅读权限来判断是否可以添加标签。公开的日志或文件，所有用户都可以添加标签；仅供好友浏览的日志，只有好友和作者能添加标签；仅作者可以浏览的日志或文件，只有作者能够添加标签。当然，无论是谁添加的标签，都只有该日志或文件的作者可以修改或删除这些标签。
所以呢我找了些实现tag功能的asp代码,仅供参考

复制代码代码如下:

'********************************************************* 
' 目的：    定义TTag类 
' 输入：    无 
' 返回：    无 
'********************************************************* 
Class TTag 

    Public ID 
    Public Name 
    Public Intro 
    Public Order 
    Public Count 


    Public Property Get EncodeName 
        EncodeName = Server.URLEncode(Name) 
    End Property 

    Public Property Get Url 
        Url = ZC_BLOG_HOST & "catalog.asp?"& "tags=" & Server.URLEncode(Name) 
    End Property 

    Public Property Get HtmlUrl 
        HtmlUrl=TransferHTML(Url,"[html-format]") 
    End Property 

    Public Property Get HtmlIntro 
        HtmlIntro=TransferHTML(Intro,"[html-format]") 
    End Property 

    Public Property Get HtmlName 
        HtmlName=TransferHTML(Name,"[html-format]") 
    End Property 

    Public Property Get RssUrl 
        RssUrl = ZC_BLOG_HOST & "sydication.asp?tags=" & ID 
    End Property 

    Public Function Post() 

        Call CheckParameter(ID,"int",0) 
        Call CheckParameter(Order,"int",0) 

        Name=FilterSQL(Name) 
        Name=TransferHTML(Name,"[normalname]") 
        If Len(Name)=0 Then Post=False:Exit Function 

        Intro=FilterSQL(Intro) 
        Intro=TransferHTML(Intro,"[html-format]") 


        If ID=0 Then 
            objConn.Execute("INSERT INTO [blog_Tag]([tag_Name],[tag_Order],[tag_Intro]) VALUES ('"&Name&"',"&Order&",'"&Intro&"')") 
        Else 
            objConn.Execute("UPDATE [blog_Tag] SET [tag_Name]='"&Name&"',[tag_Order]="&Order&",[tag_Intro]='"&Intro&"' WHERE [tag_ID] =" & ID) 
        End If 

        Post=True 

    End Function 


    Public Function LoadInfoByID(tag_ID) 

        Call CheckParameter(tag_ID,"int",0) 

        Dim objRS 
        Set objRS=objConn.Execute("SELECT [tag_ID],[tag_Name],[tag_Intro],[tag_Order],[tag_Count] FROM [blog_Tag] WHERE [tag_ID]=" & tag_ID) 

        If (Not objRS.bof) And (Not objRS.eof) Then 

            ID=objRS("tag_ID") 
            Name=objRS("tag_Name") 
            Intro=objRS("tag_Intro") 
            Order=objRS("tag_Order") 
            Count=objRS("tag_Count") 

            LoadInfoByID=True 

        End If 

        objRS.Close 
        Set objRS=Nothing 

        If IsNull(Intro) Then Intro="" 

    End Function 

    Public Function LoadInfoByArray(aryTagInfo) 

        If IsArray(aryTagInfo)=True Then 
            ID=aryTagInfo(0) 
            Name=aryTagInfo(1) 
            Intro=aryTagInfo(2) 
            Order=aryTagInfo(3) 
            Count=aryTagInfo(4) 
        End If 

        If IsNull(Intro) Then Intro="" 

        LoadInfoByArray=True 

    End Function 


    Public Function Del() 

        Call CheckParameter(ID,"int",0) 
        If (ID=0) Then Del=False:Exit Function 

        Dim s 
        Dim i 
        Dim objRS 

        Set objRS=Server.CreateObject("ADODB.Recordset") 
        objRS.CursorType = adOpenKeyset 
        objRS.LockType = adLockReadOnly 
        objRS.ActiveConnection=objConn 
        objRS.Source="" 

        objRS.Open("SELECT [log_ID],[log_tag] FROM [blog_Article] WHERE [log_Tag] LIKE '%{" & ID & "}%'") 

        If (Not objRS.bof) And (Not objRS.eof) Then 
            Do While Not objRS.eof 
                i=objRS("log_ID") 
                s=objRS("log_tag") 
                s=Replace(s,"{"& ID &"}","") 
                objConn.Execute("UPDATE [blog_Article] SET [log_tag]='"& s &"' WHERE [log_ID] =" & i) 
                objRS.MoveNext 
            Loop 
        End If 
        objRS.Close 

        objConn.Execute("DELETE FROM [blog_Tag] WHERE [tag_ID] =" & ID) 
        Del=True 
    End Function 


    Public Function MakeTemplate(s) 

        s=Replace(s,"<#article/tag/id#>",ID) 
        s=Replace(s,"<#article/tag/name#>",HtmlName) 
        s=Replace(s,"<#article/tag/intro#>",HtmlIntro) 
        s=Replace(s,"<#article/tag/count#>",Count) 
        s=Replace(s,"<#article/tag/url#>",HtmlUrl) 
        s=Replace(s,"<#article/tag/encodename#>",EncodeName) 

        MakeTemplate=s 

    End Function 


End Class 
'********************************************************* 


'********************************************************* 
' 目的：    Tags读取 
'********************************************************* 
Function GetTags() 

    Dim i,j,k,l 

    Dim aryAllData 
    Dim arySingleData() 

    Erase Tags 

    Dim objRS 

    Set objRS=objConn.Execute("SELECT TOP 1 [tag_ID] FROM [blog_Tag] ORDER BY [tag_ID] DESC") 
    If (Not objRS.bof) And (Not objRS.eof) Then 
        i=objRS("tag_ID") 
        ReDim Tags(i) 
    End If 

    Set objRS=objConn.Execute("SELECT [tag_ID],[tag_Name],[tag_Intro],[tag_Order],[tag_Count] FROM [blog_Tag] ORDER BY [tag_ID] ASC") 
    If (Not objRS.bof) And (Not objRS.eof) Then 

        aryAllData=objRS.GetRows(objRS.RecordCount) 
        objRS.Close 
        Set objRS=Nothing 

        k=UBound(aryAllData,1) 
        l=UBound(aryAllData,2) 
        For i=0 To l 
            Set Tags(aryAllData(0,i))=New TTag 
            Tags(aryAllData(0,i)).LoadInfoByArray(Array(aryAllData(0,i),aryAllData(1,i),aryAllData(2,i),aryAllData(3,i),aryAllData(4,i))) 
        Next 

    End If 

    GetTags=True 

End Function 