asp獲取文件名和擴展名的函數代碼

<%

'獲取文件名（不含擴展名）

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