ASP code based on the title to generate keywords-application tips

<textarea id="runcode99802"><script language= "vbs" > ' Function createkeywords (KeyWords) ' keyword generation system Dim i,l,tempstr keywords_temp=r Ereplace (KeyWords, "[\x00-\xff]|\n| | |,|. |, |!|?|:|" | "| [|]|-|-| (|) | ... "," ") L=len (keywords_temp) for I=1 to L-1 Tempstr=tempstr &", "& Mid (Keywords_te mp,i,2 Next createkeywords=keywords & tempstr End Function function Rereplace (STR, Restrs, RESTRD) ' regular Expression-written substitution ' 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, do you know who I am?") , oh, I am Liu Yongfa () yongfa365 know not ") </script></textarea>
[Ctrl + A All SELECT Note: If the need to introduce external JS need to refresh to perform]