叮咛你站在桥上看风景，看风景的人在楼上看你。明月装饰了你的窗子，你装饰了别人的梦。

由于时间在字符串中的值不一致性，会出现以下几中格式的字符串，没有办法用left,right,mid直接来获取，所以想到用正则表达式来实现这个功能（只要将这个功能改一下，就可以获取其他格式的字符串。


<%
'str = "2007-01-01 12:12:12 问题 1234"
'str="sdfd 01-01 12:12:12 问题"
'str="2007-01-01 12:12sdfdf"
'str="qqwq 01-01 13:14dddd"
str="a2007-01-01sdddd"

patrn="(\d+[-\:\s])+\d+"
Response.Write(RegExpTest(patrn,str))


Function RegExpTest(patrn, strng)
    Dim regEx, Match, Matches   ' 建立变量。
    Set regEx = New RegExp   ' 建立正则表达式。
    regEx.Pattern = patrn   ' 设置模式。
    regEx.IgnoreCase = True   ' 设置是否区分大小写。
    regEx.Global = True   ' 设置全局替换。
    Set Matches = regEx.Execute(strng)   ' 执行搜索。
    For Each Match in Matches   ' 遍历 Matches 集合。
    RetStr = Match.Value
    Next
    RegExpTest = RetStr
End Function
%>