asp下实现截取字符串特定部分内容函数

截取字符串特定部分内容函数<%
'******************************
'函数：GetKey(HTML,Start,Last)
'参数：HTML,待截取的原字符串；tart,截取开始标记；last,截取结束标记
'作者：阿里西西
'日期：2007/7/12
'描述：截取字符串函数，从Start开始截取，到Last为结束
'示例：<%=GetKey("阿里西西，国内最大的WEB开发资源","最大的","资源")%>
'******************************
Function GetKey(HTML,Start,Last)
filearray=split(HTML,Start)
filearray2=split(filearray(1),Last)
GetKey=filearray2(0)
End Function
%>