我写的是这样: Function ClearHTMLCode(originCode) Dim reg set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "(<s+cript(.+?)<\/s+cript>)" originCode= reg.Replace(originCode, "") reg.Pattern = "(<s+tyle(.+?)<\/s+tyle>)" originCode= reg.Replace(originCode, "") reg.Pattern = "<[^>]*>" originCode= reg.Replace(originCode, "") ClearHTMLCode = originCode End Function 不过有一些过滤不了！而且速度太慢！
查看更多关于asp只采集网站可见文本的正则_正则表达式的详细内容...
声明：本文来自网络，不代表【好得很程序员自学网】立场，转载请注明出处：http://www.haodehen.cn/did9421