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()函数以“.”为标记符取文件名后半部分,若文件名为空则退出函数。