28,409
社区成员




<%
function findhb(str)
set re=new Regexp
re.Global = True
re.IgnoreCase = True
re.pattern="^head[\s\S]*bottom$"
Set Matches = re.Execute(str)
For Each Match in Matches
RetStr = RetStr & "找到第 "
RetStr = RetStr & Match.FirstIndex+1 & "个匹配项的值是:'"
RetStr = RetStr & Match.Value & "'." & vbCRLF &"<br>"
Next
findhb=RetStr
end function
str="headasdfsdfsafasf asdfasdfbottom"
response.Write(findhb(str))
%>
^head[\s\S]*bottom$