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()函数以“.”为标记符取文件名后半部分,若文件名为空则退出函数。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。