asp里如何去掉文本中的HTML标记(用正则表达式)急!!!!!!!!!!!!!!!!!!!1

[满天飞舞rose]

比如:
txt = "<dd>ddsf<ddd>"
只要得到
txt = "ddsf"
有没有好的办法

[TSD]

Function sdrmHTML(yStr)
dim RegEx
Set RegEx=New RegExp
RegEx.Pattern = "<[^>]+>|</[^>]+>"
yStr=RegEx.Replace(yStr,"")
sdrmHTML=yStr
End Function

[「已注销」]

<[^<>]+>([^<>]+)</[^<>]+>

这个也不完整，碰上<input type=... />的和<br>去不了

完整的没想出来~

[cestar2005]

Function NoHtml(TestString)
Dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
TestString=re.replace(TestString,"")
re.Pattern="(\<\/[^\<]*\>)"
TestString=re.replace(TestString,"")
NoHtml=TestString
Set re=Nothing
End Function

[guyanlj]

'消除HTML代码
Function stripHTML(strHTML)
Dim objRegExp,strOutput
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
objRegExp.Pattern = "<.+?>"
'strOutput = objRegExp.Replace(strHTML,"")
strOutput = Replace(strOutput, "<","<")
strOutput = Replace(strOutput, ">",">")
stripHTML = strOutput
Set objRegExp = Nothing
End Function

[xiaoyao2006]

<
>
同楼上,就这么做

[BoweirrKing]

这个表达式有Bug，对于

<a href="..." onclick="if(this.href.length>30)alert('too big')">texttexttext</a>

这样的就无法得到正确的结果。
俺还不太会写正则表达式，所以继续期待高手出现。