哪位高手能帮忙写个正则表达式？

[showlin]

搞不来，来找高手救命了
要求就一句话，把一个字符串中所有html置标给删除

ps. 下面的到底该怎么写？

temp=ReplaceTest("<i>(.*)<\/i>",temp,"$1")
temp=ReplaceTest("(<div (.*)>)(.*)(<\/div>),temp,"$3")

replacetest函数如下：

Function ReplaceTest(patrn,str,replStr)
Dim regEx, str1
str1=trim(str)
Set regEx = New RegExp
regEx.Pattern = patrn
regEx.IgnoreCase = false
ReplaceTest = regEx.Replace(str1, replStr)
response.write str1
set regEx=nothing
End Function

[meizz]

temp=ReplaceTest("<.*?>", temp, "")

[lienzhu]

<%
function ReplaceHTML(strContent)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<.*?>"
ReplaceHTML=re.Replace(strContent,"")
Set re=nothing
End Function
response.write ReplaceHTML("<td>1</td>")
%>

[showlin]

如果出现如下的字符串怎么办？
<div align="center"><<<<abcd</div>
会出错的

[showlin]

好事做到底阿，下班了，周一来给分，help~~~~~~~~~~~~~~~~~~~~~

[lienzhu]

re.pattern="<.[^<]*>"

[超级大笨狼]

<script language="VBScript">
dim str, re, result

str = "啊啊啊啊阿<span>this is a dog.</span><a href='testestsdf'>this is a pig.</a><table><tr><td>test</td><td>dsdfsdf</td></tr></table>钨丝灯咖啡色列宽多幅搜多"

msgbox str

set re = new RegExp
re.Pattern = "<[^<>]*>"
re.Global = true
result = re.Replace(str, "")

msgbox result
</script>