页面导航：首页 → 网络编程 → ASP编程 → 应用技巧 → 正文内容 asp下tag的实现,简单介绍与部分代码

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

发布：dxy 字体：[增加减小] 类型：转载

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

[复制此代码]CODE:

'********************************************************* 
' 目的：    定义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 