日期:2014-05-16 浏览次数:20884 次
url="http://www.xxx.com"
'str=getHTTPPage(url)
'测试用的字符串,实际引用注释掉
str="<itme> <time>2013-06-28</time> <context>提交</context> </itme><itme> <time>2013-06-29</time> <context>处理中</context> </itme>"
content=""
set rx=new RegExp
rx.Global=true
rx.IgnoreCase=true
rx.Pattern="<time>([^<]+)</time>"
set mc=rx.Execute(str)
for i=0 to mc.count-1
content=content&"<br/>"&mc(i).submatches(0)
next
set rx=nothing
response.write content