新云CMS自动添加已有TAG标签ASP教程

命数

已于 2024-06-19 23:33:06 修改

阅读量114

点赞数 4

文章标签： mssql 后端

于 2024-06-19 23:27:24 首次发布

本文链接：https://blog.csdn.net/qq_34723486/article/details/139815481

版权

新云CMS自动添加已有TAG标签ASP教程

  '自动添加标题中存在的TAG
    if Trim(Request.Form("Tagstring")) = "" then
        Dim Rs11
        Dim testStr, subStr, position,newtaglist
       
        newtaglist = ""
        testStr = NewAsp.RequestForm(Request.Form("SoftName"),255)
        'Response.Write  testStr
        Set Rs11 = NewAsp.Execute("SELECT TagID,Tagname FROM NC_Tags WHERE ChannelID="&ChannelID)
        Do While Not Rs11.EOF
            'Response.Write Rs("Tagname")&"--"
            subStr = Rs11("Tagname")
            testStr = LCase(testStr) '大写字母转换为小写'
            position = InStr(testStr, subStr)
    
            If position > 0 Then
                newtaglist = newtaglist&" "&subStr
            End If
        Rs11.MoveNext
        Loop
        'Rs11.Close
        'Response.Write newtaglist
        'Tag.tagList=newtaglist
        Tag.TagString=newtaglist
    end if

 


    If act=1 Then
        Tag.AddNewTags()
    Else
        Tag.UpdateTags()
    End If
    'Taglist=Tag.tagList&"|"&Tag.checkTagString(Request.Form("Tagstring"))
    Taglist=Tag.tagList&"|"&Tag.checkTagString(newtaglist) '2024-6-19-1'  '自动添加标题中存在的TAG