+86-591-8756 2601

Staff Activity

<% Public Function TextOnly(ByVal sOut) Dim re:Set re=New RegExp re.IgnoreCase=True re.Global=True re.Pattern=".*" sOut=re.Replace(sOut,"") re.Pattern=".*" sOut=re.Replace(sOut,"") re.Pattern=".*" sOut=re.Replace(sOut,"") re.Pattern="(<(.[^>]*)>)" sOut=re.Replace(sOut,"") Set re=Nothing TextOnly=sOut End Function %>