复制代码 代码如下:<% "功能:取得文件扩展名 Function getFileExt(sFileName) getFileExt = Mid(sFileName, InstrRev(sFileName, ".") + 1) End Function %>