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
%>