- <script language="vbs">
- 'Function CreateKeyWords(KeyWords)
- '關(guān)鍵字生成系統(tǒng)
- 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下根據(jù)標題生成關(guān)鍵字的代碼
2019-09-24 10:33asp代碼網(wǎng) ASP教程
實現(xiàn)的功能是：標題+標題里除去非中文及中文標點外的字符的、相鄰兩個字符的集合 傳說中這是采集文章處理keywords的最佳方式，呵呵，做了一個，用下試試
延伸 · 閱讀
- 2022-03-10Java關(guān)鍵字之instanceof詳解
- 2022-03-09詳解C++中inline關(guān)鍵字的作用
- 2022-03-07教你輕松寫好網(wǎng)站文章標題的三個方法
- 2022-03-03易語言更改窗口標題的方法
- 2022-02-28Android中BroadcastReceiver實現(xiàn)短信關(guān)鍵字自動回復(fù)功
- 2022-02-21WPS文字中如何使用編號及小標題以方便他人閱讀
精彩推薦
- ASP教程
asp 標記字符串中指定字符變色不區(qū)分大小寫
今天遇到這種問題，單純的使用replace函數(shù)不行，他會改變原有的字符串的大小寫,在網(wǎng)上找到相關(guān)的代碼，自己備份下...
- ASP教程
asp之基于adodb.stream的文件操作類
asp之基于adodb.stream的文件操作類...
- ASP教程
ASP常用函數(shù):getpy()
ASP常用函數(shù):getpy()...
- ASP教程
asp Access數(shù)據(jù)備份,還原,壓縮類代碼
asp Access數(shù)據(jù)備份,還原,壓縮類實現(xiàn)代碼，大家可以參考下。...
- ASP教程
asp+javascript實現(xiàn)404頁的處理轉(zhuǎn)換
asp+javascript實現(xiàn)404頁的處理轉(zhuǎn)換...
- ASP教程
asp 采集實戰(zhàn)代碼
最近實在是太流行采集了，本人是不喜歡采集的，但對采集的原理我卻很有興趣進行研究，拿到了網(wǎng)上采集常用函數(shù)，對其進行了一番研究，并實戰(zhàn)，結(jié)果...
- ASP教程
JScript中遍歷Request表單參數(shù)集合的方法
這篇文章主要介紹了JScript中遍歷Request表單參數(shù)集合的方法,本文以遍歷Request.QueryString集合為例給出了實現(xiàn)代碼,需要的朋友可以參考下...
- ASP教程
ASP.NET 數(shù)據(jù)源
數(shù)據(jù)源 一個 data sourse 控件與數(shù)據(jù)綁定的控件相互作用，并隱藏了復(fù)雜的數(shù)據(jù)的聯(lián)編過程。這些是提供數(shù)據(jù)給 data bound 控件的工具，并且支持如插入，刪除...
