<%
‘获取文件名（不含扩展名）
Function
getFilename(text)
text = Left(text,inStrRev(text,".")-1)
getFilename =
text
End Function
‘获取扩展名
Function
getExtn(text)
text = Left(text,inStr(text,".")-1)
getExtn = text
End
Function
%>
原文：http://www.cnblogs.com/scgw/p/3527617.html