ASP取文件扩展名的函数

ASP中没有直接获取文件扩展名的函数，所以我们就自己写一个，也挺简单就写出来了，而且调用挺方便，ASP得到函数扩展名代码如下：

Public Function GetExtend(filename)

dim tmp

if filename<>"" then

tmp=mid(filename,instrrev(filename,".")+1,len(filename)-instrrev(filename,"."))

tmp=LCase(tmp)

if instr(1,tmp,"asp")>0 or instr(1,tmp,"PHP")>0 or instr(1,tmp,"PHP3")>0 or instr(1,tmp,"aspx")>0 then

getextend="txt"

else

getextend=tmp

end if

else

getextend=""

end if

End Function

函数原理是先判断载入的文件名是否是空的，若不会空则用mid()函数以“.”为标记符取文件名后半部分，若文件名为空则退出函数。