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

2024-05-04 11:09:25

字体：大中小

来源：转载

供稿：网友

实现的功能是：标题+标题里除去非中文及中文标点外的字符的、相邻两个字符的集合传说中这是采集文章处理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>

上一篇：asp下用fso生成js文件的代码

下一篇：asp取日期1月25日为0125的最简单方法