正则读取网页标题

Function CheckExp(patrn,strng,tagstr)
    Dim regEx
    Set regEx = New RegExp                            ‘建立一个新对像
    regEx.Pattern = patrn                            ‘设置模板
    regEx.IgnoreCase = True                            ‘搜索是否区分大小写的 true表是不区分 flase表示区分
    regEx.Global = True                                ‘搜索是否应用于整个字符串
    CheckExp = regEx.Replace(strng,tagstr)            ‘执行替换字符串
End Function
re = "<title>(.+?)</title>"                                                    ‘加粗
Content = checkexp(re,Content,"<title>我的标题</title>")
Response.Write(Content)