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

            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")