滚动天气预报-调用天气网页

<% On Error Resume Next Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches  Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<.+?>" '

>>阅读原文<<