Function nohtml(str) '自定义一个函数
Dim re '定义一个变量
Set re=new RegExp '实例化一个对象， 这个对象是asp中固定的，用于启用正则表达式匹配替换
re.IgnoreCase = True '这个忘记了， 好多年没弄asp了
re.Global = True '这个应该是设置全局匹配
re.Pattern="(\<.*?\>)" '设置一个正则， 用于匹配 <....> 之间的内容, 比如
等等
str=re.replace(str,"") '将上面匹配到的内容替换为空
re.Pattern="(\<\/.*?\>)" '这个和上面同理， 匹配的是 .....等等等
str=re.replace(str,"") '同理，将匹配的内容替换为空
nohtml=str '给自定义函数返回值
End Function
'总体来说，这个自定义函数的作用就是把一段文本字符中的html元素过滤掉
'比如 nohtml("您好2015！") 最后的结果就是： 您好2015！
