asp下依据标题生成关键字的代码

发布时间：2023-05-23 14:16:14 所属栏目：Asp教程来源：

导读：实现的功能是：标题+标题里除去非中文及中文标点外的字符的、相邻两个字符的集合传说中这是采集文章处理keywords的最佳方式，呵呵，做了一个，用下试试

<script language="vbs">

'Function CreateKeyWo

实现的功能是：标题+标题里除去非中文及中文标点外的字符的、相邻两个字符的集合传说中这是采集文章处理keywords的最佳方式，呵呵，做了一个，用下试试

<script language="vbs">

'Function CreateKeyWords(KeyWords)

'关键字生成系统

    Dim i,L,TempStr

    KeyWords_Temp=reReplace(KeyWords, "[/x00-/xff]|/n| |　|，|。|、|！|？|：|"|"|［|］|—|—|（|）|…", "")

    L=Len(KeyWords_Temp)

    For i=1 To L-1

        TempStr=TempStr & "," & Mid(KeyWords_Temp,i,2)

    Next

    CreateKeyWords=KeyWords & TempStr

End Function

Function reReplace(Str, restrS, restrD)

'正则表达式写的替换

'Made by www.yongfa365.com

    Set re = New RegExp

    re.IgnoreCase = True

    re.Global = True

    re.Pattern = restrS

    reReplace = re.Replace(Str, restrD)

End Function

MsgBox CreateKeyWords("hello 你好啊，你知道我是谁不？，呵呵，我是柳永法() yongfa365 知道不")

</script>

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!