Function RemoveHTMLTag(str) Set re = New RegExp re.Pattern = "<[^<>]*>" re.Global = true RemoveHTMLTag =re.Replace(str,"") Set re = Nothing End Function %>
页面载入中...