用delphi写个gettag，几分钟的事情。。。。。。。

function gettag(s,head,tail:String;d:String=''; tafterh:Boolean=true):String;

astr:=gettag(str,'<%=','%>','NotFound',true);